RosettaCodeData/Task/Loops-Nested/Scheme/loops-nested-1.ss

13 lines
245 B
Scheme

(call-with-current-continuation
(lambda (return)
(for-each (lambda (a)
(for-each (lambda (b)
(cond ((= 20 b)
(newline)
(return))
(else
(display " ")(display b))))
a)
(newline))
array)))