Язык указан не был, приведу пример на Haskell

• toInts :: Functor f => f String -> f Int
• toInts = fmap read
• main :: IO ()
• main = putStr "Enter number:" >> toInts getLine >>= print . f
•  where
•    f x | -1 <= x && x <= 1 = 0
•         | otherwise = 1