Mercurial > hg > octave-lyh
changeset 11526:7ef6031cb35e
Remove Easter Egg function texas_lotto.m
author | Rik <octave@nomad.inbox5.com> |
---|---|
date | Fri, 14 Jan 2011 11:46:19 -0800 |
parents | ab231f944252 |
children | a10544c699f2 |
files | scripts/ChangeLog scripts/miscellaneous/texas_lotto.m |
diffstat | 2 files changed, 4 insertions(+), 54 deletions(-) [+] |
line wrap: on
line diff
--- a/scripts/ChangeLog +++ b/scripts/ChangeLog @@ -1,3 +1,7 @@ +2011-01-14 Rik <octave@nomad.inbox5.com> + + * miscellaneous/texas_lotto.m: Remove Easter Egg function. + 2011-01-14 John W. Eaton <jwe@octave.org> * Update copyright notices for 2011.
deleted file mode 100644 --- a/scripts/miscellaneous/texas_lotto.m +++ /dev/null @@ -1,54 +0,0 @@ -## Copyright (C) 1993-2011 John W. Eaton -## -## This file is part of Octave. -## -## Octave is free software; you can redistribute it and/or modify it -## under the terms of the GNU General Public License as published by -## the Free Software Foundation; either version 3 of the License, or (at -## your option) any later version. -## -## Octave is distributed in the hope that it will be useful, but -## WITHOUT ANY WARRANTY; without even the implied warranty of -## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -## General Public License for more details. -## -## You should have received a copy of the GNU General Public License -## along with Octave; see the file COPYING. If not, see -## <http://www.gnu.org/licenses/>. - -## -*- texinfo -*- -## @deftypefn {Function File} {} texas_lotto () -## Pick 6 unique numbers between 1 and 50 that are guaranteed to win -## the Texas Lotto. -## @seealso{rand} -## @end deftypefn - -## Author: jwe - -function picks = texas_lotto () - - if (nargin != 0) - warning ("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