editing readme

1 files changed, 18 insertions, 5 deletions

diff --git a/README.org b/README.org
index 73a61c2..375a6cd 100644
--- a/README.org
+++ b/README.org
@@ -23,6 +23,12 @@ Here is a basic example
 
  #+begin_src lisp :results verbatim
 
+ (let ((xs (list 1 2 3 4 5 6)))
+   (remove-if-not (lambda (x) (member x xs))
+                  (loop repeat 20 collect (random 10))))
+
+ ;; could be written
+
  (let ((xs (list 1 2 3 4 5 6))) 
    (remove-if-not #$(member $x xs)
                   (loop repeat 20 collect (random 10))))
@@ -46,7 +52,6 @@ as a parameter of the anonymous function being defined.
 Outputs
 : ((1 2) (10 10 10))
 
-
 *** Numbered Parameters 
 
 Examples of numbered parameters:
@@ -77,7 +82,7 @@ Outputs
 In the above ='second= is passed in as the first argument, and
 ='first= is passed as the second argument.  
 
-Interestingly the numbers do not have to be sequentail, they are
+Interestingly the numbers do not have to be sequential, they are
 merely sorted in ascending order:
 
 #+begin_src lisp :results verbatim 
@@ -102,9 +107,17 @@ This is easer to understand through example:
 ;; map over a list of lists, subtracting 9 from any member of a list
 ;; that is greater than 9
 
-(mapcar #$(mapcar
-           #$$(if (> $$x 9) (- $$x 9) $$x)  ; our nested form
-           $digit-list)                     
+;; without lambda-riffs,  you might do:
+
+(mapcar (lambda (digit-list)
+          (mapcar (lambda (x) (if (> x 9) (- x 9) x))
+                  digit-list))
+        '((1 2 3 4 5 6 7 8 9)
+          (10 11 12 12 14 15 16 17 18)))
+
+;; with lambda-riffs, you can do
+
+(mapcar #$(mapcar #$$(if (> $$x 9) (- $$x 9) $$x) $digit-list)                     
         '((1 2 3 4 5 6 7 8 9)
           (10 11 12 12 14 15 16 17 18)))
 #+end_src