Sum of roll of N dice

[Gerald H]

(05-03-2018 12:39 PM)Werner Wrote:  

(05-02-2018 08:01 AM)Gerald H Wrote:  

Code:

« DUP 6. SWAP ^ RAND * FLOOR
  DO 6. IDIV2 ROT + SWAP DUP NOT
  UNTIL
  END DROP
»

DUP 6. SWAP = 6. OVER

But I see no reason to form 6^N? Simply do

Code:

\<< RAND OVER 1 SWAP
    START
      6. * + DUP IP SWAP FP
    NEXT
    DROP
\>>

Same thing.
Cheers, Werner

Very elegant, Werner, bravo.

"DUP 6. SWAP" is embarrassing.

"OVER 1 SWAP" could be "1 PICK3".