Sum and product of an array: Difference between revisions
Content added Content deleted
Underscore (talk | contribs) (Added Perl 6.) |
|||
| Line 288: | Line 288: | ||
10 24 |
10 24 |
||
sum and product are defined in the sequences vocabulary: |
sum and product are defined in the sequences vocabulary: |
||
: sum ( seq -- n ) 0 [+] reduce ; |
: sum ( seq -- n ) 0 [ + ] reduce ; |
||
: product ( seq -- n ) 1 [ * ] reduce ; |
: product ( seq -- n ) 1 [ * ] reduce ; |
||