Anonymous user
Permutations: Difference between revisions
m
→{{header|Common Lisp}}: botched lang tag
(→{{header|Common Lisp}}: lexico method) |
m (→{{header|Common Lisp}}: botched lang tag) |
||
Line 670:
(return-from next-perm ll)))))))
;;;
(let ((a "ABCD") (cnt 0))
(loop while a do
(write-line a)
(setf a (next-perm a #'char<))))</lang>
=={{header|D}}==
| |||