Data update

Task/Compile-time-calculation/Ada/compile-time-calculation-1.adb

@@ -0,0 +1,7 @@
+with Ada.Text_Io;
+procedure CompileTimeCalculation is
+   Factorial : constant Integer := 10*9*8*7*6*5*4*3*2*1;
+
+begin
+   Ada.Text_Io.Put(Integer'Image(Factorial));
+end CompileTimeCalculation;

Task/Compile-time-calculation/Ada/compile-time-calculation-2.adb

@@ -0,0 +1,16 @@
+with Ada.Text_Io;
+procedure CompileTimeCalculation is
+
+   function Factorial (Int : in Integer) return Integer is
+   begin
+      if Int > 1 then
+         return Int * Factorial(Int-1);
+      else
+         return 1;
+      end if;
+   end;
+
+     Fact10 : Integer := Factorial(10);
+begin
+   Ada.Text_Io.Put(Integer'Image(Fact10));
+end CompileTimeCalculation;

Task/Compile-time-calculation/Ada/compile-time-calculation-3.adb

@@ -0,0 +1,12 @@
+with Ada.Text_IO;
+
+procedure Unbounded_Compile_Time_Calculation is
+   F_10 : constant Integer := 10*9*8*7*6*5*4*3*2*1;
+   A_11_15 : constant Integer := 15*14*13*12*11;
+   A_16_20 : constant Integer := 20*19*18*17*16;
+begin
+   Ada.Text_IO.Put_Line -- prints out
+     ("20 choose 10 =" & Integer'Image((A_11_15 * A_16_20 * F_10) / (F_10 * F_10)));
+--   Ada.Text_IO.Put_Line -- would not compile
+--     ("Factorial(20) =" & Integer'Image(A_11_15 * A_16_20 * F_10));
+end Unbounded_Compile_Time_Calculation;

Task/Compile-time-calculation/Ada/compile-time-calculation-4.adb

@@ -0,0 +1,2 @@
+   Ada.Text_IO.Put_Line -- would not compile
+      ("Factorial(20) =" & Integer'Image(A_11_15 * A_16_20 * F_10));

Task/Compile-time-calculation/Crystal/compile-time-calculation.cr

@@ -0,0 +1,3 @@
+fac10 = {{ (1..10).to_a.reduce {|a, b| a * b } }}
+
+p fac10

Task/Compile-time-calculation/Pluto/compile-time-calculation.pluto

@@ -0,0 +1,7 @@
+$define factorial10 = 2 * 3 * 4 * 5 * 6 * 7 * 8 * 9 * 10
+print(factorial10)
+
+$define factorial11 = factorial10 * 11
+print(factorial11)
+
+print($crypto.sha256("Pluto"))

Task/Compile-time-calculation/PowerShell/compile-time-calculation.ps1

@@ -0,0 +1,14 @@
+function fact([BigInt]$n){
+    if($n -ge ([BigInt]::Zero)) {
+        $fact = [BigInt]::One
+        ([BigInt]::One)..$n | foreach{
+            $fact = [BigInt]::Multiply($fact, $_)
+        }
+        $fact
+
+    } else {
+        Write-Error "$n is lower than 0"
+    }
+}
+"$((Measure-Command {$fact = fact 10}).TotalSeconds) Seconds"
+$fact