Another update from ingydotnet^djgoku

Task/Compile-time-calculation/Haskell/compile-time-calculation-1.hs

@@ -0,0 +1,7 @@
+module Factorial where
+import Language.Haskell.TH.Syntax
+
+fact n = product [1..n]
+
+factQ :: Integer -> Q Exp
+factQ = lift . fact

Task/Compile-time-calculation/Haskell/compile-time-calculation-2.hs

@@ -0,0 +1,4 @@
+{-# LANGUAGE TemplateHaskell #-}
+import Factorial
+
+main = print $(factQ 10)

Task/Compile-time-calculation/Haskell/compile-time-calculation.hs

@@ -1,5 +0,0 @@
-{-# LANGUAGE QuasiQuotes, TemplateHaskell #-}
-
-fact n = product [1..n]
-
-main = print $([|fact 10|])

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

@@ -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