[Openmcl-devel] Obfuscated Lisp contest anyone? (Seriously)

[Michał "phoe" Herda]

Just use https://github.com/y2q-actionman/with-c-syntax/ and reduce the 
problem to IOCCC.

On 15.04.2023 18:03, phoebe Goldman wrote:
> An obfuscated Lisp contest would be fun! I think a winning entry must 
> necessarily use a custom readtable...
>
> cheers,
> phoebe
>
>> On Apr 15, 2023, at 12:01 PM, Ron Garret <ron at flownet.com> wrote:
>>
>>
>>
>>> On Apr 15, 2023, at 7:38 AM, Tim McNerney <mc at media.mit.edu> wrote:
>>>
>>> *Hmm… Is it /crazy/ to contemplate launching an obfuscated /Lisp/ 
>>> contest?*
>>
>> Here is my entry:
>>
>> ((λ f ((λ g (g g)) (λ (h x) ((f (h h)) x))))
>>  (λ f
>>     (λ n
>>        (λ nil
>>           (((λ (c _t e) (c _t e))
>>             ((λ pair (pair (λ (l r) (λ (then else) else)))) n)
>>             (λ dummy
>>                ((λ n
>>  ((λ (l r) (λ (selector) (selector l r)))
>>   (λ selector (λ (then else) then)) n))
>>                 (λ selector (λ (then else) then))))
>>             (λ dummy
>>                ((λ (n1 n2)
>>  (((λ f ((λ g (g g)) (λ (h x) ((f (h h)) x))))
>>    (λ f
>>       (λ (n1 n2 product)
>>          (λ nil
>>             (((λ (c _t e) (c _t e))
>>               ((λ pair (pair (λ (l r) (λ (then else) else))))
>>                n2)
>>               (λ dummy product)
>>               (λ dummy
>>                  (f n1
>>                   ((λ n ((λ pair (pair (λ (l r) r))) n)) n2)
>>                   (((λ f
>>                        ((λ g (g g)) (λ (h x) ((f (h h)) x))))
>>                     (λ f
>>                        (λ
>>                         (n1 n2)
>>                         (λ
>>                          nil
>>                          (((λ (c _t e) (c _t e))
>>                            ((λ
>>                              pair
>>                              (pair
>>                               (λ
>>                                (l r)
>>                                (λ (then else) else))))
>>                             n2)
>>                            (λ dummy n1)
>>                            (λ
>>                             dummy
>>                             (f
>>                              ((λ
>>                                n
>>                                ((λ
>>                                  (l r)
>>                                  (λ
>>                                   (selector)
>>                                   (selector l r)))
>>                                 (λ
>>                                  selector
>>                                  (λ (then else) then))
>>                                 n))
>>                               n1)
>>                              ((λ
>>                                n
>>                                ((λ pair (pair (λ (l r) r)))
>>                                 n))
>>                               n2))))
>>                           (λ x x))))))
>>                    n1 product))))
>>              (λ x x))))))
>>   n1 n2 (λ selector (λ (then else) then))))
>>                 n (f ((λ n ((λ pair (pair (λ (l r) r))) n)) n)))))
>>            (λ x x))))))
>>
>>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.clozure.com/pipermail/openmcl-devel/attachments/20230415/4b7bab59/attachment.htm>