Advertisement
banovski

“do” with functions with “return”

Mar 22nd, 2025 (edited)
716
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Haskell 0.98 KB | Source Code | 0 0
  1. do {a <- (* 2); b <- (+ 10); return (a + b)} $ 731
  2. ((* 2) >>= (\a -> ((+ 10) >>= (\b -> return (a + b)))))
  3. (\r -> (\a -> ((+ 10) >>= (\b -> return (a + b)))) ((* 2) r) r)
  4. (\r -> (\a -> (\r -> (\b -> return (a + b)) ((+ 10) r) r)) ((* 2) r) r)
  5. (\r -> (\a -> (\r -> (\b -> return (a + b)) ((+ 10) r) r)) ((* 2) r) r)
  6. (\r -> (\a -> (\r -> (return (a + ((+ 10) r))) r)) ((* 2) r) r)
  7. (\r -> (\a -> (\r -> (return (a + ((+ 10) r))) r)) ((* 2) r) r)
  8. (\r -> (\a -> (\r -> (return (a + (r + 10))) r)) ((* 2) r) r)
  9. (\r -> (\a -> (\r -> (return (a + (r + 10))) r)) (r * 2) r)
  10. (\r -> ((\r -> (return ((r * 2) + (r + 10))) r)) r)
  11. (\r -> (\r -> (return ((r * 2) + (r + 10))) r) r) 7
  12. ((\r -> (return ((r * 2) + (r + 10))) r) 7)
  13. ((\r -> (return ((r * 2) + (r + 10))) r) 7)
  14. (((return ((7 * 2) + (7 + 10))) 7))
  15. ((return ((7 * 2) + (7 + 10))) 7)
  16. ((return ((7 * 2) + (17))) 7)
  17. ((return ((14) + (17))) 7)
  18. ((return (14 + 17)) 7)
  19. ((return (31)) 7)
  20. ((return 31) 7)
  21. (return 31) 7
  22. return 31 7
  23. -- ?
  24. 31
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement