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-08-11 18:05:26 -07:00
parent 4d5544505c
commit 4924dd0264
3073 changed files with 55820 additions and 4408 deletions
Download patch file Download diff file Expand all files Collapse all files

14
Task/Sorting-algorithms-Stooge-sort/Maxima/sorting-algorithms-stooge-sort.maxima Normal file
View file

@ -0,0 +1,14 @@
stoogesort(list, i, j) := block(
if(list[j]<list[i]) then block(a: list[j], b: list[i], list[i]: a, list[j]:b),
if(j-i>1) then block(
t: floor((j-i+1)/3),
stoogesort(list, i, j-t),
stoogesort(list, i+t, j),
stoogesort(list, i, j-t)),
list)$
test_list: makelist(random(21),20);
stooge(list) := stoogesort(list, 1, length(list))$
stooge(test_list);