5 lines
147 B
Text
5 lines
147 B
Text
|
(define permute-helper
|
||
|
|
_ [] -> []
|
||
|
|
Done [X|Rest] -> (append (prepend-all X (permute (append Done Rest))) (permute-helper (append Done [X]) Rest))
|
||
|
|
)
|