7 lines
122 B
Text
7 lines
122 B
Text
(defun permute
|
|
(('())
|
|
'(()))
|
|
((l)
|
|
(lc ((<- x l)
|
|
(<- y (permute (-- l `(,x)))))
|
|
(cons x y))))
|