obfuscated-scheme


An Anton van Straaten sig:

 ; breaking the Perl lock on cryptic .sigs: 
 (list->string(call-with-current-continuation(lambda(x)(let*((z(map(lambda 
 (c)(reverse(cons c(call-with-current-continuation(lambda(k)(list k 0)))))) 
 (string->list "patsonm")))(i(apply max(map car z)))(cs(cddr(assoc i z)))(xs 
 (append(string->list(case i((4)"ul")((5)"@")((6)"i")((12)"c.")((15)(x cs)) 
 (else "")))cs))(k(cadr(list-ref(map(lambda(i)(list-ref z i))(list 3 0 4 1 
 2 5 4 4 5 2 3 5 4 1 6))i))))(k `(,@xs ,k ,(+ i 1))))))) 

pitecus' sig:

gosh -bE "print (map (cut number->string <> 36) '(18 806564\
          1714020422))" -Eexit

call/cc fun:

 (let* ((yin ((lambda (foo) (newline) foo) 
              (call/cc call/cc))) 
        (yang ((lambda (bar) (write-char #\*) bar) 
               (call/cc call/cc)))) 
   (yin yang)) 

category-code