Data update

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

@@ -1,30 +0,0 @@
-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/Elena/closures-value-capture.elena

@@ -1,7 +1,7 @@
 import system'routines;
 import extensions;
 
-public program()
+public Program()
 {
     var functions := Array.allocate(10).populate::(int i => { ^ i * i} );
 

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

@@ -1,7 +0,0 @@
-;;  -*- 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/PowerShell/closures-value-capture-1.psh

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

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

@@ -1,9 +0,0 @@
-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.psh

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