Powerball Generator!

[John Keith]

(09-13-2024 08:26 PM)lrdheat Wrote:  ... On my HP 50, I programmed it to only present a non repeating 1 row matrix of 6 numbers.

I would have the same chance of a win if I simply chose 1,2,3,4,5,6 !

Indeed the chance of winning is minuscule but at least we get some entertainment by programming our HP's

This is my Powerball program for the HP 50 using ListExt and LSORT. It returns a list of 5 numbers in the range 1..69 on level 2 and a number in the range 1..26 on level 1. For MegaMillions (the other US multi-state lottery) replace the 69 with 70 and replace the 26 with 25.

Code:


\<< 69 LSEQ             @ List of numbers 1..69
    LSHUF               @ Shuffle list
    5 LTAKE LSORT       @ Take first 5 numbers and sort
    RAND 26. * IP 1. +  @ Random integer in range 1..26
    R\->I               @ Convert to exact integer for display
\>>