Department numbers: Difference between revisions
Added Arturo implementation
MaiconSoft (talk | contribs) (Added Delphi example) |
Drkameleon (talk | contribs) (Added Arturo implementation) |
||
Line 653:
Number of options: 14</pre>
=={{header|Arturo}}==
<lang rebol>loop 1..7 'x [
loop 1..7 'y [
loop 1..7 'z [
if all? @[
even? x
12 = sum @[x y z]
3 = size unique @[x y z]
] -> print [x y z]
]
]
]</lang>
{{out}}
<pre>2 3 7
2 4 6
2 6 4
2 7 3
4 1 7
4 2 6
4 3 5
4 5 3
4 6 2
4 7 1
6 1 5
6 2 4
6 4 2
6 5 1</pre>
=={{header|AutoHotkey}}==
|