#include <stdio.h>
#include <stdlib.h>
int peg[9][9],plist[20][4],alist[20][4];
int makelist(int *npeg);
enum {EMPTY,PEG,OUTSIDE};
main()
{  int i,j,i2,j2,nn,ngame=0,num,npeg,move,ir,*p;
retry:for(i=0;i<9;i++)for(j=0;j<9;j++)peg[i][j]=OUTSIDE;
      for(i=2;i<7;i++)for(j=2;j<=i;j++)peg[i][j]=PEG;
      peg[2][2]=EMPTY;
      move=0;
      if(++ngame%100==0)printf("Played %d Games\n",ngame);
next: num=makelist(&npeg);
      if(num<0)
      {  if(npeg==1)
         {  for(nn=0;nn<move;nn++)
            {  i=alist[nn][0];
               j=alist[nn][1];
               i2=alist[nn][2];
               j2=alist[nn][3];
               printf("From %d,%d to %d,%d\n",i-1,j-1,i2-1,j2-1);
            }
            printf("You won! %d Games Have Been Played\n",ngame);getch();
         }
         else goto retry;
      }
      else
      {  ir = num==0 ? 0 : rand()%num;
         i=plist[ir][0];
         j=plist[ir][1];
         i2=plist[ir][2];
         j2=plist[ir][3];
         peg[i][j]=EMPTY;
         peg[i2][j2]=PEG;
         peg[(i+i2)/2][(j+j2)/2]=EMPTY;
         alist[move][0]=i;
         alist[move][1]=j;
         alist[move][2]=i2;
         alist[move++][3]=j2;
         goto next;
      }
   goto retry;
}
int makelist(int *npeg)
{  int i,j,num=-1,*p;
   *npeg=0;
   for(i=2;i<7;i++)
      for(j=2;j<=i;j++)
      {  if(peg[i][j]==PEG)(*npeg)++;
      }
   for(i=2;i<7;i++)
      for(j=2;j<=i;j++)
      {  if(peg[i][j]!=PEG)continue;

         if(peg[i-1][j]==PEG && peg[i-2][j]==EMPTY)       /* up */
         {  p=plist[++num];*p++=i;*p++=j;*p++=i-2;*p=j;}

         if(peg[i+1][j]==PEG && peg[i+2][j]==EMPTY)       /* down */
         {  p=plist[++num];*p++=i;*p++=j;*p++=i+2;*p=j;}

         if(peg[i][j-1]==PEG && peg[i][j-2]==EMPTY)       /* left */
         {  p=plist[++num];*p++=i;*p++=j;*p++=i;*p=j-2;}

         if(peg[i][j+1]==PEG && peg[i][j+2]==EMPTY)       /* right */
         {  p=plist[++num];*p++=i;*p++=j;*p++=i;*p=j+2;}

         if(peg[i-1][j-1]==PEG && peg[i-2][j-2]==EMPTY)   /* up left */
         {  p=plist[++num];*p++=i;*p++=j;*p++=i-2;*p=j-2;}

         if(peg[i+1][j+1]==PEG && peg[i+2][j+2]==EMPTY)   /* down right */
         {  p=plist[++num];*p++=i;*p++=j;*p++=i+2;*p=j+2;}

      }
   return num;
}