11 lines
347 B
Text
11 lines
347 B
Text
#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)))))
|
|
)
|
|
}
|