Zhang-Suen thinning algorithm: Difference between revisions

Content added Content deleted
(Rename Perl 6 -> Raku, alphabetize, minor clean-up)
m (→‎{{header|Perl}}: Fix link: Perl 6 --> Raku)
Line 3,007: Line 3,007:


=={{header|Perl}}==
=={{header|Perl}}==
{{trans|Perl 6}}
{{trans|Raku}}
<lang perl>use List::Util qw(sum min);
<lang perl>use List::Util qw(sum min);