Embed Notice

@loke @ksaj @praetor
Gotta read thread but here:
(require :series)
(series::install)
(defun dogs-age (years &optional (months 0))
(let*
((d0m (scan-range :from 0 :below 12))
(h0y (#M* d0m (series 15/12)))
(d1m (scan-range :from 12 :below 24))
(h1y (#M+ (#M* d0m (series 9/12)) (series 15)))
(d2+ (scan-range :from 24))
(h2+ (#M+ (series 24) (#m* (series 5/12) (#m- d2+ (series 24))))))
(collect-nth (+ months (* 12 years))
(catenate h0y h1y h2+))))