fork download
copy 
  1. import Control.Monad
  2. import System.IO
  3.  
  4. getValues = do
  5.      hFlush stdout
  6.      input <- getLine
  7.      let tmp = read input
  8.      if tmp == 0
  9.      then return []
  10.      else liftM (tmp :) (getValues)
  11.  
  12. main = print =<< getValues
Success #stdin #stdout 0s 6296KB
comments (?)
stdin
copy 
1
2
3
0
stdout
copy 
[1,2,3]
https://ideone.com/n6DEnr
language:
Haskell (ghc 8.4.4)
created:
10 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!