musique/examples/permutations.mq

12 lines
193 B
Plaintext
Raw Normal View History

factorial := (n | fold '* (1 + up n)),
2022-06-02 23:17:02 +02:00
list_all_permutations := ( array |
for (up (factorial (len array))) (|
say array,
array = permute array,
),
),
list_all_permutations (1 + up 5),