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))),
|