in reply to Code Golf: Four is magic

144 chars:
@u=split//,'4335443554366887798866555766';$_=<>;chop;print"$_ is ".($_=$_-4?$_<20?$u[$_]:$u[$_/10+18]+($_%10&&$u[$_%10]):0or magic).".\n"while$_


Demize

Replies are listed 'Best First'.
Re^2: Code Golf: Four is magic
by deMize (Monk) on Jul 14, 2010 at 05:00 UTC
    125 chars:
    @u='4335443554366887798866555766'=~/./g;$_=pop;print"$_ is ",$_=$_-4?$_<20?$u[$_]:$u[$_/10+18]+$u[$_%10]:magic,".\n"until/\D/


    Demize

      That is broken for 30, 40, 50, etc.