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/REBOL/determine-if-a-string-is-numeric.rebol
+++ b/Task/Determine-if-a-string-is-numeric/REBOL/determine-if-a-string-is-numeric.rebol
@ -0,0 +1,35 @@
+REBOL [
+	Title: "Is Numeric?"
+	Author: oofoe
+	Date: 2009-12-04
+	URL: http://rosettacode.org/wiki/IsNumeric
+]
+
+; Built-in.
+
+numeric?: func [x][not error? try [to-decimal x]]
+
+; Parse dialect for numbers.
+
+sign:   [0 1 "-"]
+digit:  charset "0123456789"
+int:    [some digit]
+float:  [int "." int]
+number: [
+	sign float ["e" | "E"] sign int |
+	sign int ["e" | "E"] sign int |
+	sign float |
+	sign int
+]
+
+pnumeric?: func [x][parse x number]
+
+; Test cases.
+
+cases: parse {
+   10 -99
+   10.43 -12.04
+   1e99 1.0e10 -10e3 -9.12e7 2e-4 -3.4E-5
+   3phase  Garkenhammer  e  n3v3r  phase3
+} none
+foreach x cases [print [x  numeric? x  pnumeric? x]]