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

Data update

Browse source
This commit is contained in:
Ingy döt Net 2025-06-11 20:16:52 -04:00
parent 72eb4943cb
commit 4d5544505c
2347 changed files with 62432 additions and 16731 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Task/Sorting-algorithms-Stooge-sort/EasyLang/sorting-algorithms-stooge-sort.easy
View file

@ -1,7 +1,5 @@
proc stsort left right . d[] .
if d[left] > d[right]
swap d[left] d[right]
.
proc stsort left right &d[] .
if d[left] > d[right] : swap d[left] d[right]
if right - left + 1 > 2
t = (right - left + 1) div 3
stsort left right - t d[]
@ -9,8 +7,6 @@ proc stsort left right . d[] .
stsort left right - t d[]
.
.
for i = 1 to 100
d[] &= random 1000
.
for i = 1 to 100 : d[] &= random 1000
stsort 1 len d[] d[]
print d[]