Catamorphism: Difference between revisions
m
→{{header|uBasic/4tH}}
Line 2,828:
{{trans|FreeBASIC}}
uBasic/4tH has only got one single array so passing its address makes little sense. Instead, its bounds are passed.
<lang>Push 5, 4, 3, 2, 1:
For x = 0 To s: @(x) = Pop(): Next
Print "Sum is : "; FUNC(_reduce(0,
Print "Difference is : "; FUNC(_reduce(0,
Print "Product is : "; FUNC(_reduce(0,
Print "Maximum is : "; FUNC(_reduce(0,
Print "Minimum is : "; FUNC(_reduce(0,
Print "No op is : "; FUNC(_reduce(0,
End
|