Anonymous user
Permutations: Difference between revisions
Undo revision 145998, which destroyed the edit button, preventing me from fixing the problem
(→{{header|REXX}}: changed the version names. -- ~~~~) |
(Undo revision 145998, which destroyed the edit button, preventing me from fixing the problem) |
||
Line 1,798:
</pre>
=={{header|Perl 6}}==
This is generic code that works with any ordered type. To force lexicographic ordering, change <tt>after</tt> to <tt>gt</tt>. To force numeric order, replace it with <tt>></tt>.
<lang perl6>sub next_perm ( @a is copy ) {
|