Return Styles: Pseud0ch, Terminal, Valhalla, NES, Geocities, Blue Moon. Entire thread

The list monad is awesome

Name: Anonymous 2011-10-17 14:44

sqrtM x = [sqrt x, -sqrt x]



addOne x = return $ x + 1



f x = do y <- sqrtM x

         z <- addOne y

         sqrtM z



*Main> f 0.5

[1.3065629648763766,-1.3065629648763766,0.5411961001461969,-0.5411961001461969]

Newer Posts