Zhang-Suen thinning algorithm: Difference between revisions

Content added Content deleted
m (→‎{{header|Perl 6}}: removed DEBUG, in-lined source data)
m (→‎{{header|Perl}}: in-lined source 'image')
Line 2,994: Line 2,994:
=={{header|Perl}}==
=={{header|Perl}}==
{{trans|Perl 6}}
{{trans|Perl 6}}
<lang perl>use List::Util qw(sum max min);
<lang perl>use List::Util qw(sum min);


$source = <<'END';
open $fh, '<', "zhang-suen.txt";
............................................................
while ($line = <$fh>) {
..#################...................#############.........
chomp $line;
..##################...............################.........
⚫
push @lines, [map { 1 & ord $_ } split '', $line];
..###################............##################.........
..########.....#######..........###################.........
....######.....#######.........#######.......######.........
....######.....#######........#######.......................
....#################.........#######.......................
....################..........#######.......................
....#################.........#######.......................
....######.....#######........#######.......................
....######.....#######........#######.......................
....######.....#######.........#######.......######.........
..########.....#######..........###################.........
..########.....#######.######....##################.######..
..########.....#######.######......################.######..
..########.....#######.######.........#############.######..
............................................................
END

for $line (split "\n", $source) {
⚫
push @lines, [map { 1 & ord $_ } split '', $line]
}
}


Retrieved from "https://rosettacode.org/wiki/Zhang-Suen_thinning_algorithm"