Bulls and cows: Difference between revisions

Content added Content deleted

Inline

@@ Line 3,975: / Line 3,975: @@
 </pre>
-=={{header|Mathematica}}==
+=={{header|Mathematica}}/{{header|Wolfram Language}}==
+<lang Mathematica>digits=Last@FixedPointList[If[Length@Union@#==4,#,Table[Random[Integer,{1,9}],{4}]]&,{}]
-<lang Mathematica>
-digits=Last@FixedPointList[If[Length@Union@#==4,#,Table[Random[Integer,{1,9}],{4}]]&,{}]
 codes=ToCharacterCode[StringJoin[ToString/@digits]];
 Module[{r,bulls,cows},
@@ Line 3,988: / Line 3,987: @@
 				bulls=Count[userCodes-codes,0];cows=Length@Intersection[codes,userCodes]-bulls;
 				Print[r<>": "<>ToString[bulls]<>"bull(s), "<>ToString@cows<>"cow(s)."],
-				Print["Guess four digits."]]]]]]]
+				Print["Guess four digits."]]]]]]]</lang>
-</lang>
 Output:
-<pre>
+<pre>{8, 2, 6, 1}
-{8, 2, 6, 1}
 : 0 bull(s), 1 cow(s).
 Illegal input.
-: You got it!
+: You got it!</pre>
-</pre>
 =={{header|MATLAB}}==