fork(1) download 
  1. import Control.Monad
  2. import System.IO
  3. main=setting>>zipWithM ask q a>>=print.jug.sum
  4. setting=hSetBuffering stdin NoBuffering>>hSetBuffering stdout NoBuffering
  5. ask x y =print x>>getChar>>=return.fromEnum.(==y)
  6. jug n |n >= 8 = "You win!"
  7.  |otherwise="You lose"
  8. q = ["Q1","Q2","Q3","Q4","Q5","Q6","Q7","Q8","Q9","Q10"]
  9. a = "1234123412"
Success #stdin #stdout 0s 0KB
comments (?)
stdin 
1234124312
stdout 
"Q1"
"Q2"
"Q3"
"Q4"
"Q5"
"Q6"
"Q7"
"Q8"
"Q9"
"Q10"
"You win!"
https://ideone.com/8v0bEW
language:
Haskell (ghc 8.4.4)
created:
5 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!