Data commit

Task/Currying/Delphi/currying.delphi

@@ -0,0 +1,26 @@
+program Currying;
+
+{$APPTYPE CONSOLE}
+{$R *.res}
+
+uses
+  System.SysUtils;
+
+var
+  Plus: TFunc<Integer, TFunc<Integer, Integer>>;
+
+begin
+  Plus :=
+    function(x: Integer): TFunc<Integer, Integer>
+    begin
+      result :=
+        function(y: Integer): Integer
+        begin
+          result := x + y;
+        end;
+    end;
+
+  Writeln(Plus(3)(4));
+  Writeln(Plus(2)(Plus(3)(4)));
+  readln;
+end.