Dutch national flag problem: Difference between revisions
Content added Content deleted
m (→{{header|Picat}}: Added {{out}}) |
|||
Line 2,770: | Line 2,770: | ||
<lang Picat>go => |
<lang Picat>go => |
||
_ = random2(), % random seed |
_ = random2(), % random seed |
||
N=21, |
N = 21, |
||
Map = new_map([1=red,2=white,3=blue]), |
Map = new_map([1=red,2=white,3=blue]), |
||
[Rand,Sorted] = dutch_random_sort(N,Map,Map.inverse()), |
[Rand,Sorted] = dutch_random_sort(N,Map,Map.inverse()), |
||
Line 2,793: | Line 2,793: | ||
inverse(Map) = new_map([V=K : K=V in Map]).</lang> |
inverse(Map) = new_map([V=K : K=V in Map]).</lang> |
||
{{out}} |
|||
Output: |
|||
<pre>rand = [red,blue,white,white,white,blue,blue,blue,red,red,blue,white,blue,blue,red,white,blue,blue,white,white,red] |
<pre>rand = [red,blue,white,white,white,blue,blue,blue,red,red,blue,white,blue,blue,red,white,blue,blue,white,white,red] |
||
sorted = [red,red,red,red,red,white,white,white,white,white,white,white,blue,blue,blue,blue,blue,blue,blue,blue,blue] |
sorted = [red,red,red,red,red,white,white,white,white,white,white,white,blue,blue,blue,blue,blue,blue,blue,blue,blue]</pre> |
||
</pre> |
|||
=={{header|PicoLisp}}== |
=={{header|PicoLisp}}== |