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/SNOBOL4/determine-if-a-string-is-numeric.sno
+++ b/Task/Determine-if-a-string-is-numeric/SNOBOL4/determine-if-a-string-is-numeric.sno
@ -0,0 +1,20 @@
+        define('nchk(str)') :(nchk_end)
+nchk    convert(str,'real') :s(return)f(freturn)
+nchk_end
+
+*       # Wrapper for testing
+        define('isnum(str)') :(isnum_end)
+isnum   isnum = 'F'; isnum = nchk(str) 'T'
+        isnum = isnum ': ' str :(return)
+isnum_end
+
+*       # Test and display
+        output = isnum('123')
+        output = isnum('123.0')
+        output = isnum('123.')
+        output = isnum('-123')
+        output = isnum('3.14159')
+        output = isnum('1.2.3')
+        output = isnum('abc')
+        output = isnum('A440')
+end