RPS v14

Use rpsrunner.py to play unranked matches on your computer.

Source code:

import random

kon={'RR':'1','RP':'2','RS':'3','PR':'4','PP':'5','PS':'6','SR':'7','SP':'8','SS':'9'}
d0s={'1':0,'2':0,'3':0,'4':1,'5':1,'6':1,'7':2,'8':2,'9':2}
d1s={'1':0,'2':1,'3':2,'4':0,'5':1,'6':2,'7':0,'8':1,'9':2}
k2i={'R':0,'P':1,'S':2}
i2k={0:'R',1:'P',2:'S'}

def mdl(N):
    N%=3
    if N<0:
       N+=3
    return N

if not input:
   DNA=""
   flag=[False]*10
   subs=[[0]*6]*10
   prin=[[[0]*6]*10]*4
   meta=[0]*4
   output=random.choice("RPS")
else:
   for i in range(4):
       x=0
       y=0
       for j in range(10):
           for k in range(6):
               if prin[i][j][k]>prin[i][x][y]:
                  x=j
                  y=k
       if flag[x]:
          y=mdl(subs[x][y]-k2i[input])
          if y==2:
             meta[i]-=1
          else:
             meta[i]+=y
   for j in range(10):
       if flag[j]:
          for k in range(6):
              prin[1][j][k]*=0.9
              prin[3][j][k]*=0.9
              y=mdl(subs[j][k]-k2i[input])
              if y==0:
                 for i in range(2,4):
                     prin[i][j][k]-=0.1
              elif y==1:
                 for i in range(4):
                     prin[i][j][k]+=1
              elif y==2:
                 for i in range(4):
                     if i<2 or prin[i][j][k]<2:
                        prin[i][j][k]-=1
                     else:
                        prin[i][j][k]*=0.5
   DNA+=kon[input+output]
   for i in range(min(10,len(DNA)-1)):
       RNA=DNA[-i:]
       k=DNA.rfind(RNA,0,-1)
       flag[i]=(k>=0)
       if flag[i]:
         for j in range(3):
             subs[i][j]=mdl(d0s[DNA[i+k]]-j+1)
         for j in range(3):
             subs[i][j+3]=mdl(d1s[DNA[i+k]]-j-1)
   output=random.choice("RPS")
   i=meta.index(max(meta))
   if max(meta)>0:
      x=0
      y=0
      for j in range(8):
          for k in range(6):
              if prin[i][j][k]>prin[i][x][y]:
                 x=j
                 y=k
      if flag[x] and prin[i][x][y]>0:
         output=i2k[subs[x][y]]