100 by ksk

a=%w{twen thir four fif six seven eigh nine}
puts:zero,s="one
two
three
four
five
#{a[4,3]*$/}t
nine","ten
eleven
twelve",[a[1,7],p]*"teen
",a.map{|_|a[2]="for"
[*_+"ty
"+s].*_+"ty "},"one hundred"

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return top