RosettaCodeData/Task/Catamorphism/VBA/catamorphism.vba
2023-07-01 13:44:08 -04: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