-- 컴퓨터가 선택한 공을 알려 준다.
function func_selected_ball( t )
	for i, v in pairs( t ) do
		print( i, v )
	end
end


-- 자릿수와 맞는것을 저장한다.
function func_ball_posmatch( t1, t2 )
	local match_count = 0

	for i = 1, 4, 1 do
		if t1[i] == t2[i] then
		match_count = match_count + 1
		end
	end

	return match_count
end


-- 같은 값이 있다면, 0이 아닌 위치를 리턴해 준다.
function func_ball_elementmatch_impl( str, t2 )
	local courser = 0
	for i = 1, 4, 1 do
		if str == t2[i] then
			courser = i
			break
		end
	end

	return courser
end


-- 몇개가 같은지 리턴해 준다.
function func_ball_elementmatch( t1, t2 )
	local ta = { t1[1], t1[2], t1[3], t1[4] }
	local tb = { t2[1], t2[2], t2[3], t2[4] }

	local element_match = 0

	for i = 1, 4, 1 do
		pos = func_ball_elementmatch_impl( ta[i - element_match ], tb )

		if 0 ~= pos then
			table.remove( ta, i - element_match )
			table.remove( tb, pos )
			element_match = element_match + 1
		end
	end

	return element_match
end


-- 문자열을 대문자로
function computer_setting_table()
	math.randomseed( os.time() )

	print( math.random( 4 ) .. "마스터 마인드 게임을 시작합니다." )

	local ball_color = { "R", "G", "B", "Y" }

	local com_select_ball =
	{
		ball_color[math.random( 4 )],
		ball_color[math.random( 4 )],
		ball_color[math.random( 4 )],
		ball_color[math.random( 4 )],
	}

	return com_select_ball
end

function user_setting_table()
	str = io.read() -- 문자열을 입력 받는다.
	str = string.upper( str ) -- str을 대문자로 바꾼다.

	if 4 ~= string.len( str ) then
		return nil
	end

	user_select_ball = { string.sub(str, 1, 1), string.sub(str, 2, 2),
				string.sub(str, 3, 3), string.sub(str, 4, 4) }

	return user_select_ball
end

function gaming( count )
	local com_table = computer_setting_table()

	print( "총 100번의 시도 안에 마스터 마인드 게임을 클리어 하지 못하시면 진 것 입니다." )
	print( "공 색은 'R','G','B','Y' 입니다. ")

	for i = 1, count, 1 do

		local user_table = user_setting_table()

		if nil == user_table  then
			print("항상 값은 4개만 받을 수 있습니다.")
		else
			match_ball = func_ball_posmatch( com_table, user_table )
			element_match_ball = func_ball_elementmatch( com_table, user_table )

			print( "자릿수까지 맞는 원소 갯수 : ", match_ball )
			print( "맞춘 원소 갯수 : ", element_match_ball )

			if 8 == match_ball + element_match_ball then
				print("축하합니다. 답에 도달하였습니다.")
				return true, com_table
			else
				print("안타갑습니다. 다시 시도 하세요.")
			end
		end
	end

	return false, com_table
end

local iswin, com_table = gaming( 30 )

if iswin == false then
	print( "컴퓨터에게 지셨습니다. ㅋㅋㅋ" )
end

print( "컴퓨터가 선택한 공" )
func_selected_ball( com_table )