diff options
| author | nsfisis <nsfisis@gmail.com> | 2025-03-01 13:25:22 +0900 |
|---|---|---|
| committer | nsfisis <nsfisis@gmail.com> | 2025-03-01 13:25:22 +0900 |
| commit | 6adf5b57c985287f8c1619577ea4408e72e172a1 (patch) | |
| tree | 927d7c9bcf61281bf92b93ae30692ef03cca6672 | |
| parent | c1a604fd1dee61c70c885586eb7bea7922450f56 (diff) | |
| download | 9-puzzle-quine.php-6adf5b57c985287f8c1619577ea4408e72e172a1.tar.gz 9-puzzle-quine.php-6adf5b57c985287f8c1619577ea4408e72e172a1.tar.zst 9-puzzle-quine.php-6adf5b57c985287f8c1619577ea4408e72e172a1.zip | |
| -rw-r--r-- | 9.php | 68 |
1 files changed, 34 insertions, 34 deletions
@@ -1,4 +1,4 @@ -<?php $z='bcdefghia';eval(strtr($s='$M="array_map";$S="st +<?php $z='bcdefghia';eval($s=strtr('$M="array_map";$S="st r_split";$C="chr";$zp=strpos($z,"a");[$dx,$dy]=match($arg v[1 ]?? nul l){ "h" =>[ 1,0 ]," @@ -11,40 +11,40 @@ y)$ sy= $zy ;$sp=$sy* 3+$ sx;[$z[$s p], $z[ $zp ]]= [$z [$z p], $z[ $sp ]]; ech o(" <?p hp" .$C (32 ).$ C(3 6)."z=".$ C(3 9).$z.$C( 39) -."; eva l(s trtr(".$C (36 )."s=".$C (39 +."; eva l(" .$C(36)." s=s trtr(".$C (39 )); $n= $M( $S, $S( "00 000 111 1141424414143341142414424344111143434",5));$m=$M($S,$S("0 -00001100101111",3));$i=(new("ArrayObject")($S(strtr($s."/ -/". $s, [$C (32 -)=> "", $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 +00001100101111",3));$i=(new("ArrayObject")($S($s."//".$s, +))) ->g etI ter +ato r() ;$B =fn +($_ =1) =>$ M(f n()=>prin t([ $i->curre nt( +),$ i-> nex t() ][0]),ran ge( 1,$_*3)); $W= +fn( $_= 1)= >pr int (st r_r epe +at( $C( 32) ,$_ *3) );$ N=f n() +=>p rint($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(f n($ +_)= >$_ ?$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)=>""]));
\ No newline at end of file +$N( );}$B(9); ech o($C(39). ",[ $C( +32) =>" .$C (34 ).$ C(3 4). +",$ C(1 0)= >". $C( 34) .$C +(34 )." ])) ;");//$M= "ar ray +_ma p"; $S= "str_spli t"; $C= +"ch r"; $zp =st rpo s($ z," +a") ;[$ dx, $dy ]=m atc h($ +arg v[1 ]?? null){"h" =>[ 1,0 +]," j"= >[0 ,-1],"k"= >[0 ,1] +,"l "=> [-1 ,0] +,de fau lt= >[0 +,0],};$zx=$zp%3;$zy=intdiv($zp,3);$sx=$zx+$dx;$sy=$zy+//$ +M="array_map";$S="str_split',[chr(32)=>"",chr(10)=>""]));
\ No newline at end of file |