1. Day 16/100: More Shut the Box

    Played a little more with the functional aspects of Scheme / Racket wit the Shut the Box program:

    #lang racket 
    (define tiles `(1 2 3 4 5 6 7 8 9))
    
    (define (dice)
        (+ 1 (random 6)))
    
    (define (roll) 
        (list (dice) (dice)))
    
    (define dice-roll (roll))
    
    (define sum-roll (apply + dice-roll))
    
    (define tilelist '(4 …
    read more

links

social