{-
Copyright (C) 2018 Dr. Alistair Ward
This file is part of WeekDaze.
WeekDaze is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.
WeekDaze is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with WeekDaze. If not, see .
-}
{- |
[@AUTHOR@] Dr. Alistair Ward
[@DESCRIPTION@]
-}
module BishBosh.Data.Num (
-- * Functions
inClosedUnitInterval
) where
import Control.Arrow((&&&))
-- | Whether the specified number lies within the closed unit-interval, @[0,1]@; .
inClosedUnitInterval :: (Num n, Ord n) => n -> Bool
inClosedUnitInterval = uncurry (&&) . ((>= 0) &&& (<= 1))