<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
</head>
<body>
<p>Just use <a class="moz-txt-link-freetext" href="https://github.com/y2q-actionman/with-c-syntax/">https://github.com/y2q-actionman/with-c-syntax/</a> and
reduce the problem to IOCCC.<br>
</p>
<div class="moz-cite-prefix">On 15.04.2023 18:03, phoebe Goldman
wrote:<br>
</div>
<blockquote type="cite"
cite="mid:55A3D1CF-4032-45A2-940D-D2611F18D1A9@goldman-tribe.org">
<meta http-equiv="content-type" content="text/html; charset=UTF-8">
An obfuscated Lisp contest would be fun! I think a winning entry
must necessarily use a custom readtable...
<div><br>
</div>
<div>cheers,</div>
<div>phoebe<br>
<div><br>
<blockquote type="cite">
<div>On Apr 15, 2023, at 12:01 PM, Ron Garret
<a class="moz-txt-link-rfc2396E" href="mailto:ron@flownet.com"><ron@flownet.com></a> wrote:</div>
<br class="Apple-interchange-newline">
<div>
<meta http-equiv="Content-Type" content="text/html;
charset=UTF-8">
<div style="word-wrap: break-word; -webkit-nbsp-mode:
space; line-break: after-white-space;"><br>
<div><br>
<blockquote type="cite">
<div>On Apr 15, 2023, at 7:38 AM, Tim McNerney <<a
href="mailto:mc@media.mit.edu"
moz-do-not-send="true"
class="moz-txt-link-freetext">mc@media.mit.edu</a>>
wrote:</div>
<div>
<div dir="auto">
<div><br>
</div>
<div><b>Hmm… Is it <i>crazy</i> to contemplate
launching an obfuscated <i>Lisp</i>
contest?</b></div>
</div>
</div>
</blockquote>
<div><br>
</div>
<div>Here is my entry:</div>
<div><br>
</div>
<div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;">((λ f ((λ g (g g))
(λ (h x) ((f (h h)) x))))</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;"> (λ f</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;"> (λ n</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;"> (λ nil</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;"> (((λ (c
_t e) (c _t e))</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;"> ((λ
pair (pair (λ (l r) (λ (then else) else)))) n)</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;"> (λ
dummy</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;"> ((λ
n</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;">
((λ (l r) (λ (selector) (selector l r)))</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;">
(λ selector (λ (then else) then)) n))</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;"> (λ
selector (λ (then else) then))))</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;"> (λ
dummy</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;"> ((λ
(n1 n2)</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;">
(((λ f ((λ g (g g)) (λ (h x) ((f (h h)) x))))</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;">
(λ f</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;">
(λ (n1 n2 product)</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;">
(λ nil</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;">
(((λ (c _t e) (c _t e))</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;">
((λ pair (pair (λ (l r) (λ (then
else) else))))</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;">
n2)</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;">
(λ dummy product)</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;">
(λ dummy</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;">
(f n1</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;">
((λ n ((λ pair (pair (λ (l
r) r))) n)) n2)</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;">
(((λ f</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;">
((λ g (g g)) (λ (h x)
((f (h h)) x))))</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;">
(λ f</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;">
(λ</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;">
(n1 n2)</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;">
(λ</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;">
nil</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;">
(((λ (c _t e) (c _t
e))</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;">
((λ</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;">
pair</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;">
(pair</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;">
(λ</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;">
(l r)</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;">
(λ (then else)
else))))</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;">
n2)</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;">
(λ dummy n1)</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;">
(λ</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;">
dummy</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;">
(f</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;">
((λ</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;">
n</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;">
((λ</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;">
(l r)</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;">
(λ</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;">
(selector)</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;">
(selector l
r)))</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;">
(λ</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;">
selector</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;">
(λ (then
else) then))</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;">
n))</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;">
n1)</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;">
((λ</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;">
n</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;">
((λ pair (pair
(λ (l r) r)))</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;">
n))</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;">
n2))))</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;">
(λ x x))))))</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;">
n1 product))))</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;">
(λ x x))))))</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;">
n1 n2 (λ selector (λ (then else) then))))</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;"> n
(f ((λ n ((λ pair (pair (λ (l r) r))) n))
n)))))</span></font></div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;"> (λ x
x))))))</span></font></div>
</div>
<div><font size="1" face="Monaco"><span
style="font-style: normal;"><br>
</span></font></div>
<div><br>
</div>
</div>
</div>
</div>
</blockquote>
</div>
<br>
</div>
</blockquote>
</body>
</html>