Data update

Task/Determine-if-a-string-is-numeric/Fantom/determine-if-a-string-is-numeric-2.fantom

@@ -0,0 +1,18 @@
+/* gary chike                                08/27/2023 */
+
+class Main {
+    static Void main() {
+        inputs := ["152\n", "-3.141", "Foo123", "-0", "456bar", "1.0E10"]
+
+        inputs.each |Str input| { echo("$input.trim \tis " + (isNumeric(input) ? "numeric" : "not numeric"))}
+
+    static Bool isNumeric(Str input) {
+        try {
+            input.toFloat
+            return true
+        }
+        catch(Err e) {
+            return false
+        }
+    }
+}

Task/Determine-if-a-string-is-numeric/Free-Pascal-Lazarus/determine-if-a-string-is-numeric-2.pas

@@ -0,0 +1,35 @@
+program IsNumeric;
+
+type
+    TDynamicArrayItem = record
+    StrValue: string;
+  end;
+
+var
+  myDynamicArray: array of TDynamicArrayItem;
+  i: Integer;
+  Value: Extended;
+  Code: Integer;
+
+begin
+  // Initialize the dynamic array with different data types
+  SetLength(myDynamicArray, 7);
+  myDynamicArray[0].StrValue := 'Hello';
+  myDynamicArray[1].StrValue := '42';
+  myDynamicArray[2].StrValue := '3.14159';
+  myDynamicArray[3].StrValue := 'World';
+  myDynamicArray[4].StrValue := '99';
+  myDynamicArray[5].StrValue := '0777'; // Octal representation for 511
+  myDynamicArray[6].StrValue := '$A1';  // Hexadecimal representation for 161
+
+  // Iterate through the dynamic array and determine data type
+  for i := Low(myDynamicArray) to High(myDynamicArray) do
+  begin
+    Val(myDynamicArray[i].StrValue, Value, Code);
+    if Code = 0 then // The value 0 for Code indicates that the conversion was successful.
+        Writeln('Element ', i, ': Numeric Value ', Chr(9),' - ', Value) // Chr(9) = tab
+    else
+        Writeln('Element ', i, ': Non-Numeric Value ', Chr(9), ' - ', myDynamicArray[i].StrValue);
+  end;
+end.
+{ Val converts the value represented in the string 'StrValue' to a numerical value or an enumerated value, and stores this value in the variable 'Value', which can be of type Longint, Real and Byte or any enumerated type. If the conversion isn't successful, then the parameter 'Code' contains the index of the character in 'StrValue' which prevented the conversion. }