Data commit

Task/Apply-a-callback-to-an-array/Fe/apply-a-callback-to-an-array.fe

@@ -0,0 +1,10 @@
+(= map (fn (f lst)
+  (let res (cons nil nil))
+  (let tail res)
+  (while lst
+    (setcdr tail (cons (f (car lst)) nil))
+    (= lst (cdr lst))
+    (= tail (cdr tail)))
+  (cdr res)))
+
+(print (map (fn (x) (* x x)) '(1 2 3 4 5 6 7 8 9 10)))