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

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 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