Anonymous user
Permutations: Difference between revisions
m
→{{header|Tailspin}}
Line 6,609:
<1> [1] !
<>
def n: $it;
templates expand
def p: $it;
1..$n -> (def k: $it;
[$p(1..$k-1)..., $n, $p($k..-1)...] !) !
end expand
Line 6,618:
end permutations
def alpha: ['ABCD'...];
[ $alpha::length -> permutations -> '$($alpha($it)...)' ] -> !OUT::write
</lang>
Line 6,631:
<1> [1] !
<>
def n: $it;
def p: [ $n - 1 -> lexicalPermutations ];
1..$n -> (def k: $it;
def tail: [1..$n -> (<~$k> $it !)];
$p... -> [ $k, $tail($it)...] !) !
end lexicalPermutations
def alpha: ['ABCD'...];
[ $alpha::length -> lexicalPermutations -> '$($alpha($it)...)' ] -> !OUT::write
</lang>
| |||