Name: Anonymous 2009-11-02 14:12
Write some obfuscated code to print 'Sussman' to the screen 100 times
print("Sussman\n");
echo str_repeat(strrev("\n" . 'namssuS'), 100);
puts("Shushiman");
print"namssuS"[0::-1]
(define (sussmen num)
(letrec ([sn -1]
[numb num]
[s (lambda ()
(display #\s)
(c))]
[u (lambda ()
(display #\u)
(s))]
[m (lambda ()
(display #\m)
(a))]
[a (lambda ()
(display #\a)
(n))]
[n (lambda ()
(display #\n)
(nl))]
[nl (lambda ()
(display #\newline)
(nxt))]
[nxt (lambda ()
(unless (zero? numb) (set! numb (- numb 1)) (s)))]
[c (lambda ()
((case (begin (set! sn (+ sn 1)) (modulo sn 3))
((0) u)
((1) s)
((2) m))))])
(nxt)))
(sussmen 100)(define (suss k)
(display #\s)
(k (lambda (k)
(display #\s)
(k (lambda (k)
(display #\m)
(k (lambda (k)
(display #\n)
(k k)))
)))))
(define (man k)
(display #\u)
(k (lambda (k)
(display #\s)
(k (lambda (k)
(display #\a)
(k (lambda (k)
(display #\newline)))
)))))
(do ((i 0 (+ i 1))) ; why does no-one ever remember `do` when others are
((= i 100) i) ; mocking Scheme's apparent lack of iteration constructs
(suss man))
sub'_($){eval join'*',2..shift}$==-37+_+5;print+(map chr($=+=-$_),(0,-((_+4)+10),_+2,$|,_+3,(_+3)*2,-13,(_+5)-20))x((_+5)-20)