langs a-z

2013-04-10 22:43:41 -07:00 · 2013-04-10 22:43:41 -07:00 · d066446780
commit d066446780
parent db842d013d
11389 changed files with 98361 additions and 1020 deletions
--- a/Task/Determine-if-a-string-is-numeric/Pike/determine-if-a-string-is-numeric.pike
+++ b/Task/Determine-if-a-string-is-numeric/Pike/determine-if-a-string-is-numeric.pike
@ -0,0 +1,12 @@
+int(0..1) is_number(string s)
+{
+    array test = array_sscanf(s, "%s%f%s");
+    if (sizeof(test) == 3 && test[1] && !sizeof(test[0]) && !sizeof(test[2]) )
+        return true;
+    else
+        return false;
+}
+
+string num = "-1.234"
+is_number(num);
+-> true