lc.lisp @@ -92,11 +92,14 @@ mimics the way you declare a set in mathematics and sometimes are more succinct and readable than using a composition of MAPCAR, DELETE-IF or an ad hoc imperative loop. +Here are two examples on how to use the LC (short for list +comprehension) macro: + ----------------------------------------------------------------------- - CL-USER> (assemble (sin x) (<- x (range 0 .25 (/ pi 2)))) + CL-USER> (lc (sin x) (<- x (range 0 .25 (/ pi 2)))) (0.0 0.24740396 0.47942555 0.6816388 0.84147096 0.9489846 0.997495) - CL-USER> (assemble (cons x y) (<- x (range 0 2)) (<- y (range 0 2)) - (= (+ x y) 2)) + CL-USER> (lc (cons x y) (<- x (range 0 2)) (<- y (range 0 2)) + (= (+ x y) 2)) ((0 . 2) (1 . 1) (2 . 0)) ----------------------------------------------------------------------- @@ -123,7 +126,7 @@ Suppose you have the package TEST, defined as follows: Examples: - TEST> (assemble (factorial n) (<- n (range 1 5))) + TEST> (lc (factorial n) (<- n (range 1 5))) (1 2 6 24 120) TEST> (factorial 450/15) README @@ -35,7 +35,7 @@ :components ((:file "package") (:file "function") (:file "vector") - (:file "assemble") + (:file "lc") (:file "unfold") (:file "range") (:file "prelude") incf-cl.asd @@ -152,11 +152,11 @@ (is (eq t (ends-with "Hello, world!" "world!"))) (is (eq nil (ends-with "Hello, world!" "world")))) -(deftest test-assemble () - (is (eq nil (assemble (constantly nil)))) - (is (equal (list 1 2 3) (assemble x (<- x (range 1 3))))) +(deftest test-lc () + (is (eq nil (lc (constantly nil)))) + (is (equal (list 1 2 3) (lc x (<- x (range 1 3))))) (is (equal (acons 0 0 (acons 0 1 (acons 1 0 (acons 1 1 nil)))) - (assemble (cons i j) (<- i '(0 1)) (<- j '(0 1)))))) + (lc (cons i j) (<- i '(0 1)) (<- j '(0 1)))))) (deftest test-hash-table->alist () (is (equal (sort (hash-table->alist tests.lisp assemble.lisp bbc827aedbb5ef6c42fd456e088eae15afddfd18 Juan M. Bello Rivas jmbr@superadditive.com http://github.com/jmbr/incf-cl/commit/47f55cb0c20c26053192c2b2ba0c9df616d0174f 47f55cb0c20c26053192c2b2ba0c9df616d0174f 2008-03-14T04:48:59-07:00 2008-03-14T04:48:59-07:00 Deprecated ASSEMBLE in favor of LC. 2f4ccf6784751995d7d0962edfae4a4569c27099 Juan M. Bello Rivas jmbr@superadditive.com