Plaster
New
List
Login
common-lisp
default
anonymous
2020.12.09 10:14:51
(loop for n «in or across» (make-seq (length (- spdata 2))) for nth-entry = (elt spdata n) for next-entry = (elt spdata (+ 1 n)) when (friday-p nth-entry) collect (change-by-percent nth-entry) and collect (change-by-percent next-entry))
Raw
Annotate
Repaste
Edit