RosettaCodeData/Task/Catamorphism/VBA/catamorphism.vba

6 lines
136 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
Public Sub reduce()
s = [{1,2,3,4,5}]
Debug.Print WorksheetFunction.Sum(s)
Debug.Print WorksheetFunction.Product(s)
End Sub