Clojure code to perform a very little bit of Texas Hold'em has been uploaded to BitBucket. Fire up a REPL and paste in the contents of poker.clj, then try it out with something like:

BitBucket supports Mercurial. If it's installed, here's the clone URL: hg clone https://seths@bitbucket.org/seths/pokerepl/

Otherwise, here's a quick link to a bz2 of the source. This link will only ever get the first version of the code... so consider installing Mercurial or hitting the project page.

Much work remains to make this code interactive.

1. A little more work on judging hands (identifies groups but not by suit)
2. Add support for chips
3. Add support for checking, calling, raising
4. Add support for folding
5. BIG: very simplistic logic for having CPU players bet/call/fold
6. VERY BIG: Rewrite most of everything with agents and refs in order to...
7. HUGE: Support network based play with real people

Lastly, this is my first foray into the functional fray so don't spare the code reviews. PLEASE. Fork it mercilessly!