Department numbers: Difference between revisions
Content added Content deleted
(Added solution for Action!) |
|||
Line 3,867: | Line 3,867: | ||
IF S < 7 THEN GOTO 20 |
IF S < 7 THEN GOTO 20 |
||
IF P < 6 THEN GOTO 10</lang> |
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}}== |
=={{header|Visual Basic .NET}}== |