[Sarlug] Ненормальное программирование

Dmitry Agafonov dmitry на agafonov.pp.ru
Вс Июл 21 18:05:36 MSK 2013


Это лучше:
(let ((let '`(let ((let ',let)) ,let))) `(let ((let ',let)) ,let))


21 июля 2013 г., 17:50 пользователь Evgeny Sinelnikov <sin на altlinux.ru>написал:

> Поправил квайн для Lisp из википедии<http://ru.wikipedia.org/wiki/Куайн_%28программирование%29#.D0.9B.D0.B8.D1.81.D0.BF>под Scheme (guile-1.8) с форматированным выводом:
>
> $ guile quine.scm
> (use-modules (ice-9 pretty-print))
> ((lambda (x)
>    (pretty-print
>      '(use-modules (ice-9 pretty-print)))
>    (pretty-print (list x (list (quote quote) x))))
>  '(lambda (x)
>     (pretty-print
>       '(use-modules (ice-9 pretty-print)))
>     (pretty-print (list x (list (quote quote) x)))))
>
>
> --
> Sin (Sinelnikov Evgeny)
> Etersoft
>
> _______________________________________________
> Sarlug mailing list
> Sarlug на lists.lug.ru
> https://lists.lug.ru/mailman/listinfo/sarlug
>



-- 
Dmitry Agafonov ~ http://agafonov.pp.ru/
----------- следующая часть -----------
Вложение в формате HTML было удалено...
URL: <http://lists.lug.ru/pipermail/sarlug/attachments/20130721/30eb0232/attachment.html>


Подробная информация о списке рассылки Sarlug