<h1>Common Lisp - <strike>116</strike> 103 characters</h1>

    (defun f(m)(labels((l(n)(if(> n 0)(+(expt(mod n 10)(ceiling(log m 10)))(l(floor n 10)))0)))(= m(l m))))

Formatted:

    (defun f(m)
      (labels((l(n)
                (if(> n 0)
                   (+(expt(mod n 10)(ceiling(log m 10)))
                     (l(floor n 10)))
                   0)))
        (= m(l m))))