Domanda

I cannot find any functions that given a min and a max return all the values in that interval for any of the structures in containers. Surely there must be...?

È stato utile?

Soluzione

inRange :: Ord a => a -> a -> Set a -> Set a
inRange min max s = fst $ S.split max gt
  where (_, gt) = S.split min s

Altri suggerimenti

You can write this really easily with Data.Set.filter:

import Data.Set (Set)
import qualified Data.Set as S

between :: Ord a => a -> a -> Set a -> Set a
between min_ max_ = S.filter (\x -> min_ <= x && x <= max_)

Then you can use it as

> between 3 7 $ S.fromList [1..10]
fromList [3, 4, 5, 6, 7]
Autorizzato sotto: CC-BY-SA insieme a attribuzione
Non affiliato a StackOverflow
scroll top