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

Initial data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 72d218235f
commit f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

26
Task/Sorting-algorithms-Bead-sort/11l/sorting-algorithms-bead-sort.11l Normal file
View file

@ -0,0 +1,26 @@
F bead_sort(&a)
V maxv = max(a)
V beads = [0] * (maxv * a.len)
L(i) 0 .< a.len
L(j) 0 .< a[i]
beads[i * maxv + j] = 1
L(j) 0 .< maxv
V sum = 0
L(i) 0 .< a.len
sum += beads[i * maxv + j]
beads[i * maxv + j] = 0
L(i) a.len - sum .< a.len
beads[i * maxv + j] = 1
L(i) 0 .< a.len
V j = 0
L j < maxv & beads[i * maxv + j] > 0
j++
a[i] = j
V a = [5, 3, 1, 7, 4, 1, 1, 20]
bead_sort(&a)
print(a)