Department numbers: Difference between revisions
→add Transd
(Added solution for Action!) |
|||
Line 3,867:
IF S < 7 THEN GOTO 20
IF P < 6 THEN GOTO 10</lang>
=={{header|Transd}}==
<lang scheme>#lang transd
MainModule : {
_start: (lambda
(lout "Police | Sanit. | Fire")
(for i in Range(1 8) where (not (mod i 2)) do
(for j in Range(1 8) where (neq i j) do
(for k in Range(1 8) where (and (neq i k) (neq j k)) do
(if (eq (+ i j k) 12) (lout i " " j " " k)))))
)
}</lang>{{out}}
<pre>
Police | Sanit. | Fire
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|Visual Basic .NET}}==
| |||