fork(1) download 
  1. type Name = String
  2. data Kiss = Name :* Name deriving (Eq)
  3.  
  4. instance Show Kiss where
  5.   show (who :* whom) = who ++ " kiss " ++ whom
  6.  
  7. main =
  8.   mapM_ print [ "Kate" :* "Jim"
  9.               , "Julia" :* "Ivan"
  10.               , "Evgeny" :* "Anton"
  11.               ]
Success #stdin #stdout 0s 6264KB
comments (?)
stdin 
Standard input is empty
stdout 
Kate kiss Jim
Julia kiss Ivan
Evgeny kiss Anton
https://ideone.com/r7pKNX
language:
Haskell (ghc 8.4.4)
created:
12 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!