fork download
copy 
  1. data Vector = V { x :: Int, y :: Int } deriving Show
  2.  
  3. instance Num Vector where
  4.     (V x0 y0) + (V x1 y1) = V (x0+x1) (y0+y1)
  5.  
  6. main = do print $ 1 + 2
  7.           print $ (V 1 3) + (V 6 9)
Success #stdin #stdout 0s 6232KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
3
V {x = 7, y = 12}
https://ideone.com/ww39q2
language:
Haskell (ghc 8.4.4)
created:
11 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!