Rosetta Code

Sorting algorithms/Patience sort: Difference between revisions

← Older editNewer edit →
Content deleted Content added
Chemoelectric (talk | contribs)
1,448 edits
Chemoelectric (talk | contribs)
1,448 edits
Line 3,114:
iStart := TotalExternalNodes;
WHILE iStart <> 1 DO
FOR i := iStart; TO (2 * iStart) - 1 BY 2 DO
FOR i := 1 TO (2 * iStart) - 1 BY 2 DO
iWinner := PlayGame (i);
Winners[i DIV 2, 1] := Winners[iWinner, 1];
Retrieved from "https://rosettacode.org/wiki/Sorting_algorithms/Patience_sort"