[ 1,0 ]," j"= >[0 ,-1 ],"k"=>[0 ,1] ,"l"=>[-1 ,0] ,de fau lt= >[0,0],}; $zx =$zp%3;$z y=i ntd iv( $zp ,3) ;$s x=$ zx+ $dx ;$s y=$ zy+ $dy ;if ($s x<0 ||2 <$s x)$sx=$zx ;if ($sy<0||2 <$s y)$ sy= $zy ;$sp=$sy* 3+$ sx;[$z[$s p], $z[ $zp ]]= [$z [$z p], $z[ $sp ]]; ech o(" "", $C( 10) =>" "]) ))) ->g etIterato r() ;$B=fn($_ =1) =>$ M(f n() =>p rint([$i- >cu rrent(),$ i-> nex t() ][0 ]), ran ge( 1,$ _*3 )); $W= fn( $_= 1)= >pr int (st r_r epeat($C( 32) ,$_*3));$ N=f n()=>prin t($ C(1 0));$B(7) ;$N ();for($y =0; $y<3;$y++ ){$ B(1 9); $N( );$ B() ;$W (5) ;$B (); $W( 5); $B( );$ W(5 );$ B() ;$N (); $B( );$W(5);$ B() ;$W(5);$B (); $W( 5); $B( );$N();fo r($ l=0;$l<10 ;$l ++) {$B (); for ($x =0; $x< 3;$ x++){$W(1);$M(fn($_)=>$_?$B():$W(),$m[$n[$M("ord",$S($z)) [$y*3+$x]-97][intdiv($l,2)]]);$W(1);$B();}$N();}$B();$W(5 );$ B() ;$W (5) ;$B (); $W( 5); $B( );$N();$B (); $W(5);$B( );$ W(5 );$ B();$W(5) ;$B ();$N();$ B(1 9); $N( );} $B( 9); ech o($ C(3 9). ",[ $C( 32) =>" .$C (34 ).$ C(3 4). ",$C(10)= >". $C( 34) .$C (34 )."]));") ;// $M= "ar ray _ma p"; $S= "st r_s pli t"; $C= "ch r"; $zp =st rpo s($ z," a");[$dx, $dy ]=m atc h($ arg v[1]??nul l){ "h" =>[ 1,0 ]," j"= >[0 ,-1 ]," k"= >[0,1],"l"=>[-1,0],default=>[0,0],};$zx=$zp%3;$zy=intdiv( $zp,3);$sx=$zx+$dx;$sy=$zy+',[chr(32)=>"",chr(10)=>""]));