Skunkware 5/Skunkware 5.iso/lib/logolib/reduce

Text File | 1995-05-03 | 238 b | 8 lines

to reduce :reduce.function :reduce.list
if emptyp bf :reduce.list [op first :reduce.list]
op apply :reduce.function (list (first :reduce.list) ~
                                (reduce :reduce.function bf :reduce.list))
end

bury "reduce