fork download
copy 
  1. data Foo = MkFoo
  2.  
  3. instance Eq Foo where
  4.   (==) _ _ = False
  5.  
  6. instance Ord Foo where
  7.   compare _ _ = LT
  8.  
  9. instance Num Foo where
  10.   (+) _ _ = MkFoo
  11.   (*) _ _ = MkFoo
  12.   abs _ = MkFoo
  13.   signum _ = MkFoo
  14.   fromInteger _ = MkFoo
  15.   negate _ = MkFoo
  16.  
  17. main = print $ 2 + 2 == (4 :: Foo)
Success #stdin #stdout 0s 8388607KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
False
https://ideone.com/9HJytn
language:
Haskell (ghc 8.4.4)
created:
7 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!