You might be academically interested in some perl code in Solitaire which is not a game. This is linked from Counterpane.