Unknown function operation deciphering, exercise in readability by program reasoning

[jvt]

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.