Serena

module Helper ( validateNumber , isPositive , isNegative , absolute ) where -- | Validate that a number is not zero (for demonstration) validateNumber :: Int -> Int validateNumber x = if x == 0 then error "Zero not allowed" else x -- | Check if a number is positive isPositive :: Int -> Bool isPositive x = x > 0 -- | Check if a number is negative isNegative :: Int -> Bool isNegative x = x < 0 -- | Get absolute value absolute :: Int -> Int absolute x = if isNegative x then negate x else x