Paste: object stack

Author: j
Mode: haskell
Date: Fri, 16 Sep 2011 19:44:36
Plain Text | 
class StackObject a b where
    (>>) :: forall c. => a -> b -> c

instance StackObject () Integer where
    () >> n = n

instance StackObject Integer (Integer -> Integer -> Integer) where
    n >> f = f n

instance StackObject (Integer -> Integer) -> Integer where
    f >> n = f n

New Annotation

Summary:
Author:
Mode:
Body: