Monads in Groovy

Monads

def sin = { x ->
    return [Math.sin(x),"Called"]
}

def cube = { x ->
    return [x * x * x,"Hello "]
}

def compose = { f , g ->

    def cls = { x ->
        return f(g(x))
    }
    
    return cls
}

def composableDebuggable = { f, g ->
   
   def cls = { x ->
       def gx = g(x)
       def y = gx[0]
       def s = gx[1]
       def fy = f(y)
       def z = fy[0]
       def t = fy[1]
       
       return [z,s + t]
   }
   
   return cls
   
}

def bind = { f ->
    def cls = { tuple ->
        def x = tuple[0], s = tuple[1],fx = f(x), y = fx[0] , t = fx[1]
        
        return [y,s + t ]
    }
    return cls
}

def unit = { x ->
    return [x, ' ']
}

def lift = { f ->
    def cls = { x ->
        return unit(f(x))
    }
    
    return cls
}

def round =  { x -> return Math.round(x) };

def roundDebug = lift(round)



def f = compose(bind(roundDebug),bind(sin))
f(unit(27))