Dutch national flag problem: Difference between revisions
Content added Content deleted
(Dutch national flag problem in BASIC256) |
(Applesoft BASIC) |
||
Line 535: | Line 535: | ||
{"red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "white", "white", "white", "white", "white", "white", "white", "white", "white", "white", "white", "white", "white", "white", "white", "white", "white", "white", "white", "white", "white", "white", "white", "white", "white", "white", "white", "white", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue"}</pre> |
{"red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "white", "white", "white", "white", "white", "white", "white", "white", "white", "white", "white", "white", "white", "white", "white", "white", "white", "white", "white", "white", "white", "white", "white", "white", "white", "white", "white", "white", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue", "blue"}</pre> |
||
=={{header|Applesoft BASIC}}== |
|||
{{trans|ZX_Spectrum_Basic}} |
|||
<lang ApplesoftBasic> 100 READ C$(0),C$(1),C$(2) |
|||
110 DATARED,WHITE,BLUE,0 |
|||
120 PRINT "RANDOM: |
|||
130 FOR N = 0 TO 9 |
|||
140 LET B%(N) = RND (1) * 3 |
|||
150 GOSUB 250 |
|||
160 NEXT N |
|||
170 PRINT |
|||
180 READ S |
|||
190 PRINT "SORTED: |
|||
200 FOR I = 0 TO 2 |
|||
210 FOR N = 0 TO 9 |
|||
220 ON B%(N) = I GOSUB 250 |
|||
230 NEXT N,I |
|||
240 END |
|||
250 PRINT SPC( S)C$(B%(N)); |
|||
260 LET S = 1 |
|||
270 RETURN </lang> |
|||
=={{header|AutoHotkey}}== |
=={{header|AutoHotkey}}== |
||
<lang AutoHotKey>RandGen(MaxBalls){ |
<lang AutoHotKey>RandGen(MaxBalls){ |