RosettaCodeData/Task/Forward-difference/PicoLisp/forward-difference.l

6 lines
116 B
Text
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
(de fdiff (Lst)
(mapcar - (cdr Lst) Lst) )
(for (L (90 47 58 29 22 32 55 5 55 73) L (fdiff L))
(println L) )