Test a number for narcissism
APL (15)

∆≡⍕+/(⍎¨∆)*⍴∆←⍞


Outputs 1 if true and 0 if false.

Explanation:


∆←⍞: read a line (as characters), store in ∆
(⍎¨∆)*⍴∆: evaluate each character in ∆ and raise it to the power ⍴∆
∆≡⍕+/: see if the input equals the string representation of the sum of these