fork download 
  1. import Data.List
  2. import Data.Maybe
  3.  
  4. main = print . maybe 0 (sum . takeWhile (>=0) . snd) . uncons . snd . break (<0) =<< readLn
Compilation error #stdin compilation error #stdout 0s 4788KB
comments (?)
stdin 
[1,2,-3,4,5,6,-10,19993,23]
compilation info 
[1 of 1] Compiling Main             ( prog.hs, prog.o )

prog.hs:4:56:
    Not in scope: `uncons'
    Perhaps you meant `union' (imported from Data.List)
stdout 
Standard output is empty
https://ideone.com/tpLBf1
language:
Haskell (ghc 8.4.4)
created:
8 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!