A-M baby

Task/Compile-time-calculation/Factor/compile-time-calculation.factor

@@ -0,0 +1,3 @@
+: factorial ( n -- n! ) [1,b] product ;
+
+CONSTANT: 10-factorial $[ 10 factorial ]

Task/Compile-time-calculation/J/compile-time-calculation-1.j

@@ -0,0 +1 @@
+pf10=: smoutput bind (!10)

Task/Compile-time-calculation/J/compile-time-calculation-2.j

@@ -0,0 +1,26 @@
+   9!:3]1 2 4 5 6
+
+   pf10
+┌───────────────────────────────────────┐
+│┌─┬───────────────────────────────────┐│
+││@│┌────────┬────────────────────────┐││
+││ ││smoutput│┌─┬────────────────────┐│││
+││ ││        ││"│┌────────────┬─────┐││││
+││ ││        ││ ││┌─┬────────┐│┌─┬─┐│││││
+││ ││        ││ │││0│3.6288e6│││0│_││││││
+││ ││        ││ ││└─┴────────┘│└─┴─┘│││││
+││ ││        ││ │└────────────┴─────┘││││
+││ ││        │└─┴────────────────────┘│││
+││ │└────────┴────────────────────────┘││
+│└─┴───────────────────────────────────┘│
+└───────────────────────────────────────┘
+┌────────┬─┬──────────────┐
+│smoutput│@│┌────────┬─┬─┐│
+│        │ ││3.6288e6│"│_││
+│        │ │└────────┴─┴─┘│
+└────────┴─┴──────────────┘
+      ┌─ smoutput
+── @ ─┤          ┌─ 3628800
+      └─ " ──────┴─ _
+smoutput@(3628800"_)
+smoutput@(3628800"_)

Task/Compile-time-calculation/J/compile-time-calculation-3.j

@@ -0,0 +1,2 @@
+   pf10 ''
+3628800

Task/Compile-time-calculation/Mathematica/compile-time-calculation-1.mathematica

@@ -0,0 +1 @@
+f = Compile[{}, 10!]

Task/Compile-time-calculation/Mathematica/compile-time-calculation-2.mathematica

@@ -0,0 +1 @@
+f[]