Common Lisp, paragon of FP: (loop for x across numbers when (evenp x) do (setf result (+ result x))) I mean yeah, you can do FP in CL, but

Common Lisp, paragon of FP: (loop for x across numbers when (evenp x) do (setf result (+ result x))) I mean yeah, you can do FP in CL, but it allows you to program in any paradigm which you prefer.