SHOW:
|
|
- or go back to the newest paste.
| 1 | (define dice | |
| 2 | (lambda ($number $sides) | |
| 3 | (if (> $number 1) | |
| 4 | - | (+ (+ (random (- $sides 1)) 1) (dice (- $number 1) $sides)) |
| 4 | + | (+ (+ (random $sides) 1) (dice (- $number 1) $sides)) |
| 5 | - | (+ (random (- $sides 1)) 1)))) |
| 5 | + | (+ (random $sides) 1)))) |
