178 |
|
|
179 |
if ( $usage > 4 ) { |
if ( $usage > 4 ) { |
180 |
warn "SKIPPED, usage > 4\n"; |
warn "SKIPPED, usage > 4\n"; |
181 |
return; |
return 0; |
182 |
} |
} |
183 |
|
|
184 |
while( 1 ) { |
while( 1 ) { |
247 |
print ">>> RESULTS:\n"; |
print ">>> RESULTS:\n"; |
248 |
foreach my $r ( @shapes_found ) { |
foreach my $r ( @shapes_found ) { |
249 |
printf "%2d,%-2d len: %-4d directions: %s %s\n", |
printf "%2d,%-2d len: %-4d directions: %s %s\n", |
250 |
$r->{x}, $r->{y}, $r->{len}, $r->{directions}, is_symmetric($r->{directions}) ? 'symetric' : ''; |
$r->{x}, $r->{y}, $r->{len}, |
251 |
|
is_symmetric($r->{directions}) ? 'OK' : '!!', |
252 |
|
$r->{directions}, |
253 |
|
; |
254 |
} |
} |