Parent Directory | Revision Log | Patch
revision 10 by dpavlin, Fri Aug 31 14:23:21 2007 UTC | revision 11 by dpavlin, Fri Aug 31 14:28:27 2007 UTC | |
---|---|---|
# | Line 247 sub is_symmetric { | Line 247 sub is_symmetric { |
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 | } | } |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |