Discussion on: Daily Challenge #214 - Persistent Bugger

import Numeric (floatToDigits)

persistence :: Int -> Int
persistence = recurse 0
  where
    recurse d x
      | x > 9 = recurse (d+1) . foldr (*) 1 . digits $ x
      | otherwise = d
    digits = fst . floatToDigits 10 . fromIntegral

import Numeric (floatToDigits)

persistence :: Int -> Int
persistence x
  | x > 9 = 1 + (persistence . foldr (*) 1 . digits $ x)
  | otherwise = 0
  where digits = fst . floatToDigits 10 . fromIntegral