My Lotto

http://www.nesug.org/proceedings/nesug98/inte/p014.pdf
http://www.ldir.com/itfiles/sapb.htm
http://www.tip.sas.upenn.edu/curriculum/units/2011/02/11.02.07.pdf
http://books.google.com.ph/books/about/Learning_SAS_by_Example.html?id=7WkfycHDQX4C&redir_esc=y
http://www.docstoc.com/docs/18189316/A-%E2%80%9CLOTTO%E2%80%9D-SAS-for-you!
http://www.get-digital-help.com/2010/11/03/select-6-unique-and-random-numbers-from-1-to-49-lottery-in-excel/

This report shows the top numbers, based on the game's recent history.

HIGH WINS
These numbers have the most wins in the game's entire draw history.

   HIGH WINS:   42   31    8   12   16   45   10    1   18   15   36   37

LOW WINS
These numbers have the fewest wins in the game's entire draw history.

    LOW WINS:   29    4   20   19   26   14   43   27    3   13    6   41

CONSISTENT
These numbers are the most consistent winners in the last 10 and 100 draws.

  CONSISTENT:   37   16   34   15   28   41    8   10   21   22   40    1

TRENDING
These numbers have the strongest trending toward wins in the last 10 draws.

    TRENDING:   21   37    1    3   14   15   16   17   20   22   26   28

OVERDUE
These numbers are overdue for a win based on the last 10 and last 100 draws.

     OVERDUE:   19   27    4   44   43   30    9   23   42   39    2   38

BONUS
These numbers are overdue for a win based on the last 10 and last 100 draws.

       BONUS:   19   12   15   14    9    2   18    4   17    8    7   10

########################################################

My First Lottery SAS Program

#####################################################

options linesize=64 pagesize=55;

data sasrng;
SEED1=Time();
array balls ball1-ball6;
 do k=1 to 104;
 do i=1 to 6;
       balls(i) = RANUNI(SEED1)*1000000000000;
       balls(i)=ROUND(balls(i));
       balls(i)=1+(mod(balls(i),49));
     end;
do until (ball2 ne ball1);
ball2 = RANUNI(SEED1)*1000000000000;
 ball2 = ROUND(ball2);
 ball2 = 1+(mod(ball2,49));
   end;
    do until (ball3 ne ball2 and ball3 ne ball1);
 ball3 = RANUNI(SEED1)*1000000000000;
  ball3 = ROUND(ball3);
 ball3 = 1+(mod(ball3,49));
    end;
    do until (ball4 ne ball3 and ball4 ne ball2 and ball4 ne
ball1);
 ball4 = RANUNI(SEED1)*1000000000000;
 ball4 = ROUND(ball4);
ball4 = 1+(mod(ball4,49));
   end;
 do until (ball5 ne ball4 and ball5 ne ball3 and ball5 ne
ball2 and ball5 ne ball1);
 ball5 = RANUNI(SEED1)*1000000000000;
 ball5 = ROUND(ball5);
 ball5 = 1+(mod(ball5,49));
    end;
 do until (ball6 ne ball5 and ball6 ne ball4 and ball6 ne
ball3 and ball6 ne ball2 and ball6 ne ball1);
 ball6 = RANUNI(SEED1)*1000000000000;
  ball6 = ROUND(ball6);
  ball6 = 1+(mod(ball6,49));
    end;  output; end;
run;
proc print data=sasrng;
var ball1;
var ball2;
var ball3;
var ball4;
var ball5;
var ball6;
run;