Sum and product of an array: Difference between revisions
Content added Content deleted
m (smalltalk lang tag) |
(rm what seems a duplicate, even if a little bit different in syntax (Standard ML twice)) |
||
Line 828: | Line 828: | ||
<lang smalltalk> #(1 2 3 4 5) fold: [:sum :number | sum + number] |
<lang smalltalk> #(1 2 3 4 5) fold: [:sum :number | sum + number] |
||
#(1 2 3 4 5) fold: [:product :number | product * number]</lang> |
#(1 2 3 4 5) fold: [:product :number | product * number]</lang> |
||
=={{header|Standard ML}}== |
|||
val array = [1,2,3,4,5]; |
|||
foldl op+ 0 array; |
|||
foldl (op*) 1 array; |
|||
=={{header|Standard ML}}== |
=={{header|Standard ML}}== |