Seven-sided dice from five-sided dice: Difference between revisions
Content added Content deleted
(→{{header|Quackery}}: dice start at 1 not 0) |
m (→{{header|Quackery}}: fixed word names) |
||
| Line 1,536: | Line 1,536: | ||
=={{header|Quackery}}== |
=={{header|Quackery}}== |
||
<lang Quackery> [ 5 random 1+ ] is |
<lang Quackery> [ 5 random 1+ ] is dice5 ( --> n ) |
||
[ |
[ dice5 5 * |
||
dice5 + 6 - |
|||
[ table |
[ table |
||
0 0 0 0 1 |
0 0 0 0 1 |
||
| Line 1,546: | Line 1,547: | ||
6 6 7 7 7 ] |
6 6 7 7 7 ] |
||
dup 0 = iff |
dup 0 = iff |
||
drop again ] is |
drop again ] is dice7 ( --> n ) |
||
randomise |
randomise |
||
50 times [ |
50 times [ dice5 echo ] cr |
||
50 times [ |
50 times [ dice7 echo ] cr</lang> |
||
{{out}} |
{{out}} |
||