($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} 96 ; 40 m", "$ {
b }30 ;1 0 6m " ); s ub >g { r
etur n >l o ca lt im e $l ;} s ub
> f{ ( $x ,$ y, $z , $ u,$v , $
w ) = g; $l =t ime lo c al (0,0,0,
$k ? $ u : 1 ,$ v, $ w ); }sub> h
{ p r in t$ _ [0 ] if $_ [ 1 ];
}@ t =( t i me ) ; i f ( !$
#A RG V){ i f( $A R G V [0 ]! ~/
^( [ 0-9 ] +) -([ 0 -9 ] + ) -(
[ 0 -9]+ ) $ /| | ! de f i n
e d ( $t [0 ] =e v al {t i m e
lo ca l( 0, 0 , 0, $ 3 ,$ 2 - 1
, $ 1 - 1 90 0)} ) ) {h " U n
a b l e > t o >pa r se >$ A R G
V [ 0 ] > a s >YY Y Y -M M -D D
$ o" , 1; ex i t >1; }} f or ( $ i
= 0 ; $i < $A;$ i + + ){$ l = $t[ $ i ]
; ( $ x , $y ,$ z ,$u ,$ v ,$w) = g ;p
us h@ r, [ $ w , $ v, $ i?-1 : $ u]
;$ k= 0 ; f or (f ; ; f ) {( $ x,
$y ,$ z , $u, $ v , $k , $s
)= g;l as t>if!$s;$l -=43200;}$t[ $ i ]=$ l
; @ c =@ m=();for($j=0; $j<42;$j++){($x,$y,$ z , $u,$v ,
$ w ,$ s,$ k)= g;$k+ =$w*3 65+int (~-$ w / 4) -in t
(~- $w /1 00 )+int(($w +2 99)/400 );pu sh @ m,$k-i nt($ k
/$a ) *$a ; p ush@c,($v - $ r[$i][1]? 0:$ u- $r[$i ][2] ?
1:2) ;$l+ =129600;f;}fo r ($j=0;$j<41;$j ++){$ c[ $ j] |
=4>i f $m [$j ]<=14. 5& & 14.5<$ m[ $ j + 1]& &$ c[ $j
]& 3; 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;
|