Zhang-Suen thinning algorithm: Difference between revisions

repeat while my @goners1 or my @goners2 {

sub cycles (@neighbors) { [+] @neighbors Z< @neighbors[].rotate }

sub blacks (@neighbors) { [+] @neighbors }

next unless @black[p];

my \n = @black[p8 X+ p];

next unless 2 <= blacks(n) <= 6;

next if all n[0,2,4] or all n[2,4,6];

}

@black[@goners1] = 0 xx *;

say "Ping: {[+] @black} remaining after removing ", @goners1 if $DEBUG;

next unless @black[p];

my \n = @black[p8 X+ p];

next unless 2 <= blacks(n) <= 6;

next if all n[0,2,6] or all n[0,4,6];

}

@black[@goners2] = 0 xx *;

.........#.........####.........

................................</pre>

=={{header|Python}}==

Several input images are converted.