$w[32]=[4,10,12,16,21, 25,28,32,36,39,42];$w[ 97]=[14];$w[98]=[40];$ w[99]=[13];$w[101]=[3, 18,41,45,46];$w[102]=[ 43];$w[103]=[9,33];$w[ 104]=[6];$w[105]=[7,11 ,26];$w[108]=[19,20];$ w[110]=[2,8,15];$w[111 ]=[1,23,30,34,38];$w [114]=[44];$w[115]=[27] ;$w[116]=[5,17,35,37];$ w[117]=[24,31];$w[121] =[22,29];for($x=0;$x<( $_= @w);$x++){for($i=0 ;$w[$x][$i];$i++){$b[$ w[$x][$i]]=$x;}}foreach $a (@b){printf("%c",$ a)unless!$a;}print"\n";
|
|---|