William James
2/22/2016 5:21:00 AM
Ingvar Mattsson wrote:
> ((lambda (x y l) (format nil "~{~a~}" (loop for a in x for b in y with c = t
> if a collect (funcall (if c #'char-upcase #'char-downcase) (elt (elt l a) b))
> else collect #\space if c do (setq c ())))) '(76 1 0 0 nil 0 nil 0 3 0 5 nil 0
> 0 12 0 0 0) '(2 2 16 8 nil 1 nil 2 4 16 2 nil 9 1 1 13 10 11) (sort (loop for
> foo being the external-symbols in :cl collect (string-upcase foo)) #'string<))
Output:
"Just a lisp hacker"
MatzLisp (Ruby):
code = %q{
((lambda (x y l) (format nil "~{~a~}" (loop for a in x for b in y with c = t
if a collect (funcall (if c #'char-upcase #'char-downcase) (elt (elt l a) b))
else collect #\space if c do (setq c ())))) '(76 1 0 0 nil 0 nil 0 3 0 5 nil 0
0 12 0 0 0) '(2 2 16 8 nil 1 nil 2 4 16 2 nil 9 1 1 13 10 11) (sort (loop for
foo being the external-symbols in :cl collect (string-upcase foo)) #'string<))}
words = %w(
&ALLOW-OTHER-KEYS &AUX &BODY &ENVIRONMENT &KEY &OPTIONAL &REST
&WHOLE * ** *** *BREAK-ON-SIGNALS* *COMPILE-FILE-PATHNAME*
*COMPILE-FILE-TRUENAME* *COMPILE-PRINT* *COMPILE-VERBOSE*
*DEBUG-IO* *DEBUGGER-HOOK* *DEFAULT-PATHNAME-DEFAULTS*
*ERROR-OUTPUT* *FEATURES* *GENSYM-COUNTER* *LOAD-PATHNAME*
*LOAD-PRINT* *LOAD-TRUENAME* *LOAD-VERBOSE* *MACROEXPAND-HOOK*
*MODULES* *PACKAGE* *PRINT-ARRAY* *PRINT-BASE* *PRINT-CASE*
*PRINT-CIRCLE* *PRINT-ESCAPE* *PRINT-GENSYM* *PRINT-LENGTH*
*PRINT-LEVEL* *PRINT-LINES* *PRINT-MISER-WIDTH*
*PRINT-PPRINT-DISPATCH* *PRINT-PRETTY* *PRINT-RADIX*
*PRINT-READABLY* *PRINT-RIGHT-MARGIN* *QUERY-IO* *RANDOM-STATE*
*READ-BASE* *READ-DEFAULT-FLOAT-FORMAT* *READ-EVAL*
*READ-SUPPRESS* *READTABLE* *STANDARD-INPUT* *STANDARD-OUTPUT*
*TERMINAL-IO* *TRACE-OUTPUT* + ++ +++ - / // /// /= 1+ 1- < <= =
> >= ABORT ABS ACONS ACOS ACOSH ADD-METHOD ADJOIN)
x, y = code.scan(/'\((.*?)\)/m).flatten.
map{|s| s.split.map{|s| Integer(s) rescue nil}}
x.zip(y).map{|a,b| a ? words[a][b] : " "}.join.downcase.capitalize
===>
"Just a lisp hacker"
--
According to a 1947 Gallup poll, 40 percent of Danes canvassed had been
outspokenly sympathetic toward Germany. Just 32 percent had felt hostile.
--- Richard Tedor, Hitler's Revolution