Catamorphism: Difference between revisions
m
→{{header|uBasic/4tH}}
(Added uBasic/4tH version) |
|||
Line 2,835:
Print "Maximum is : "; FUNC(_reduce(0, 4, _max))
Print "Minimum is : "; FUNC(_reduce(0, 4, _min))
Print "No op is : "; FUNC(_reduce(0, 4,
End
Line 2,842:
Local (2)
If (Line(c@) = 0) + ((b@ - a@) < 1) Then Return (0)
d@ = @(a@)
For e@ = a@ + 1 To b@
| |||