RosettaCodeData/Task/100-doors/PicoLisp/100-doors-3.l
2013-04-10 14:23:37 -07:00

6 lines
146 B
Text

(let Doors (need 100)
(for I (sqrt 100)
(set (nth Doors (* I I)) T) )
(make
(for (N . D) Doors
(when D (link N)) ) ) )