Knuth shuffle: Difference between revisions
m
→version 2: removed "improvement"
m (→version 0, card pips: updated the output. -- ~~~~) |
Walterpachl (talk | contribs) m (→version 2: removed "improvement") |
||
Line 2,113:
* 05.01.2014 Walter Pachl
* borrow one improvement from version 1
* 06.01.2014 removed -"- (many tests cost more than few "swaps")
*--------------------------------------------------------------------*/
Call random ,,123456 /* seed for random */
Line 2,120 ⟶ 2,121:
j=random(i-1)+1;
h=right(i,2) right(j,2)
▲ Parse Value a.i a.j With a.j a.i /* a.i <-> a.j */
Call show h,i /* show intermediate states */
end;
| |||