#!/usr/bin/perl #use 5.14.2; #use warnings; my $n = <>; for(my $i = 0; $i < $n; $i++) { my $ok = 0; my ($hh, $mm) = split ':', <>; if($hh <= 24 and $mm <= 60) { $ok = 1 if $mm == 0; $ok = 1 if $mm == $hh; $ok = 1 if $mm == reverse $hh; $ok = 1 if (int($hh/10 + $hh%10 + $mm/10 + $mm%10) == int($hh/10 + $mm%10)*2); $ok = 1 if ($hh*100 + $mm == 1024) || ($hh*100 + $mm == 2048)); } print "YES\n" if $ok == 1; print "NO\n" if $ok == 0; }