let pepper = [["P","red"], ["E","green"], ["P","Gold"],["P","magenta"],["E","purple"],["R","blue"]];

let col0=["red","green","red","red","green","blue"];

let col = ["red", "green", "Gold", "magenta", "purple" ,"blue"];

let clickC = 0;

let can1, can2;

let plist;

let clist;

let plix=0;

let tc=false;

let fc=false;

let ftc=false;

let stc =false;

let snc= false;

let dct={};

let dct2={};

let splist=[];

let pplist=[];

let rcols=[];

let dcolr={};

function setup() {

  createCanvas(1280, 720);

  my_setup();

}

​

function draw() {

  if (clickC === 1 || clickC === 2) {

    can1.textSize(15);

    for (let i = 0; i < pepper.length; i++) {

      if (clickC === 1){ 

        can1.fill(col0[i]);

        can1.text(pepper[i][0], 100+i*30, 75);

      }else{

        if(i===0) {

          can1.textSize(25);

          can1.fill('black');

          can1.text("→",i*30+300,80); 

        }

        can1.fill(col[i]);

        can1.textSize(15);

         can1.text(pepper[i][0], i*30+350, 75);

      }

    }

    image(can1, 0, 0);

  }

  else if (clickC === 3 && !tc) {

    frameRate(60);

    can2.textSize(7);

    can2.fill('black');

    can2.text(plix+1,  5+floor(plix/80)*120 , height /18+7*(plix%80));

    for (let i = 0; i < pepper.length; i++) {

      can2.fill(pplist[plix][i][1]);

      can2.text(pplist[plix][i][0], 35 + 10 * i +floor(plix/80)*120, height /18+7*(plix%80));

    }

    image(can2, 100, height / 8);

    plix++;

    if (plix===720) {tc=true; plix=0;     }

  }

  else if (clickC===4 && !fc){

​

    frameRate(60);

    can2.textSize(7);

    can2.fill('black');

    can2.text(plix+1,  5+floor(plix/80)*120 , height /18+7*(plix%80));

    for (let i = 0; i < pepper.length; i++) {

      can2.fill(d[pplist[plix][i][0]]);

      can2.text(pplist[plix][i][0], 35 + 10 * i +floor(plix/80)*120, height /18+7*(plix%80));

    }

    image(can2,100, height / 8);

    plix++;

    if (plix===720) {fc=true; plix=0;       }

  }

  else if (clickC===5 && !ftc){

          can2.fill(dcolr[floor(plix/12)]);

          can2.rect(5+floor(plix/80)*120 , height /18+7*(plix%80)-7,120,7);

          plix++;

          image(can2, 100, height / 8);

        if (plix===720) {ftc=true; plix=0;       }

  }

  else if (clickC===6 && !stc && false){

        can2.remove();

        can2.background(255,255,255);

        while(plix<720){

            frameRate(100);

            can2.textSize(7);

            can2.fill('black');

            can2.text(splist[plix][6],  5+floor(plix/80)*120 , height /18+7*(plix%80));

            //can2.fill(dcolr[splist[plix].slice(0,6)]);

           // can2.rect(5+floor(plix/80)*120 , height /18+7*(plix%80)-7,120,7);

            for (let i = 0; i < pepper.length; i++) {

              can2.fill(d[splist[plix][i][0]]);

              can2.text(splist[plix][i][0], 35 + 10 * i +floor(plix/80)*120, height /18+7*(plix%80));

            }

            image(can2, 100, height / 8);

             plix++;

        }

        if (plix===720) {stc=true; plix=0;      }

  }

  else if(clickC>5){

     noLoop();

  }

​

​

}

​

function mouseClicked() {

  clickC++;

}

​

function perm(p) {

  if (p.length <= 1) {

    let pp = [];

    pp.push(p);

    return pp;

  } else {

    let pp = [];

    for (let i = 0; i < p.length; i++) {

      let a = p[i];

      let ppp = perm(p.slice(0, i) .concat( p.slice(i+1, p.length)));

      for (let k = 0; k < ppp.length; k++) {

          pp.push(ppp[k].concat([a]));

​

      }

​

    }

    return pp;

  }

}

​

 function Comparator(a, b) {

   let s1=a[0][0]+a[1][0]+a[2][0]+a[3][0]+a[4][0]+a[5][0];

   let s2= b[0][0]+b[1][0]+b[2][0]+b[3][0]+b[4][0]+b[5][0];

   if (s1 < s2) return -1;

   if ( s1> s2) return 1;

   return 0;

 }

function my_setup(){

  plist=perm(pepper);

  for (let i=0;i<plist.length;i++){

    pplist.push(plist[i].concat([""+i]));

  }

  splist=pplist.sort(Comparator);

  for(let i=0;i<plist.length;i++){

   dct[plist[i]]=i;

   dct2[pplist[i]]=i;

  }

​

  for (let v=0;v<floor(plist.length/12);v++){

     dcolr[v]=color(round(random(0,255)),round(random(0,255)),round(random(0,255)),100);

  }

  clist=perm(col);

  background('white');

  can1 = createGraphics(width, height / 8);

  can2 = createGraphics(width, height - height / 8);

  can1.background('white');

  can2.background('white');

  can1.textSize(20);

  can1.fill("navy")

  can1.text("How many words can be formed using the letters of the word PEPPER?", 100, 30);

  image(can1, 0, 0);

  image(can2,0,height / 8);

  frameRate(10);

  tc=false;

  fc=false;

  ftc=false;

   stc =false;

   snc= false;

}

​

function get_skey(a){

  return a[0][0]+a[1][0]+a[2][0]+a[3][0]+a[4][0]+a[5][0];

​

}