Haskell Experiments

experiments.hs

ordered :: Int -> Int -> (Int, Int)
ordered x y
  | x >= y    = (x, y)
  | otherwise = (y, x)

sumAndProduct :: Int -> Int -> (Int, Int)
sumAndProduct x y = (x + y, x * y)

shift :: ((Int, Int), Int) -> (Int, (Int, Int))
shift ((x, y), z) = (x, (y, z))

udRange :: Int -> Int -> (Int, Int, Int)
udRange fixed range = (fixed - range, fixed, fixed + range)

inRange :: Int -> Int -> Int -> Bool
inRange b t fixed
  | (fixed > t) || (fixed < b)    = False
  | otherwise                     = True