fork download
  1. import Data.List
  2.  
  3. v = [10, 10, 20, 30, 50, 40, 10, 15, 30]
  4.  
  5. main = do
  6. print . takeWhile (30 >=) $ v
  7. print . takeWhile (30 >=) $ sort v
Success #stdin #stdout 0s 4712KB
stdin
Standard input is empty
stdout
[10,10,20,30]
[10,10,10,15,20,30,30]