jpverkamp

import random

# Roll an n-sided die
def d(n):
	return random.randint(1, n)
  
# Roll an n-sided die, exploding on maximum value
def e(n):
	total = 0
	while True:

jpverkamp

#lang racket

; Empty list
(define empty   (λ (l)   (l 'error 'error #t)))
(define empty?  (λ (l)   (l (λ (a d e) e))))

; Build and take apart lists
(define pair    (λ (a d) (λ (l) (l a d #f))))
(define first   (λ (l)   (l (λ (a d e) a))))
(define rest    (λ (l)   (l (λ (a d e) d))))