obfusk.coffee - reduce + mbind

reduce_mbind.coffee

O = require 'obfusk'; U = require 'underscore'

f = (x) -> O.Just x + 1
g = (x) -> O.Just x * 42
h = (x) -> O.Nothing()

x = U.reduce([f,g], O.mbind, O.Just(2))
y = U.reduce([f,h,g], O.mbind, O.Just(2))

console.log O.match(x, Nothing: (-> 'too bad'), Just: ((x) -> "#{x.value}!!!"))
console.log O.match(y, Nothing: (-> 'too bad'), Just: ((x) -> "#{x.value}!!!"))