Interval extend [
generality [ ^ 300 ]
coerce: aNumber [ ^ Array new: self size withAll: aNumber ]
]
Array extend [
+ other [ ^ self with: other collect: [:x :y | x + y] ]
squared [ ^ self collect: [:x | x * x] ]
sum [ ^ self inject: 0 into: [:acc :x | acc + x] ]
]
(6 + (1 to: 12)) squared sum displayNl
SW50ZXJ2YWwgZXh0ZW5kIFsKCWdlbmVyYWxpdHkgWyBeIDMwMCBdCgljb2VyY2U6IGFOdW1iZXIgWyBeIEFycmF5IG5ldzogc2VsZiBzaXplIHdpdGhBbGw6IGFOdW1iZXIgXQpdCgpBcnJheSBleHRlbmQgWwoJKyBvdGhlciBbIF4gc2VsZiB3aXRoOiBvdGhlciBjb2xsZWN0OiBbOnggOnkgfCB4ICsgeV0gXQoJc3F1YXJlZCBbIF4gc2VsZiBjb2xsZWN0OiBbOnggfCB4ICogeF0gXQoJc3VtIFsgXiBzZWxmIGluamVjdDogMCBpbnRvOiBbOmFjYyA6eCB8IGFjYyArIHhdIF0KXQoKKDYgKyAoMSB0bzogMTIpKSBzcXVhcmVkIHN1bSBkaXNwbGF5Tmw=