($z='$A=2;$o="\n";$b="\e[";$a=29.53
058885 3;use
>Ti me:
:Lo ca
l;@ p=
("$ { b}
9 0; 4 0m ", "$
{b } 3 7 ; 4 0 m" ,"${
b }30 ;4 7 m" ," $ { b} 30 ;47m
","$ { b } 9 0; 40 m ", "${ b} 9
6 ;40 m" , "$ { b} 3 0; 10 6 m
");s u b> g {r et ur n >l oc a lt
i me $ l; }s ub >f { ( $x,$ y ,
$ z , $u ,$ v, $w) =g ; $l =timelo
ca l ( 0 , 0 ,0 ,$ k ? $u :1,$v ,
$ w ) ;} su b >h { pr in t $ _[
0] i f$ _ [ 1] ; } @ t = (t
im e) ;if ( !$ #A R G V ){ if ($
AR G V[0 ] !~ /^( [ 0- 9 ] + )-
( [ 0-9] + ) -( [ 0 -9 ] + )
$ / | |! de f in e d( $t [ 0 ]
=e va l{ ti m e lo c a l( 0 , 0
, 0 , $ 3 ,$ 2-1 , $ 1- 1 9 0
0 ) } ) ) { h "Un a bl e> t o >
p a r s e > $ ARG V [ 0] > as >
Y YY Y -M M- D D $o" ,1 ; ex i t >
1 ; } }f o r($i = 0 ; $i< $ A ;$i + + )
{ $ l = $ t[ $i ] ;($ x, $ y,$z , $ u,
$v ,$ w) = g ; p u sh @ r,[$ w , $v
,$ i? - 1 : $u ]; $ k = 0 ;f o r(
f; ;f ) { ($x , $ y ,$ z ,$
u, $v, $k ,$s)=g;las t>if!$s;$l-= 4 3 200 ;
} $ t [$ i]=$l;@c=@m=() ;for($j=0;$j<42;$j++ ) { ($x,$ y
, $ z, $u, $v, $w,$s ,$k)= g;$k+= $w*3 6 5 +i nt( ~
-$w /4 )- in t(~-$w/10 0) +int(($ w+29 9) / 400);p ush@ m
,$k - int ( $ k/$a)*$a; p u sh@c,($v- $r[ $i ][1]? 0:$u -
$r[$ i][2 ]?1:2);$l+=12 9 600;f;}for($j= 0;$j< 41 ; $j +
+){$ c [$ j]| =4>if$ m[ $ j]<=15 .5 & & 1 5.5 <$ m[ $j
+1 ]; p us h @c,0;} p us h@q,[@c ] ; h "> > > " ,$
i ;pr i nt f "${b } 9 7;40m$ { b }4 m >% 0 4 d
- % 0 2d " . ( ">"x 2 6 ). " $ { b
}0 m " , $r [ $ i] [
0] +1 90 0,$r [ $i ][1 ]
+1 ;p u sh@ t,$ t[ $i]+3 6
28 8 0 0 ;} h$o ,1 ; for( $ j=
0;$j < 7 ;$j ++) { for ( $ i=
0 ;$ i < $A ;$ i ++ ){ h" >
> ", $ i ;f or ($ k=0 ; $k < 7
; $k + + ){ $ x= $q [$i ] [
$j *7+ $ k ]; $y=6< $j * 7+ $ k
? $q[ $ i] [$ j * 7+$ k- 7 ] : 0
; $ z = $ x |$y ; $ z=$ z - 7 ? $z
:2 | ($ x -2 & &$y - 2 ?4: 0 ); h " $
p [ $ z ]>>> >${ b}0m >" , 1 ;} }
h $ o ,1 ;if ($j< 6){f o r ( $i =0
; $i < $A ;$i ++){ $l=$t[ $ i] ;h ">> "
,$ i; fo r( $s =0;$s< 7 ;$s+ + ) {
($ x ,$ y ,$z, $ u) =g;p ri
n t f"%s>%2d>${b}0m>" ,$ p[$ q[$i][ $
j * 7+$s] ] , $
u ;$ l+ =12 9
6 0 0 ;f ;} $
t [$ i]= $l ;
} h $o,
1 ;
} }')
=~ s/\s//g
;$z=~s/>/ /g;
eval$z;
|