Seven-sided dice from five-sided dice: Difference between revisions

Content added Content deleted
(add RPL)
Line 2,110: Line 2,110:
≪ '''WHILE'''
≪ '''WHILE'''
dice5 EVAL 5 *
dice5 EVAL 5 *
dice5 EVAL 1 - +
dice5 EVAL 6 - +
DUP 21 ≥
DUP 21 ≥
'''REPEAT''' DROP '''END'''
'''REPEAT''' DROP '''END'''
Line 2,119: Line 2,119:
{{out}}
{{out}}
<pre>
<pre>
1: [ -12521 -12638 -12372 -12390 -12749 -18850 -18750 ]
1: [ 14557 14245 14255 14400 14224 14151 14168 ]
</pre>
</pre>
Watchdog timer limits the loop to 100,000 items.
Watchdog timer limits the loop to 100,000 items.

=={{header|Ruby}}==
=={{header|Ruby}}==
{{trans|Tcl}}
{{trans|Tcl}}
Retrieved from "https://rosettacode.org/wiki/Seven-sided_dice_from_five-sided_dice"