Dutch national flag problem: Difference between revisions
Content deleted Content added
Added SQL implementation |
→{{header|Lasso}}: Adding Lasso example |
||
Line 890:
Anyways, we can test that they are indeed sorted properly:
<lang J> assert@(-: /:~)&b2i /:~&.b2i BALLS</lang>
=={{header|Lasso}}==
<lang Lasso>define orderdutchflag(a) => {
local(r = array, w = array, b = array)
with i in #a do => {
match(#i) => {
case('Red')
#r->insert(#i)
case('White')
#w->insert(#i)
case('Blue')
#b->insert(#i)
}
}
return #r + #w + #b
}
orderdutchflag(array('Red', 'Red', 'Blue', 'Blue', 'Blue', 'Red', 'Red', 'Red', 'White', 'Blue'))</lang>
{{out}}
<pre>array(Red, Red, Red, Red, Red, White, Blue, Blue, Blue, Blue)</pre>
=={{header|Logo}}==
| |||