34 lines
777 B
Plaintext
34 lines
777 B
Plaintext
|
-- 4! = 24 permutations
|
||
|
|
say (permute 0 1 2 3);
|
||
|
|
say (permute 0 1 3 2);
|
||
|
|
say (permute 0 2 1 3);
|
||
|
|
say (permute 0 2 3 1);
|
||
|
|
say (permute 0 3 1 2);
|
||
|
|
say (permute 0 3 2 1);
|
||
|
|
say (permute 1 0 2 3);
|
||
|
|
say (permute 1 0 3 2);
|
||
|
|
say (permute 1 2 0 3);
|
||
|
|
say (permute 1 2 3 0);
|
||
|
|
say (permute 1 3 0 2);
|
||
|
|
say (permute 1 3 2 0);
|
||
|
|
say (permute 2 0 1 3);
|
||
|
|
say (permute 2 0 3 1);
|
||
|
|
say (permute 2 1 0 3);
|
||
|
|
say (permute 2 1 3 0);
|
||
|
|
say (permute 2 3 0 1);
|
||
|
|
say (permute 2 3 1 0);
|
||
|
|
say (permute 3 0 1 2);
|
||
|
|
say (permute 3 0 2 1);
|
||
|
|
say (permute 3 1 0 2);
|
||
|
|
say (permute 3 1 2 0);
|
||
|
|
say (permute 3 2 0 1);
|
||
|
|
say (permute 3 2 1 0);
|
||
|
|
|
||
|
|
|
||
|
|
-- This array should be flattened to support case (permute array)
|
||
|
|
say (permute 3 2 [1; 0]);
|
||
|
|
|
||
|
|
-- Test if nested arrays are preserved
|
||
|
|
say (permute [[3; 2]; 4] [1; 0]);
|
||
|
|
say (permute [0; 1; 4; [3; 2]]);
|