Data commit

Task/Determine-if-a-string-is-numeric/Bracmat/determine-if-a-string-is-numeric-1.bracmat

@@ -0,0 +1,11 @@
+43257349578692:/
+    F
+
+260780243875083/35587980:/
+    S
+
+247/30:~/#
+    F
+
+80000000000:~/#
+    S

Task/Determine-if-a-string-is-numeric/Bracmat/determine-if-a-string-is-numeric-2.bracmat

@@ -0,0 +1,29 @@
+@("1.000-4E-10":~/# (|"." (|? 0|`) (|~/#:>0)) (|(E|e) ~/#))
+ F
+
+@("1.0004E-54328":~/# (|"." (|? 0|`) (|~/#:>0)) (|(E|e) ~/#))
+ S
+
+@("-464641.0004E-54328":~/# (|"." (|? 0|`) (|~/#:>0)) (|(E|e) ~/#))
+ S
+
+@("1/2.0004E-10":~/# (|"." (|? 0|`) (|~/#:>0)) (|(E|e) ~/#))
+ F
+
+@("1357E-10":~/# (|"." (|? 0|`) (|~/#:>0)) (|(E|e) ~/#))
+ S
+
+@("1357e0":~/# (|"." (|? 0|`) (|~/#:>0)) (|(E|e) ~/#))
+ S
+
+@("13579":~/# (|"." (|? 0|`) (|~/#:>0)) (|(E|e) ~/#))
+ S
+
+@("1.246":~/# (|"." (|? 0|`) (|~/#:>0)) (|(E|e) ~/#))
+ S
+
+@("0.0":~/# (|"." (|? 0|`) (|~/#:>0)) (|(E|e) ~/#))
+ S
+
+@("0.0000":~/# (|"." (|? 0|`) (|~/#:>0)) (|(E|e) ~/#))
+ S

Task/Determine-if-a-string-is-numeric/Bracmat/determine-if-a-string-is-numeric-3.bracmat

@@ -0,0 +1,35 @@
+(float2fraction=
+  integerPart decimalPart d1 dn exp sign
+.   @( !arg
+     :   ~/#?integerPart
+         ( &0:?decimalPart:?d1:?dn
+         |   "."
+             [?d1
+             (|? 0|`)
+             ( &0:?decimalPart
+             | ~/#?decimalPart:>0
+             )
+             [?dn
+         )
+         ( &0:?exp
+         | (E|e) ~/#?exp
+         )
+     )
+  & ( !integerPart*(-1:?sign):>0:?integerPart
+    | 1:?sign
+    )
+  & !sign*(!integerPart+!decimalPart*10^(!d1+-1*!dn))*10^!exp
+);
+
+( out$float2fraction$"1.2"
+& out$float2fraction$"1.02"
+& out$float2fraction$"1.01"
+& out$float2fraction$"10.01"
+& out$float2fraction$"10.01e10"
+& out$float2fraction$"10.01e1"
+& out$float2fraction$"10.01e2"
+& out$float2fraction$"10.01e-2"
+& out$float2fraction$"-10.01e-2"
+& out$float2fraction$"-10e-2"
+& out$float2fraction$"0.000"
+);