(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

Create a free website or blog at WordPress.com.