diff options
author | Tom Barrett <tom@tombarrett.xyz> | 2021-06-30 17:20:46 +0200 |
---|---|---|
committer | Tom Barrett <tom@tombarrett.xyz> | 2021-06-30 17:20:46 +0200 |
commit | ee57979cfaf37aaf1d7c72155a3f65cc02caa286 (patch) | |
tree | fb1867efd7d9eae3daf8ce89e3de752fa983307b /p2.lisp |
Diffstat (limited to 'p2.lisp')
-rw-r--r-- | p2.lisp | 14 |
1 files changed, 14 insertions, 0 deletions
@@ -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) |