0. #lang racket
1.  
2. (require racket/generator)
3.  
4. (define constrain-cell
5.   (generator ()
6.     (let loop ([invalid (yield)]
7.                [content '(1 2 3 4 5 6 7 8 9)])
8.       (loop (yield content) (remove invalid content)))))
9.  
10. ; it works, but I'm not sure how
11. (constrain-cell)
12. (constrain-cell 4)
13. (constrain-cell 5)
14. (constrain-cell 6)
15. (constrain-cell 1)
16. (constrain-cell 'show) ; isn't in the defined content, does nothing

=>

'(1 2 3 4 5 6 7 8 9)

'(1 2 3 5 6 7 8 9)

'(1 2 3 6 7 8 9)

'(1 2 3 7 8 9)

'(2 3 7 8 9)