You may have seen my Ruby-based Ook/Bf interpreter, linked from this page. Yesterday, I happened upon the following (also Ruby-based) Bf interpreter on <a href="this">www.cs.auc.dk/~larsch/ruby/">this disturbed gentleman’s site</a>. I’m at a loss for words. :)

<PRE> a=’p=0;t=""*30000;’;$<.each_byte{|c|a<<({?>=>"p+=1;",?<=>"p-=1;",?+=> "t[p]+=1;",?-=>"t[p]-=1;",?[=>"while t[p]>0;",?]=>"end;",?.=>"putc t[p];", ?,=>"t[p]=STDIN.getc||0;"}||"")};eval a </PRE>