From 61c06fc10ee2bad8d810d342a707677ede2c5f78 Mon Sep 17 00:00:00 2001
From: Colin Okay <cbeok@protonmail.com>
Date: Thu, 13 Aug 2020 09:52:32 -0500
Subject: added example

---
 examples.lisp | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 examples.lisp

diff --git a/examples.lisp b/examples.lisp
new file mode 100644
index 0000000..7bd44e2
--- /dev/null
+++ b/examples.lisp
@@ -0,0 +1,15 @@
+
+(defpackage #:lt-examples
+  (:use #:cl #:lambda-toosl))
+
+
+;; http://rosettacode.org/wiki/Luhn_test_of_credit_card_numbers 
+(defun luhn (n)
+  (flet ((sum-dig (x) (if (> x 9) (- x 9) x)))
+    (>> n
+        #'reverse
+        ($$ (map 'list #'digit-char-p $char))
+        ($$ (mapcar #'*
+                    (loop :for i :upto (length $digits) :collect (1+ (mod i 2)))
+                    $digits))
+        ($$ (zerop (mod (apply #'+ (mapcar #'sum-dig $digits)) 10))))))
-- 
cgit v1.2.3