Guest User

Untitled

a guest
Jan 21st, 2019
77
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.16 KB | None | 0 0
  1. fix :: (a -> a) -> a
  2. fix f = let x = f x in x
  3.  
  4. on :: (b -> b -> c) -> (a -> b) -> a -> a -> c
  5. (.*.) `on` f = \x y -> f x .*. f y
  6.  
  7. (&) :: a -> (a -> b) -> b
  8. x & f = f x
Add Comment
Please, Sign In to add comment