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

12
Task/Sorting-algorithms-Radix-sort/EasyLang/sorting-algorithms-radix-sort.easy
View file

@ -1,18 +1,14 @@
proc sort . d[] .
proc sort &d[] .
# radix = 10
radix = 256
max = 0
max = -1 / 0
for di = 1 to len d[]
if d[di] > max
max = d[di]
.
max = higher d[di] max
.
len buck[][] radix
pos = 1
while pos <= max
for i = 1 to radix
len buck[i][] 0
.
for i = 1 to radix : len buck[i][] 0
for di = 1 to len d[]
h = d[di] div pos mod radix + 1
buck[h][] &= d[di]