Computer Programming with GNU Smalltalk - Free

96 Computer Programming with GNU Smalltalk
5.
6.
/ \
/ \
/ \
/ \
\ /
\ /
\ /
\ /
\/
"answer_4_5.st"
| theNumber isPrime i |
Transcript show: 'Please enter a number: '.
theNumber := stdin nextLine asInteger.
i := 2.
[theNumber \\ i = 0] whileFalse: [
i := i + 1.
].
(i = theNumber) ifTrue: [
Transcript show: theNumber printString, ' is a prime number.'; cr.
] ifFalse: [
Transcript show: theNumber printString, ' is not a prime number. It is
devidable by ', i printString, '.'; cr.
].
Please enter a number: 3
3 is a prime number.
"answer_4_6.st"
99 to: 1 by: -1 do: [ :x |
Transcript show: x printString, ' bottles of beer on the wall, ', x
printString, ' bottles of beer.'; cr.
(x > 1) ifTrue: [
Transcript show: 'Take one down and pass it around, ', (x - 1)
printString, ' bottles of beer on the wall.'; cr.
] ifFalse: [
Transcript show: 'Take one down and pass it around, no more bottles
of beer on the wall.'; cr.
].