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