9 lines
180 B
Common Lisp
9 lines
180 B
Common Lisp
(while (read)
|
|
(when (num? @)
|
|
(println (* @ @)) ) )
|
|
abc # Not a number
|
|
7 # Number
|
|
49 # -> print square
|
|
xyz # Not a number
|
|
3 # Number
|
|
9 # -> print square
|