17 lines
495 B
Smalltalk
17 lines
495 B
Smalltalk
...
|
|
{
|
|
(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:[:eachRange |
|
|
eachRange
|
|
select:[:j | ((prod abs < (2**27)) and:[ j ~= 0 ]) ]
|
|
thenDo:[:j | prod := prod*j ].
|
|
]
|
|
].
|
|
...
|