24 lines
614 B
Smalltalk
24 lines
614 B
Smalltalk
prod := 1.
|
|
sum := 0.
|
|
x := 5.
|
|
y := -5.
|
|
z := -2.
|
|
one := 1.
|
|
three := 3.
|
|
seven := 7.
|
|
|
|
(three negated to: 3**3 by: three ) ,
|
|
(seven negated to: seven by: x ) ,
|
|
(555 to: 550-y ) ,
|
|
(22 to: -28 by: three negated) ,
|
|
(1927 to: 1939 ) ,
|
|
(x to: y by:z ) ,
|
|
(11**x to: 11**x + one )
|
|
do:[:j |
|
|
sum := sum + j abs.
|
|
((prod abs < (2**27)) and:[ j ~= 0 ]) ifTrue:[
|
|
prod := prod*j
|
|
].
|
|
].
|
|
Transcript show:' sum = '; showCR:sum.
|
|
Transcript show:'prod = '; showCR:prod
|