Sum of roll of N dice

[brickviking]

You guys can have your probability-based solutions. I do have a perfectly working version of the program from the DUP 6. SWAP post that I've extended for n-sided dice. Dies. Dice... eh, whatever:

Code:


« \-> Dcount Dsize
  «  Dcount DUP Dsize SWAP ^ RAND * FLOOR
      DO Dsize IDIV2 ROT + SWAP DUP NOT
      UNTIL
    END DROP
  »
»

Now I'm trying to get the later version (OVER 1 PICK3) working in the same way, but I seem to be doing something wrong. I'll get back to this thread once I've worked out where in the dingoes I'm going wrong with my program. And yes, I'm aware of the limitations of RAND and Y^X expressed earlier in the thread.

On a related note, I'm now trying to figure out how to jack up the speed of the kermit interface up to 38400. All I seem to get currently is 9600 with no way to change it. Using "set speed 38400" merely results in "?SET SPEED fails, speed is 9600". I haven't seen any obvious way to get the calculator to change this either.

(Post 217)