Unknown function operation deciphering, exercise in readability by program reasoning

[rupertlssmith at googlemail.com]

On Dec 5, 3:34 am, jvt <vincent.to... at gmail.com> wrote:
> On Dec 4, 4:49 pm, Barb Knox <s... at sig.below> wrote:
>
>
>
>
>
> > In article
> > <46365e1d-42d8-4b3b-8e69-941472467... at u25g2000pra.googlegroups.com>,
> >  small Pox <smallpox... at gmail.com> wrote:
>
> > > Rules :
>
> > No need to add any additional hurdles -- the code as presented is
> > thoroughly unreadable by humans.
>
> > > @1@  No execution of the function, only checking syntax
>
> > What about "desk checking" (a lost art from the oldene dayes)?
>
> > > @2@  No profiling using a debugger or profiler
>
> > > @3@  Editing allowed to make simpler variables
>
> > Maybe if you had done that yourself before posting it then I would have
> > tried to understand it.  As it is, no way.
>
> > > (defun unknown-function (nano-thermite-911-FBI-fat-per-diem-bustards-
> > > kept-their-odious-mouth-shut-on-anthrax-and-911-lie)
> > >   (let (BERNARD-MADOFF-PHILIP-MARKOFF-MIKHAIL-KHODORKOVSKY-NEOCONS-
> > > PAUL-WOLFOWITZ-LEWIS-SCOOTER-LIBBY-MOSHE-KATSEV-MOSSAD-DUBAI-MURDERERS
> > > I-AM-THE-WITNESS-DOT-COM-has-MR-BENJAMIN-FREEDMAN-SPEECH-ON-KHAZARS)
> > >     (while (or I-AM-THE-WITNESS-DOT-COM-has-MR-BENJAMIN-FREEDMAN-
> > > SPEECH-ON-KHAZARS nano-thermite-911-FBI-fat-per-diem-bustards-kept-
> > > their-odious-mouth-shut-on-anthrax-and-911-lie)
> > >       (if nano-thermite-911-FBI-fat-per-diem-bustards-kept-their-
> > > odious-mouth-shut-on-anthrax-and-911-lie
> > >           (if (consp nano-thermite-911-FBI-fat-per-diem-bustards-kept-
> > > their-odious-mouth-shut-on-anthrax-and-911-lie)
> > >               (setq I-AM-THE-WITNESS-DOT-COM-has-MR-BENJAMIN-FREEDMAN-
> > > SPEECH-ON-KHAZARS (cons (cdr nano-thermite-911-FBI-fat-per-diem-
> > > bustards-kept-their-odious-mouth-shut-on-anthrax-and-911-lie)
> > >                                 I-AM-THE-WITNESS-DOT-COM-has-MR-
> > > BENJAMIN-FREEDMAN-SPEECH-ON-KHAZARS)
> > >                     nano-thermite-911-FBI-fat-per-diem-bustards-kept-
> > > their-odious-mouth-shut-on-anthrax-and-911-lie (car nano-thermite-911-
> > > FBI-fat-per-diem-bustards-kept-their-odious-mouth-shut-on-anthrax-
> > > and-911-lie))
> > >             (setq BERNARD-MADOFF-PHILIP-MARKOFF-MIKHAIL-KHODORKOVSKY-
> > > NEOCONS-PAUL-WOLFOWITZ-LEWIS-SCOOTER-LIBBY-MOSHE-KATSEV-MOSSAD-DUBAI-
> > > MURDERERS (cons nano-thermite-911-FBI-fat-per-diem-bustards-kept-their-
> > > odious-mouth-shut-on-anthrax-and-911-lie BERNARD-MADOFF-PHILIP-MARKOFF-
> > > MIKHAIL-KHODORKOVSKY-NEOCONS-PAUL-WOLFOWITZ-LEWIS-SCOOTER-LIBBY-MOSHE-
> > > KATSEV-MOSSAD-DUBAI-MURDERERS)
> > >                   nano-thermite-911-FBI-fat-per-diem-bustards-kept-
> > > their-odious-mouth-shut-on-anthrax-and-911-lie nil))
> > >         (setq nano-thermite-911-FBI-fat-per-diem-bustards-kept-their-
> > > odious-mouth-shut-on-anthrax-and-911-lie (car I-AM-THE-WITNESS-DOT-COM-
> > > has-MR-BENJAMIN-FREEDMAN-SPEECH-ON-KHAZARS)
> > >               I-AM-THE-WITNESS-DOT-COM-has-MR-BENJAMIN-FREEDMAN-SPEECH-
> > > ON-KHAZARS (cdr I-AM-THE-WITNESS-DOT-COM-has-MR-BENJAMIN-FREEDMAN-
> > > SPEECH-ON-KHAZARS))))
> > >     BERNARD-MADOFF-PHILIP-MARKOFF-MIKHAIL-KHODORKOVSKY-NEOCONS-PAUL-
> > > WOLFOWITZ-LEWIS-SCOOTER-LIBBY-MOSHE-KATSEV-MOSSAD-DUBAI-MURDERERS))
>
> > --
> > ---------------------------
> > |  BBB                b    \     Barbara at LivingHistory stop co stop uk
> > |  B  B   aa     rrr  b     |
> > |  BBB   a  a   r     bbb   |    Quidquid latine dictum sit,
> > |  B  B  a  a   r     b  b  |    altum videtur.
> > |  BBB    aa a  r     bbb   |  
> > -----------------------------
>
> I think this is correct:
>
> (defun unknown-function (sym0)
>   (let (sym1 sym2)
>         (while (or sym2 sym0)
>           (if sym0
>                   (if (consp sym0)
>                           (setq sym2 (cons (cdr sym0) sym2) sym0 (car sym0))
>                         (setq sym3 sym4 (cons sym0 sym1) sym0 nil))
>                 (setq sym0 (car sym2) sym2 (cdr sym2))))
>         sym1))
> Thank emacs, not me.

Lisp? Still can't read it... ;-)