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 2026-02-01 16:33:20 -08:00
parent 5150844a7d
commit 4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
Download patch file Download diff file Expand all files Collapse all files

9
Task/Quickselect-algorithm/Arturo/quickselect-algorithm.arturo
View file

@ -7,13 +7,14 @@ quickselect: function [a k][
left: select arr 'item -> item<pivot
right: select arr 'item -> item>pivot
case [k]
when? [= size left]-> return pivot
when? [< size left]-> arr: new left
else [
when.has: k [
[= size left] -> return pivot
[< size left] -> arr: new left
true [
k: (k - size left) - 1
arr: new right
]
]
]
]