Handbook
Glossary
dice7 ( -- x )
Vocabulary
rosetta-code.dice7
Inputs
None
Outputs
x
an
object
Definition
USING:
kernel
math
;
IN:
rosetta-code.dice7
:
dice7
( -- x )
0
[
dup
21
<
]
[
drop
dice5
5
*
dice5
+
6
-
]
do
until
7
rem
1
+
;