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/Apply-a-callback-to-an-array/ACL2/apply-a-callback-to-an-array.acl2
+++ b/Task/Apply-a-callback-to-an-array/ACL2/apply-a-callback-to-an-array.acl2
@ -1,5 +1,8 @@
-(defun sq-each (xs)
+(defun apply-to-each (xs)
   (if (endp xs)
       nil
-       (cons (* (first xs) (first xs))
+       (cons (fn-to-apply (first xs))
             (sq-each (rest xs)))))
+
+(defun fn-to-apply (x)
+   (* x x))