From: Matthew Moss <matthew.moss.coder@...>
Date: 2007-03-16T02:43:05+09:00
Subject: Just for fun...

I posted this to another forum as part of a challenge...  thought to
post it here just for fun.  +5 pts if you know what algorithm is being
used here...

Anyone care to golf?  Note that the breakdown of the string TXT was
just to prevent it from line-wrapping...

TXT = ".,~,,;\ntee,yeeewgeendhoeheddrhdfteeenn" +
      "\n\n\n\n\nr cl u enneiii   ddd hhhlhhhh" +
      "elllphsvHfo ousctTTttTttgdfddwl  tddd  " +
      "uaooAat doopmp cmsse o i   ari    t isa" +
      "joo e\n"

dat = [""] * TXT.size
TXT.size.times do
   dat = TXT.split(//).zip(dat).map{ |a| a.join }.sort
end
puts dat.find{ |x| x[-1] == ?~ }[0...-1]