Dutch national flag problem: Difference between revisions

m
(Added Easylang)
Line 1,402:
<syntaxhighlight>
col$[] = [ "red" "white" "blue" ]
for i to 168
b[] &= random 3
.
for b in= b[1]
for b in b[]
write col$[b] & " "
if b[j] < b[i]b0
not_sorted = 1
.
b0 = b
.
print ""
print ""
if not_sorted = 0
for i = 1 to len b[] - 1
print "already sorted"
for j = i + 1 to len b[]
else
if b[j] < b[i]
for i = 1 to swaplen b[j] b[i]- 1
for ij = i + 1 to len b[] - 1
for j = i + 1 toif lenb[j] < b[i]
swap b[j] b[i]
.
.
.
for b in b[]
.
write col$[b] & " "
for b in b[]
.
write col$[b] & " "
.
</syntaxhighlight>
1,995

edits