Dutch national flag problem: Difference between revisions

m
(Added Quackery.)
 
(4 intermediate revisions by the same user not shown)
Line 3,375:
=={{header|Quackery}}==
 
<syntaxhighlight lang="Quackery"> [ 1 ] is red ( --> n )
[ 2 ] is white ( --> n )
[ 3 ] is blue ( --> n )
 
randomise
[ true swap
 
behead do swap
[] ' [ red white blue ]
witheach
[ do tuck > if
[ dip notnested swap
5 random times [ over conclude ]join ]
[ true swap join ]
drop ] is sorted ( [ --> b )
 
dup [ shuffle dup sorted2dup not!= until ] nip
 
[] 4 random 1+ times [ ' red nested join ]
4 random 1+ times [ ' white nested join ]
4 random 1+ times [ ' blue nested join ]
[ shuffle dup sorted not until ]
say "Before sorting: " dup echo cr
say " After sorting: " sortwith [ dip do do > ] echo cr</syntaxhighlight>
Line 3,398 ⟶ 3,394:
{{out}}
 
<pre>Before sorting: [ white blue white blue redwhite redblue blue whitered red blue white red ]
After sorting: [ red red red redwhite white white white blue blue blue blue ]
</pre>
 
1,493

edits