From ee57979cfaf37aaf1d7c72155a3f65cc02caa286 Mon Sep 17 00:00:00 2001 From: Tom Barrett Date: Wed, 30 Jun 2021 17:20:46 +0200 Subject: first three --- p2.lisp | 14 ++++++++++++++ 1 file changed, 14 insertions(+) create mode 100644 p2.lisp (limited to 'p2.lisp') diff --git a/p2.lisp b/p2.lisp new file mode 100644 index 0000000..488a755 --- /dev/null +++ b/p2.lisp @@ -0,0 +1,14 @@ +(setq a (list 1 2)) +(setq l 0) +(loop while (< l 4000000) do + (setq l (apply '+ (last a 2))) + (nconc a (list l)) +) + +(setq s 0) +(loop for i in a do + (if (eq (mod i 2) 0) + (setq s (+ s i)) + ) +) +(print s) -- cgit v1.2.3