RosettaCodeData/Task/Catamorphism/BBC-BASIC/catamorphism.basic

      DIM a(4)
      a() = 1, 2, 3, 4, 5
      PRINT FNreduce(a(), "+")
      PRINT FNreduce(a(), "-")
      PRINT FNreduce(a(), "*")
      END

      DEF FNreduce(arr(), op$)
      REM!Keep tmp, arr()
      LOCAL I%, tmp
      tmp = arr(0)
      FOR I% = 1 TO DIM(arr(), 1)
        tmp = EVAL("tmp " + op$ + " arr(I%)")
      NEXT
      = tmp