12 lines
193 B
Plaintext
12 lines
193 B
Plaintext
factorial := (n | fold (1 + up n) '*);
|
|
|
|
|
|
list_all_permutations := ( array |
|
|
for (up (factorial (len array))) (|
|
|
say array;
|
|
array = permute array;
|
|
);
|
|
);
|
|
|
|
list_all_permutations (1 + up 5);
|