From: Douglas F Shearer <dougal.s@...>
Date: 2007-08-07T03:47:46+09:00
Subject: Re: [QUIZ] Numbers Can Be Words (#133)

Crude but effective.

Written in about 20minutes.

###################################################

@words = File.new('/usr/share/dict/words').read.downcase.scan(/[a-z] 
+/).uniq
@chars = '0123456789abcdefghijklmnopqrstuvwxyz'

def print_matches(base,minsize=0)

   print "Base: " + base.to_s + "\n"

   alphabet = @chars[0,base]

   print "Alphabet: " + alphabet + "\n\nMatching Words:\n\n"

   @words.each do |w|

     if w.length >= minsize
       hexword = true
       w.each_byte { |c|
       	if !alphabet.include?(c.chr)
       		hexword = false
       		break
       	end
       }
       p w if hexword
     end
   end

end

print_matches 18,4

#################################################

Output:

Base: 18
Alphabet: 0123456789abcdefgh

Matching Words:

"ababdeh"
"abac"
"abaca"
"abaff"
"abba"
"abed"
"acca"
"accede"
"achage"
"ache"
"adad"
"adage"
"adda"
"added"
"adead"
"aface"
"affa"
"agade"
"agag"
"aged"
"agee"
"agha"
...

Douglas F Shearer
http://douglasfshearer.com