aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

new files

Browse source
This commit is contained in:
Ingy döt Net 2013-04-10 12:38:42 -07:00
parent 3af7344581
commit 86c034bb8b
1364 changed files with 21352 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

20
Task/Determine-if-a-string-is-numeric/Smalltalk/determine-if-a-string-is-numeric-1.st Normal file
View file

@ -0,0 +1,20 @@
String extend [
realIsNumeric [
(self first = $+) |
(self first = $-)
ifTrue: [
^ (self allButFirst) isNumeric
]
ifFalse: [
^ self isNumeric
]
]
]
{ '1234'. "true"
'3.14'. '+3.8111'. "true"
'+45'. "true"
'-3.78'. "true"
'-3.78.23'. "false"
'123e3' "false: the notation is not recognized"
} do: [ :a | a realIsNumeric printNl ]

1
Task/Determine-if-a-string-is-numeric/Smalltalk/determine-if-a-string-is-numeric-2.st Normal file
View file

@ -0,0 +1 @@
(Number readFrom:(aString readStream) onError:[nil]) notNil

1
Task/Determine-if-a-string-is-numeric/Smalltalk/determine-if-a-string-is-numeric-3.st Normal file
View file

@ -0,0 +1 @@
(Scanner scanNumberFrom:(aString readStream)) notNil