从号码中删除最后一位数字

Question

我正在尝试撰写dropLastDigit :: Integer -> Integer

例如dropLastDigit 123 == 12和dropLastDigit，任何一位数都会返回0

Answer 1

只需将数字除以10即可。

dropLastDigit :: Integer -> Integer
dropLastDigit n = div n 10

Answer 2

dropLastDigit :: Integer -> Integer
dropLastDigit n  
        | (abs n) < 10 = 0
        | otherwise = read $ init $ show n