aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

September 2017 Update

Browse source
This commit is contained in:
Ingy döt Net 2017-09-23 10:01:46 +02:00
parent bba7bfd280
commit ba8067c3b7
14570 changed files with 153136 additions and 63871 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Task/Sorting-algorithms-Stooge-sort/Zkl/sorting-algorithms-stooge-sort-1.zkl Normal file
View file

@ -0,0 +1,10 @@
fcn stoogeSort(list,i=0,j=Void){ if(Void==j) j=list.len() - 1; // default parameters set before call
if(list[j]<list[i]) list.swap(i,j);
if(j - i >1){
t:=(j - i + 1)/3;
stoogeSort(list,i , j-t);
stoogeSort(list,i+t, j );
stoogeSort(list,i , j-t);
}
list
}

1
Task/Sorting-algorithms-Stooge-sort/Zkl/sorting-algorithms-stooge-sort-2.zkl Normal file
View file

@ -0,0 +1 @@
stoogeSort(List(67,-201,0,9,9,231,4)).println();