Just another update

2015-02-20 00:35:01 -05:00 · 2015-02-20 00:35:01 -05:00 · 00a190b0a6
commit 00a190b0a6
parent a25938f123
6591 changed files with 94363 additions and 23227 deletions
--- a/Task/Determine-if-a-string-is-numeric/Seed7/determine-if-a-string-is-numeric.seed7
+++ b/Task/Determine-if-a-string-is-numeric/Seed7/determine-if-a-string-is-numeric.seed7
@ -0,0 +1,12 @@
+$ include "seed7_05.s7i";
+  include "scanstri.s7i";
+
+const func boolean: isNumeric (in var string: stri) is func
+  result
+    var boolean: isNumeric is FALSE;
+  local
+    var string: numberStri is "";
+  begin
+    numberStri := getNumber(stri);
+    isNumeric := stri = "";
+  end func;