4 lines
189 B
Common Lisp
4 lines
189 B
Common Lisp
(loop as n in '(123 12345 1234567 987654321
|
|
10001 -10001 -123 -100 100 -12345
|
|
1 2 -1 -10 2002 -2002 0)
|
|
do (format t "~d:~12t~a~%" n (mid3 n)))
|