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

15
Task/Sorting-algorithms-Bubble-sort/11l/sorting-algorithms-bubble-sort.11l Normal file
View file

@ -0,0 +1,15 @@
F bubble_sort(&seq)
V changed = 1B
L changed == 1B
changed = 0B
L(i) 0 .< seq.len - 1
I seq[i] > seq[i + 1]
swap(&seq[i], &seq[i + 1])
changed = 1B
V testset = Array(0.<100)
V testcase = copy(testset)
random:shuffle(&testcase)
assert(testcase != testset)
bubble_sort(&testcase)
assert(testcase == testset)