Anonymous user
Sorting algorithms/Permutation sort: Difference between revisions
Wrong header order (on a sorting article, no less)
(Wrong header order (on a sorting article, no less)) |
|||
Line 585:
1 2 3 4 5 6</lang>
=={{header|PARI/GP}}==▼
<lang parigp>permutationSort(v)={▼
my(u);▼
for(k=1,(#v)!,▼
u=vecextract(v, numtoperm(#v,k));▼
for(i=2,#u,▼
if(u[i]<u[i-1], next(2))▼
);▼
return(u)▼
)▼
};</lang>▼
=={{header|Perl}}==
Line 610 ⟶ 622:
Sample output:<pre>Before: 94 15 42 35 55 24 96 14 61 94 43
After: 14 15 24 35 42 43 55 61 94 94 96</pre>
▲=={{header|PARI/GP}}==
▲<lang parigp>permutationSort(v)={
▲ my(u);
▲ for(k=1,(#v)!,
▲ u=vecextract(v, numtoperm(#v,k));
▲ for(i=2,#u,
▲ if(u[i]<u[i-1], next(2))
▲ );
▲ return(u)
▲ )
▲};</lang>
=={{header|Perl 6}}==
| |||