fork download
copy 
  1.  
  2. takeWhileInclusive :: (a -> Bool) -> [a] -> [a]
  3. takeWhileInclusive _ [] = []
  4. takeWhileInclusive p (x:xs) = x : if p x then takeWhileInclusive p xs
  5.                                          else []
  6.  
  7. main = print $ takeWhileInclusive (>1) [2,2,2,2,2,1,1,1,1,1,1,1]
Success #stdin #stdout 0s 5556KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[2,2,2,2,2,1]
https://ideone.com/wD0ULx
language:
Haskell (ghc 8.4.4)
created:
4 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!