Department numbers: Difference between revisions
→{{header|PicoLisp}}
(add PicoLisp) |
|||
Line 2,049:
(6 4 2)
(6 5 1)
</pre>
===Pilog===
<lang PicoLisp>(be departments (@Pol @Fire @San)
(member @Pol (2 4 6))
(for @Fire 1 7)
(for @San 1 7)
(different @Pol @Fire)
(different @Pol @San)
(different @Fire @San)
(^ @
(= 12
(+ (-> @Pol) (-> @Fire) (-> @San)) ) ) )</lang>
{{out}}
<pre>
: (? (departments @Police @Fire @Sanitation))
@Police=2 @Fire=3 @Sanitation=7
@Police=2 @Fire=4 @Sanitation=6
@Police=2 @Fire=6 @Sanitation=4
@Police=2 @Fire=7 @Sanitation=3
@Police=4 @Fire=1 @Sanitation=7
@Police=4 @Fire=2 @Sanitation=6
@Police=4 @Fire=3 @Sanitation=5
@Police=4 @Fire=5 @Sanitation=3
@Police=4 @Fire=6 @Sanitation=2
@Police=4 @Fire=7 @Sanitation=1
@Police=6 @Fire=1 @Sanitation=5
@Police=6 @Fire=2 @Sanitation=4
@Police=6 @Fire=4 @Sanitation=2
@Police=6 @Fire=5 @Sanitation=1
-> NIL
</pre>
| |||