Mercurial > jwe > octave
view scripts/miscellaneous/texas_lotto.m @ 4:b4df021f796c
[project @ 1993-08-08 01:26:08 by jwe]
Initial revision
author | jwe |
---|---|
date | Sun, 08 Aug 1993 01:26:08 +0000 |
parents | |
children | 16a24e76d6e0 |
line wrap: on
line source
function picks = texas_lotto () # usage: texas_lotto # # Pick 6 unique numbers between 1 and 50 that are guaranteed to win # the Texas Lotto. # # See also: rand if (nargin != 0) disp ("win_texas_lotto: ignoring extra arguments"); endif picks = zeros (1,6); picks (1) = round (50-49*(1-rand)); n = 2; while (n < 7) tmp = round (50-49*(1-rand)); equal = 0; for i = 1:n if (tmp == picks (i)) equal = 1; break; endif endfor if (! equal) picks (n) = tmp; n++; endif endwhile picks = sort (picks); endfunction