fork download 
  1. import Data.List (findIndex)
  2. xs = [(0,1),(1,2),(2,4),(4,8)]
  3. f x xs = (+1) <$> findIndex (\(a,b) -> (a <= x) && (x < b)) xs
  4. main = print $ f 1.5 xs
Success #stdin #stdout 0s 8388607KB
comments (?)
stdin 
Standard input is empty
stdout 
Just 2
https://ideone.com/378zY1
language:
Haskell (ghc 8.4.4)
created:
6 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!