変数名1文字というのに慣れない

Haskell

与えられた数字のケタ数です。割と簡単。

nums = [2469, 600, 1]

main = do print $ map keta nums

keta :: Int -> (Int, Int)
keta n = let s = show n
             l = length s
         in (l, 10 ^ (l - 1))

タイトルに書いた通りなのですが、変数名を1文字にするというのになかなか慣れません。投稿されているプログラムと全然書き方が違うし、すらすらとHaskellで書くというレベルに到達するのはまだまだ先のようです。