читал старые треды лора

0

0

(defparameter seq '("а" "з" "д" "и" "п"))

(defun permutations (x)
    (if (null x)
        '(nil)
        (mapcan (lambda (e) (mapcar (lambda (p) (cons e p)) (permutations (remove e x :count 1 :test 'eq)))) x)))

(dolist (x (permutations seq)) (format t "~S~%" x))

Ссылка

←	Обзоры софта

[opennet][анабиоз?]Факты про Линуса

→

я не знаю что это за язык, но результат выполнения очевиден ))

mamantoha ★
(22.03.09 01:42:09 MSK)

Ответ на: комментарий от mamantoha 22.03.09 01:42:09 MSK

Очевидно Лисп. Хотя на Перле было бы элегантнее

DNA_Seq ★★☆☆☆
(22.03.09 02:00:54 MSK)

Ссылка

Фраза о лиспе.
bugmaker.
=(

Correctnoe_imya_polzovatelya ★★★★★
(22.03.09 08:38:18 MSK)

Ссылка

На руби было бы короче.

~~wfrr~~ ★★☆
(22.03.09 10:53:00 MSK)

Ссылка

И что?

Результат как-бы символизирует текущее состояние ЛОРа или где?

~~ZloySergant~~ ★
(22.03.09 14:28:54 MSK)

Ответ на: комментарий от mamantoha 22.03.09 01:42:09 MSK

>я не знаю что это за язык

Вот и выросло поколение ...

~~redgremlin~~ ★★★★★
(22.03.09 14:39:07 MSK)

Ссылка

Ответ на: комментарий от ZloySergant 22.03.09 14:28:54 MSK

Результат очевиден по первой строке

DNA_Seq ★★☆☆☆
(22.03.09 21:53:10 MSK)

Ответ на: комментарий от DNA_Seq 22.03.09 21:53:10 MSK

>Результат очевиден по первой строке

Как-бы немного знаю LISP.

Я спросил: к чему бы это?

~~ZloySergant~~ ★
(22.03.09 22:12:59 MSK)

Ссылка

Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.

←	Обзоры софта

[opennet][анабиоз?]Факты про Линуса

→