Data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · cb5bb5e222
commit cb5bb5e222
parent 7387c8f97b
199093 changed files with 3378972 additions and 0 deletions
--- a/Task/Determine-if-a-string-is-numeric/EasyLang/determine-if-a-string-is-numeric.easy
+++ b/Task/Determine-if-a-string-is-numeric/EasyLang/determine-if-a-string-is-numeric.easy
@ -0,0 +1,14 @@
+proc is_numeric a$ . r .
+  h = number a$
+  r = 1 - error
+  # because every variable must be used
+  h = h
+.
+for s$ in [ "abc" "21a" "1234" "-13" "7.65" ]
+  call is_numeric s$ r
+  if r = 1
+    print s$ & " is numeric"
+  else
+    print s$ & " is not numeric"
+  .
+.