RosettaCodeData/Task/Loops-Nested/PicoLisp/loops-nested-1.l

6 lines
139 B
Plaintext

(for Lst (make (do 10 (link (make (do 10 (link (rand 1 20)))))))
(T
(for N Lst
(printsp N)
(T (= N 20) T) ) ) )