mirror
/
RosettaCodeData
mirror of https://github.com/acmeism/RosettaCodeData.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
RosettaCodeData/Task/Permutations/LFE/permutations-1.lfe

8 lines
122 B
Plaintext
Raw Permalink Blame History

(defun permute
(('())
'(()))
((l)
(lc ((<- x l)
(<- y (permute (-- l `(,x)))))
(cons x y))))
Reference in New Issue View Git Blame Copy Permalink