RosettaCodeData/Task/Middle-three-digits/PicoLisp/middle-three-digits-2.l
2014-01-17 05:34:36 +00:00

3 lines
120 B
Common Lisp

(mapc middle3digits
(123 12345 1234567 987654321 10001 -10001 -123 -100 100 -12345
1 2 -1 -10 2002 -2002 0 ) )