13 lines
245 B
Scheme
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)))
|