diff options
| -rw-r--r-- | examples.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/examples.lisp b/examples.lisp index 212bb21..8d9204c 100644 --- a/examples.lisp +++ b/examples.lisp @@ -12,6 +12,6 @@ #$(mapcar #'* (loop :for i :upto (length $digits) :collect (1+ (mod i 2))) $digits) - #$(mapcar #$$(if (> $$x 9) (- $$x 9) $$x) $digits) + #$(mapcar #$$(if (> $$x 9) (- $$x 9) $$x) $digits) ;; <-- nested partial eval #$(zerop (mod (apply #'+ $digits) 10)))) |