Rosetta Code

Determine if a string is numeric: Difference between revisions

← Older editNewer edit →
Content deleted Content added
Nig (talk | contribs)
557 edits
→‎{{header|AppleScript}}: Added a slightly simpler version.
Chkas (talk | contribs)
2,197 edits
Line 1,464:
 
=={{header|EasyLang}}==
<lang>func is_numeric a$ . r% .
rh = 0numberf a$
hr% = number1 a$- error
if error = 0
r = 1
.
h# = numberf a$
if error = 0
r = 1
.
# because every variable must be used
h# = h# + h
.
 
test$[] = [ "abc" "21a" "1234" "-13" "7.65" ]
for i% range len test$[]
call is_numeric test$[i%] r%
if r% = 1
print test$[i%] & " is numeric"
else
print test$[i%] & " is not numeric"
.
.
.</lang>
 
=={{header|EchoLisp}}==
Retrieved from "https://rosettacode.org/wiki/Determine_if_a_string_is_numeric"