(archive 'newLISPer)

December 22, 2006

A message

Filed under: newLISP — newlisper @ 17:37
Tags:

Here’s a message from (newlisper) headquarters to all of you out there:

(set 's1 '(112 104 117 117 124 35
102 107 117 108 118 119 112 100
118 35 100 113 103 35 100 35 107
100 115 115 124 35 113 104 122 35
124 104 100 117))
(set 's2
  (slice (flat (dup '(110 101 119 108 105 115 112) 20 )) 0 (length s1)))
(dolist (i (randomize (sequence 0 (length s2))))
    (for (j 40 (s1 i))
        (nth-set i s2 (- j 3))
        (println "27[H27[2J" (join (map char s2)))
        (sleep (+ 30 (- (length s2) i)))))
    (exit)

I hope you can run it OK…

Advertisements

2 Comments »

  1. >Very very nice done !!!Happy new year to you too… Keep it running in 2007…newdep.

    Comment by Anonymous — December 29, 2006 @ 11:42 | Reply

  2. >Thanks for all the interesting and entertaining posts this year and all the best for you in 2007.

    Comment by don Lucio — December 30, 2006 @ 21:51 | Reply


RSS feed for comments on this post. TrackBack URI

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

Blog at WordPress.com.

%d bloggers like this: