RosettaCodeData/Task/Catamorphism/VBA/catamorphism.vba
2019-09-12 10:33:56 -07:00

5 lines
136 B
Text

Public Sub reduce()
s = [{1,2,3,4,5}]
Debug.Print WorksheetFunction.Sum(s)
Debug.Print WorksheetFunction.Product(s)
End Sub