9 lines
220 B
Text
9 lines
220 B
Text
DECLARE color$[] = { "red", "white", "blue" }
|
|
|
|
DOTIMES 16
|
|
ball$ = APPEND$(ball$, 0, color$[RANDOM(3)] )
|
|
DONE
|
|
|
|
PRINT "Unsorted: ", ball$
|
|
|
|
PRINT " Sorted: ", REPLACE$(SORT$(REPLACE$(ball$, "blue", "z")), "z", "blue")
|