From 94d76800276532ad766c42fdb238e626a6ee1ac7 Mon Sep 17 00:00:00 2001 From: rsiddharth Date: Fri, 8 Jun 2018 04:22:52 +0000 Subject: net: snake.rkt: Update next-pit. * net/ricketyspace/ror/six/snake.rkt (next-pit): Update function. --- net/ricketyspace/ror/six/snake.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'net') diff --git a/net/ricketyspace/ror/six/snake.rkt b/net/ricketyspace/ror/six/snake.rkt index abe0a28..d894de5 100644 --- a/net/ricketyspace/ror/six/snake.rkt +++ b/net/ricketyspace/ror/six/snake.rkt @@ -51,7 +51,8 @@ (define dinged (pit-dinged w)) (define goo-to-eat (can-eat snake goos)) (if goo-to-eat - (pit (grow snake) (age-goo (eat goos goo-to-eat)) (+ 1 dinged)) + (pit (grow-size snake (goo-type goo-to-eat)) + (age-goo (eat goos goo-to-eat)) (+ 1 dinged)) (pit (slither snake) (age-goo goos) dinged))) (define (direct-snake w ke) -- cgit v1.2.3