6 lines
196 B
Text
6 lines
196 B
Text
|
(define width (string->number (read-line)))
|
||
|
|
(define height (string->number (read-line)))
|
||
|
|
(if (and width height)
|
||
|
|
(list-seed height (list-seed width #t))
|
||
|
|
(! "A non-number value was submitted"))
|