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

Initial data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 72d218235f
commit f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

14
Task/Detect-division-by-zero/Smalltalk/detect-division-by-zero-1.st Normal file
View file

@ -0,0 +1,14 @@
|didDivideByZero a b|
didDivideByZero := false.
a := 10.
b := 0.
[
a/b
] on: ZeroDivide do:[:ex |
'you tried to divide %P by zero\n' printf:{ex suspendedContext receiver} on:Transcript.
didDivideByZero := true.
].
didDivideByZero ifTrue:[
Transcript show:'bad bad bad, but I already told you in the handler'.
].

11
Task/Detect-division-by-zero/Smalltalk/detect-division-by-zero-2.st Normal file
View file

@ -0,0 +1,11 @@
testZeroDivide :=
[:aBlock |
[
aBlock value.
false
] on: ZeroDivide do: [true].
].
"Testing"
testZeroDivide value: [2/1] "------> false"
testZeroDivide value: [2/0] "------> true"

1
Task/Detect-division-by-zero/Smalltalk/detect-division-by-zero-3.st Normal file
View file

@ -0,0 +1 @@
[...] on:Error do: [...]

4
Task/Detect-division-by-zero/Smalltalk/detect-division-by-zero-4.st Normal file
View file

@ -0,0 +1,4 @@
|a b result|
a := 10. b := 0.
result := [a / b] on:ZeroDivide do:[:ex | ex proceedWith:Float infinity].
Transcript showCR:result.