repo.or.cz
/
factor.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Revert "lists: Add list literal doc example."
[factor.git]
/
extra
/
dice
/
dice-tests.factor
blob
8dee11393488ba6bce6521cdf15b5b81aa365cc0
1
USING: dice kernel math tools.test ;
2
3
{ [ 1 4 random-roll ] } [ "1d4" roll-quot ] unit-test
4
{ [ 1 4 random-roll 3 + ] } [ "1d4+3" roll-quot ] unit-test
5
{ [ 15 45 random-roll ] } [ "15d45" roll-quot ] unit-test