Just another update

2015-02-20 00:35:01 -05:00 · 2015-02-20 00:35:01 -05:00 · 00a190b0a6
commit 00a190b0a6
parent a25938f123
6591 changed files with 94363 additions and 23227 deletions
--- a/Task/Map-range/ACL2/map-range.acl2
+++ b/Task/Map-range/ACL2/map-range.acl2
@ -2,3 +2,13 @@
   (+ b1 (/ (* (- s a1)
               (- b2 b1))
            (- a2 a1))))
+
+(defun map-each (a1 a2 b1 b2 ss)
+   (if (endp ss)
+       nil
+       (cons (mapping a1 a2 b1 b2 (first ss))
+             (map-each a1 a2 b1 b2 (rest ss)))))
+
+(map-each 0 10 -1 0 '(0 1 2 3 4 5 6 7 8 9 10))
+
+;; (-1 -9/10 -4/5 -7/10 -3/5 -1/2 -2/5 -3/10 -1/5 -1/10 0)