Sum of Pairs: Common Lisp solution by me

apauley · May 27, 2010 · 03a7c93 · 03a7c93
1 parent 75522b3
commit 03a7c93
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/CodeSnippets/SumPairs/sumpairs.lisp b/CodeSnippets/SumPairs/sumpairs.lisp
@@ -0,0 +1,4 @@
+; Common Lisp solution by Andreas Pauley
+
+(defvar a '(1 2 3 4 5))
+(mapcar #'+ a (cdr a))