March 2014 update

2014-04-02 16:56:35 +00:00 · 2014-04-02 16:56:35 +00:00 · a25938f123
commit a25938f123
parent 09687c4926
1846 changed files with 21876 additions and 5203 deletions
--- a/Task/Metaprogramming/Common-Lisp/metaprogramming-4.lisp
+++ b/Task/Metaprogramming/Common-Lisp/metaprogramming-4.lisp
@ -1,2 +1,8 @@
-(identity-comp (list x y z) (x 1) (y (* 3 x)) (z (+ x y)))
->  (1 3 4)
+;; The -> notation is not part of Lisp, it is used in examples indicate the output of a form.
+;;
+;;
+(comprehend 'list-monad (cons x y) (x '(1 2 3)) (y '(A B C)))
+
+     -> ((1 . A) (1 . B) (1 . C)
+         (2 . A) (2 . B) (2 . C)
+         (3 . A) (3 . B) (3 . C))