Paste: dice roll

Author:	mvr
Mode:	factor
Date:	Sat, 10 Jan 2009 01:53:01

Plain Text |

: roll-dice ( sides -- result )
  random 1+ ;

: multiple-dice ( number sides -- result )
  [ dup roll-dice ] replicate nip sum ;

2 6 multiple-dice .

Annotation: maybe u mean

Author:	randy7
Mode:	factor
Date:	Sun, 11 Jan 2009 11:00:10

Plain Text |

3 6 [ roll-dice ] curry replicate

New Annotation

Summary:
Author:
Mode:
Body: