Anonymous user
Bulls and cows/Player: Difference between revisions
→{{header|Liberty BASIC}}
ReeceGoding (talk | contribs) m (→{{header|R}}) |
|||
Line 2,000:
end function
</lang>
=={{header|Lua}}==
{{Trans|Phix}}
<lang Lua>local line = "---------+----------------------------------+-------+-------+"
local digits = {1,2,3,4,5,6,7,8,9}
function and_bits (a, b)
-- print (a, b)
return a & b -- Lua 5.3
end
function or_bits (a, b)
return a | b -- Lua 5.3
end
function get_digits (n)
local tDigits = {}
for i = 1, #digits do tDigits[i] = digits[i] end
local ret = {}
math.randomseed(os.time())
for i = 1, n do
local d = table.remove (tDigits, math.random(#tDigits))
table.insert (ret, d)
end
return ret
end
function mask (x)
return 3*x-1 -- any function
end
function score (guess, goal)
local bits, bulls, cows = 0, 0, 0
for i = 1, #guess do
if (guess[i] == goal[i]) then
bulls = bulls + 1
else
bits = bits + mask (goal[i])
end
end
for i = 1, #guess do
if not (guess[i] == goal[i]) then
local nCow = (and_bits (bits, mask(guess[i])) == 0) and 0 or 1
cows = cows + nCow
end
end
return bulls, cows
end
function iCopy (list)
local nList = {}
for i = 1, #list do nList[i] = list[i] end
return nList
end
function pick (list, n, got, marker, buf)
-- print ('pick', #list, n)
local bits = 1
if got >= n then
table.insert (list, buf)
else
local bits = 1
for i = 1, #digits do
if and_bits(marker,bits) == 0 then
buf[got+1] = i
pick (list, n, got+1, or_bits (marker, bits), iCopy(buf))
end
bits = bits * 2
end
end
end
function filter_list (list, guess, bulls, cows)
local index = 1
for i = 1, #list do
-- print ('filter_list i: ' .. i)
local scoreBulls, scoreCows = score (guess, list[i])
if bulls == scoreBulls and cows == scoreCows then
list[index] = list[i]
index = index + 1
end
end
for i = #list, index+1, -1 do
table.remove (list, i)
end
end
function game (goal)
local n = #goal
local attempt = 1
local guess = {} -- n-length guess numbers array
for i = 1, n do table.insert (guess, 0) end -- empty buffer
local list = {}
pick (list, n, 0, 0, guess)
local bulls, cows = 0, 0
while true do
guess = list[1]
bulls, cows = score (guess, goal)
print (' Guess ' .. attempt .. ' | ' ..table.concat(guess), '('..#list..' variants) ', bulls, cows)
if bulls == n then return end
filter_list (list, guess, bulls, cows)
attempt = attempt + 1
end
end
local n = 4
local secret = get_digits (n)
print (line..'\nSecret '.. #secret.. ' | '..table.concat(secret) .. ' | Bulls | Cows |' .. '\n' .. line)
game (secret)</lang>
{{out}}
N=4:
<pre>---------+----------------------------------+-------+-------+
Secret 4 | 9562 | Bulls | Cows |
---------+----------------------------------+-------+-------+
Guess 1 | 1234 (3024 variants) 0 4
Guess 2 | 2159 (469 variants) 0 4
Guess 3 | 3428 (281 variants) 0 4
Guess 4 | 4382 (153 variants) 1 3
Guess 5 | 5367 (31 variants) 1 3
Guess 6 | 6371 (11 variants) 0 4
Guess 7 | 9562 (2 variants) 4 0</pre>
N=6:
<pre>---------+----------------------------------+-------+-------+
Secret 6 | 397124 | Bulls | Cows |
---------+----------------------------------+-------+-------+
Guess 1 | 123456 (60480 variants) 0 3
Guess 2 | 214368 (8382 variants) 0 2
Guess 3 | 341279 (705 variants) 1 0
Guess 4 | 352187 (74 variants) 2 4
Guess 5 | 362591 (21 variants) 1 0
Guess 6 | 376145 (9 variants) 2 4
Guess 7 | 397124 (2 variants) 6 0</pre>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
| |||