Earlier quoted context omitted.
Perhaps more interesting is Hatetris http://qntm.org/files/hatetris/hatetris.html which is programmed to always give you the worst possible piece. Just try to clear a line!
Several years ago I ported and tweaked Bastet to Flash. http://blahg.res0l.net/2009/01/bastet-bastard-tetris/
In the end, I got 2 lines in bastet and 3 lines in hatetris :)