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

7
Task/Quickselect-algorithm/EasyLang/quickselect-algorithm.easy
View file

@ -1,4 +1,4 @@
proc qselect k . list[] res .
func qselect &list[] k .
#
subr partition
mid = left
@ -22,10 +22,9 @@ proc qselect k . list[] res .
left = right
.
.
res = list[k]
return list[k]
.
d[] = [ 9 8 7 6 5 0 1 2 3 4 ]
for i = 1 to len d[]
qselect i d[] r
print r
print qselect d[] i
.