http://learn.cemetech.net/index.php?action=history&feed=atom&title=TI-BASIC%3AMastermind 2026-05-30T21:36:24Z Revision history for this page on the wiki MediaWiki 1.43.3 http://learn.cemetech.net/index.php?title=TI-BASIC:Mastermind&diff=830&oldid=prev 2016-02-24T18:20:46Z

<p>Initial automated import</p> <p><b>New page</b></p><div>Mastermind is a fun game that involves trying to break a random code of five numbers (1-9) in fifteen guesses or less. To help assist you with the code-breaking, a clue is displayed below each number. If the number is correct and in the right position, a star (*) will be displayed. If the number is correct but in the wrong position, a plus (+) will be displayed. And if the number is simply wrong, a minus (-) will be displayed. Try out the game and try to understand and think through the code.<br /> <br /> == The Code ==<br /> <br /> :randInt(1,9,5→L1<br /> :For(X,1,15<br /> :0→dim(L2<br /> :Repeat Ans=105 and 5=dim(L2<br /> :ClrHome<br /> :For(Y,1,dim(L2<br /> :Output(1,Y,L2(Y<br /> :End<br /> :Repeat Ans<br /> :getKey<br /> :End<br /> :If Ans=22<br /> :Goto Q<br /> :If Ans=45<br /> :ClrList L2<br /> :If Ans=23 and dim(L2<br /> :dim(L2)-1→dim(L2<br /> :If 5&gt;dim(L2) and 2&gt;abs(5-abs(5-abs(Ans-83<br /> :26-3int(.1Ans)+10fPart(.1Ans→L2(1+dim(L2<br /> :End<br /> :&quot; // 1 space<br /> :For(Y,1,5<br /> :Ans+sub(&quot;-+*&quot;,1+max(L2(Y)=L1)+(L2(Y)=L1(Y)),1<br /> :End<br /> :Output(2,1,sub(Ans,2,5<br /> :rand(E2 // scientific E ([2nd][,])<br /> :If not(min(L2=L1<br /> :End<br /> :Disp sub(&quot;FAIL!WIN! &quot;,1+5(X&lt;16),5<br /> :Lbl Q[[Category:TI-BASIC]]<br /> [[Category:TIBD]]</div>

Maintenance script