Isn't this a bit similar to the Jotto game once written about in the Perl Review. Here's some info about it:

http://www.geocities.com/spur4444/prog/jotto.html