fork download
copy 
  1. infixr 6 `then'`
  2. then' True = fst
  3. then' False = snd
  4.  
  5. else' suc fail = (suc, fail)
  6. main = do
  7.   print $ (1<5) `then'` "true" `else'` "false"
  8.   print $ "true" `else'` "false"
Success #stdin #stdout 0.01s 3544KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
"true"
("true","false")
https://ideone.com/c0Rpqd
language:
Haskell (ghc 8.4.4)
created:
13 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!