RosettaCodeData/Task/Catamorphism/VBA/catamorphism.vba

6 lines
136 B
Text
Raw Permalink Normal View History

2019-09-12 10:33:56 -07:00
Public Sub reduce()
s = [{1,2,3,4,5}]
Debug.Print WorksheetFunction.Sum(s)
Debug.Print WorksheetFunction.Product(s)
End Sub