LispForum

Ok I managed to figure out a way to solve it. Is there a better way?

(defun day (n) (mod n 100))
(defun month (n) (mod (/ (- n (day n)) 100) 100))
(defun year (n) (/ (- n (day n) (* (month n) 100)) 10000))

Hey I just started learning lisp, and there's a problem in my text-book I just can't seem to solve. Hope someone can help out. We have a date in the form yyyymmdd. Define 3 functions year, month and day, which from a date will give the values year, month and day. e.g: (year 19980220) ->1998 (month 1...