diff options
author | Robby Zambito <contact@robbyzambito.me> | 2021-12-28 20:02:58 -0500 |
---|---|---|
committer | Robby Zambito <contact@robbyzambito.me> | 2021-12-28 20:02:58 -0500 |
commit | 08fdac301da812c3eade54faee43fec59b850702 (patch) | |
tree | 5011d612e2e60587495db7e2ada491595d9ee83e | |
parent | 38c1bc993424d8798d12177647eb90b63bda156f (diff) |
Removed implementation of both that did not work
-rw-r--r-- | game_of_21.scm | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/game_of_21.scm b/game_of_21.scm index 951dbea..f4d9e96 100644 --- a/game_of_21.scm +++ b/game_of_21.scm @@ -143,14 +143,6 @@ (second-strategy my-hand opponent-up-card)))) (define (both . strategies) - ;(display strategies) - (lambda (my-hand opponent-up-card) - (if (null? strategies) - #t - (and ((car strategies) my-hand opponent-up-card) - (apply both (cdr strategies)))))) - -(define (both . strategies) (lambda (my-hand opponent-up-card) (every identity (map (lambda (s) |