20 lines
407 B
Haskell
20 lines
407 B
Haskell
module Geometry.Zone
|
|
( divTo
|
|
, modTo
|
|
) where
|
|
|
|
divTo :: Float -> Float -> Int
|
|
{-# INLINE divTo #-}
|
|
divTo s = floor . (/s)
|
|
|
|
modTo :: Float -> Float -> Float
|
|
{-# INLINE modTo #-}
|
|
modTo s x = x - s * fromIntegral (divTo s x)
|
|
|
|
--remTo :: Float -> Float -> Float
|
|
--remTo s x = x - s * fromIntegral (quotTo s x)
|
|
--
|
|
--quotTo :: Float -> Float -> Int
|
|
--{-# INLINE quotTo #-}
|
|
--quotTo s = truncate . (/s)
|