Data update

Task/Closures-Value-capture/Ada/closures-value-capture.adb

@@ -0,0 +1,30 @@
+with Ada.Text_IO;
+
+procedure Value_Capture is
+
+   protected type Fun is -- declaration of the type of a protected object
+      entry Init(Index: Natural);
+      function Result return Natural;
+   private
+      N: Natural := 0;
+   end Fun;
+
+   protected body Fun is -- the implementation of a protected object
+      entry Init(Index: Natural) when N=0 is
+      begin -- after N has been set to a nonzero value, it cannot be changed any more
+         N := Index;
+      end Init;
+      function Result return Natural is (N*N);
+   end Fun;
+
+   A: array (1 .. 10) of Fun; -- an array holding 10 protected objects
+
+begin
+   for I in A'Range loop -- initialize the protected objects
+      A(I).Init(I);
+   end loop;
+
+   for I in A'First .. A'Last-1 loop -- evaluate the functions, except for the last
+      Ada.Text_IO.Put(Integer'Image(A(I).Result));
+   end loop;
+end Value_Capture;

Task/Closures-Value-capture/Emacs-Lisp/closures-value-capture.el

@@ -0,0 +1,7 @@
+;;  -*- lexical-binding: t; -*-
+(mapcar #'funcall
+        (mapcar (lambda (x)
+                  (lambda ()
+                    (* x x)))
+                '(1 2 3 4 5 6 7 8 9 10)))
+;; => (1 4 9 16 25 36 49 64 81 100)

Task/Closures-Value-capture/Jactl/closures-value-capture.jactl

@@ -0,0 +1,2 @@
+def f = 10.map{ i -> { -> i * i } }
+println f[5]()

Task/Closures-Value-capture/Pluto/closures-value-capture.pluto

@@ -0,0 +1,8 @@
+local fs = table.create(10)
+for i = 1, 10 do
+    fs[i] = || -> i * i
+end
+
+for i = 1, #fs - 1 do
+    print($"Function #{i}:  {fs[i]()}")
+end

Task/Closures-Value-capture/PowerShell/closures-value-capture-1.ps1

@@ -0,0 +1,4 @@
+function Get-Closure ([double]$Number)
+{
+    {param([double]$Sum) return $script:Number *= $Sum}.GetNewClosure()
+}

Task/Closures-Value-capture/PowerShell/closures-value-capture-2.ps1

@@ -0,0 +1,9 @@
+for ($i = 1; $i -lt 11; $i++)
+{
+    $total = Get-Closure -Number $i
+
+    [PSCustomObject]@{
+        Function = $i
+        Sum      = & $total -Sum $i
+    }
+}

Task/Closures-Value-capture/PowerShell/closures-value-capture-3.ps1

@@ -0,0 +1,11 @@
+$numbers = 1..20 | Get-Random -Count 10
+
+foreach ($number in $numbers)
+{
+    $total = Get-Closure -Number $number
+
+    [PSCustomObject]@{
+        Function = $number
+        Sum      = & $total -Sum $number
+    }
+}

Task/Closures-Value-capture/Rebol/closures-value-capture.rebol

@@ -0,0 +1,2 @@
+funs: collect [repeat i 10 [keep func [] reduce [i ** 2]]]
+funs/7