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