Data commit

Task/Closures-Value-capture/Scheme/closures-value-capture-1.ss

@@ -0,0 +1,11 @@
+;;; Collecting lambdas in a tail-recursive function.
+(define (build-list-of-functions n i list)
+  (if (< i n)
+      (build-list-of-functions n (+ i 1) (cons (lambda () (* (- n i) (- n i))) list))
+      list))
+
+(define list-of-functions (build-list-of-functions 10 1 '()))
+
+(map (lambda (f) (f)) list-of-functions)
+
+((list-ref list-of-functions 8))

Task/Closures-Value-capture/Scheme/closures-value-capture-2.ss

@@ -0,0 +1,2 @@
+'(1 4 9 16 25 36 49 64 81)
+81

Task/Closures-Value-capture/Scheme/closures-value-capture-3.ss

@@ -0,0 +1,6 @@
+(define list-of-functions (map (lambda (x) (lambda () (* x x))) (iota 0 1 10)))
+
+; print the result
+(display
+  (map (lambda (n) (n)) list-of-functions)
+(newline)