(use srfi-1)
(use gauche.sequence)

(define (win? l)
  (any (cut lset<= = <> l)
       '((0 1 2) (3 4 5) (6 7 8) (0 3 6) (1 4 7) (2 5 8) (0 4 8) (2 4 6))))

(let new-game ((win 0)
               (lose 0)
               (draw 0))
  (if (<= 10000 (+ win lose draw))
    (format #t " player1 won: ~a\n player2 won: ~a\n draw: ~a\n" win lose draw)
    (letrec ((p1-turn (lambda (p1 p2)
                        (if (win? p2)
                          (new-game win (+ 1 lose) draw)
                          (let ((vacant (lset-difference = '(0 1 2 3 4 5 6 7 8) (append p1 p2))))
                            (if (null? vacant)
                              (new-game win lose (+ 1 draw))
                              (p2-turn (cons (car (shuffle vacant)) p1) p2))))))
             (p2-turn (lambda (p1 p2)
                        (if (win? p1)
                          (new-game (+ 1 win) lose draw)
                          (let ((vacant (lset-difference = '(0 1 2 3 4 5 6 7 8) (append p1 p2))))
                            (if (null? vacant)
                              (new-game win lose (+ 1 draw))
                              (p1-turn p1 (cons (car (shuffle vacant)) p2))))))))
      (p1-turn '() '()))))