<div dir="ltr"><div>Это лучше:</div><font face="courier new, monospace">(let ((let '`(let ((let ',let)) ,let))) `(let ((let ',let)) ,let))</font><br></div><div class="gmail_extra"><br><br><div class="gmail_quote">
21 июля 2013 г., 17:50 пользователь Evgeny Sinelnikov <span dir="ltr"><<a href="mailto:sin@altlinux.ru" target="_blank">sin@altlinux.ru</a>></span> написал:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div dir="ltr">Поправил <a href="http://ru.wikipedia.org/wiki/Куайн_%28программирование%29#.D0.9B.D0.B8.D1.81.D0.BF" target="_blank">квайн для Lisp из википедии</a> под Scheme (guile-1.8) с форматированным выводом:<br><br>
<span style="font-family:courier new,monospace">$ guile quine.scm<br>
(use-modules (ice-9 pretty-print))<br>((lambda (x)<br> (pretty-print<br> '(use-modules (ice-9 pretty-print)))<br> (pretty-print (list x (list (quote quote) x))))<br> '(lambda (x)<br> (pretty-print<br> '(use-modules (ice-9 pretty-print)))<br>
(pretty-print (list x (list (quote quote) x)))))</span><span class="HOEnZb"><font color="#888888"><br><div><div><div></div></div></div><div class="gmail_extra"><br><br>-- <br><div dir="ltr">Sin (Sinelnikov Evgeny)<br>
Etersoft<div></div><div></div><div></div><div></div><div></div><div></div><div></div><div></div><div></div></div>
</div></font></span></div>
<br>_______________________________________________<br>
Sarlug mailing list<br>
<a href="mailto:Sarlug@lists.lug.ru">Sarlug@lists.lug.ru</a><br>
<a href="https://lists.lug.ru/mailman/listinfo/sarlug" target="_blank">https://lists.lug.ru/mailman/listinfo/sarlug</a><br></blockquote></div><br><br clear="all"><div><br></div>-- <br>Dmitry Agafonov ~ <a href="http://agafonov.pp.ru/">http://agafonov.pp.ru/</a>
</div>