Anonymous user
Permutations: Difference between revisions
Added LFE example
m (Fix Erlang header) |
(Added LFE example) |
||
Line 1,932:
text some random
text random some</lang>
=={{header|LFE}}==
<lang lisp>
(defun permute
(('())
'(()))
((l)
(lc ((<- x l)
(<- y (permute (-- l `(,x)))))
(cons x y))))
</lang>
REPL usage:
<lang lisp>
> (permute '(1 2 3))
((1 2 3) (1 3 2) (2 1 3) (2 3 1) (3 1 2) (3 2 1))
</lang>
=={{header|Liberty BASIC}}==
| |||