#!/usr/bin/perl -l

(print (join (" ",
 (map {sprintf (reverse (split (//, (substr ($_, 1)))))}
      (sort (qw (jlianregnif ksgnippilc yyrraL zllaW aPSIL
               flaeppa bsah m.ni clla ldexim  ssti 
               tetiuq prehtO w.egaugnal vecin qnaht r,taht
               ua hlaemtao gfo deht elausiv ihtiw x--)))))))

[download]

Replies are listed 'Best First'.
Re: Lispy
by educated_foo (Vicar) on May 10, 2004 at 08:16 UTC
    Or something similar, designed to drive lispers insane with its carefully imbalanced parens: 
    (print (join (q) ),
       (map sprintf (reverse (split (q)),
                 (substr $_, 1)))),

(sort (qw)
      jlianregnif ksgnippilc yyrraL zllaW aPSIL
      flaeppa bsah m.ni clla ldexim  ssti
      tetiuq prehtO w.egaugnal vecin qnaht r,taht
      ua hlaemtao gfo deht elausiv ihtiw x--)

))))))

    [download]
[reply]
[d/l]

      Yes, q)) is indeed a good obfu-feature. An other example of that quoting style is Re: Japh algebra.

[reply]
[d/l]

Back to Obfuscated Code