100 by yowa

puts:zero,a=%w(one two three four five)+c=%w(six seven eight nine),'ten
eleven
twelve'%c[2]=:eigh,[b=%w(thir four fif)+c,p]*'teen
'%b[1]=:for,[:twen,*b].map{|$;|["#$;ty",a]*"
#$;ty "},'one hundred'

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

download

return top