musique/examples/permutations.mq

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),
moved from ';' to ',' as expression separator 2022-10-27 22:32:20 +02:00			`factorial := (n \| fold '* (1 + up n)),`
Permutations! 2022-06-02 23:17:02 +02:00

Removed `[]` block notation in favour of unification with `()` 2022-10-25 16:10:34 +02:00			`list_all_permutations := ( array \|`
			`for (up (factorial (len array))) (\|`
moved from ';' to ',' as expression separator 2022-10-27 22:32:20 +02:00			`say array,`
			`array = permute array,`
			`),`
			`),`
Removed `[]` block notation in favour of unification with `()` 2022-10-25 16:10:34 +02:00
moved from ';' to ',' as expression separator 2022-10-27 22:32:20 +02:00			`list_all_permutations (1 + up 5),`