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