From f6c32b37ef5a50a0efc7aa039e86205ab657737b Mon Sep 17 00:00:00 2001 From: nsfisis Date: Thu, 22 Jan 2026 06:54:31 +0900 Subject: add files --- src/blanquine.php | 58 ++++++++++++++++++++++++++++++++++++++++++++++++++ src/countup-quine.php | 1 + src/illegal-quine.php | 1 + src/illegal-quine2.php | 1 + src/quine-japan.php | 9 ++++++++ src/quine-puzzle.php | 50 +++++++++++++++++++++++++++++++++++++++++++ src/simple.php | 1 + src/try-quine.php | 1 + src/try-quine2.php | 1 + src/try-quine3.php | 1 + src/try-quine4.php | 1 + src/try-quine5.php | 1 + src/try-quine6.php | 1 + 13 files changed, 127 insertions(+) create mode 100644 src/blanquine.php create mode 100644 src/countup-quine.php create mode 100644 src/illegal-quine.php create mode 100644 src/illegal-quine2.php create mode 100644 src/quine-japan.php create mode 100644 src/quine-puzzle.php create mode 100644 src/simple.php create mode 100644 src/try-quine.php create mode 100644 src/try-quine2.php create mode 100644 src/try-quine3.php create mode 100644 src/try-quine4.php create mode 100644 src/try-quine5.php create mode 100644 src/try-quine6.php (limited to 'src') diff --git a/src/blanquine.php b/src/blanquine.php new file mode 100644 index 0000000..a93bee0 --- /dev/null +++ b/src/blanquine.php @@ -0,0 +1,58 @@ + [ 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(" 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(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 diff --git a/src/simple.php b/src/simple.php new file mode 100644 index 0000000..5dd598e --- /dev/null +++ b/src/simple.php @@ -0,0 +1 @@ + $s]);'; echo strtr($s, [str_repeat('.', 3) => $s]); diff --git a/src/try-quine5.php b/src/try-quine5.php new file mode 100644 index 0000000..9f0f38b --- /dev/null +++ b/src/try-quine5.php @@ -0,0 +1 @@ + addslashes($s)]);'; echo strtr($s, [str_repeat('.', 3) => addslashes($s)]); \ No newline at end of file diff --git a/src/try-quine6.php b/src/try-quine6.php new file mode 100644 index 0000000..8a2cea2 --- /dev/null +++ b/src/try-quine6.php @@ -0,0 +1 @@ + addcslashes($s, chr(39))]);'; eval($s); \ No newline at end of file -- cgit v1.3.1