TRcexhl.m

clear
%Game 'The rich man'(Ììϸ»ÎÌ¡¢Ãλø»ÎÌ) uses 3 dices to add up to
% determine usersactions. Find the exhaustion list in multiple likes by the
%way of practice
%Warning: endless. Use Ctrl+C.
%Henry, BNU, 20180220.
dice1=ones(1,6)/(1*6);
dice2=ones(6,6)/(6*6);
dice3=ones(6,6,6)/(6*6*6);
prob=zeros(3,18);
for i1=1:6
    prob(1,i1)=dice1(1,i1);
end
for i21=1:6
    for i22=1:6
        prob(2,i21+i22)=prob(2,i21+i22)+dice2(i21,i22);
    end
end
for i31=1:6
    for i32=1:6
        for i33=1:6
            prob(3,i31+i32+i33)=prob(3,i31+i32+i33)+dice3(i31,i32,i33);
        end
    end
end

list=0;
while 1
    list=list+1;
    str=zeros(1,3);
    mul_s=input('like step number\n>>','s');
    eval(['mul=[',mul_s,'];'])
    len=length(mul);
    
    for likes=1:len
        str(1)=str(1)+prob(1,mul(likes));
        str(2)=str(2)+prob(2,mul(likes));
        str(3)=str(3)+prob(3,mul(likes));
    end
    str
    [~,bestdice]=max(str)
    
    Tlist(list,1)=list;
    Tlist(list,2:4)=str;
    Tlist(list,5)=bestdice;
    Tlist(list,6:5+len)=mul;
end
%clear a ans dice1 dice2 dice3 i1 i21 i22 i31 i32 i33