Ramer-Douglas-Peucker line simplification: Difference between revisions

m
→‎{{header|zkl}}: Fix link: Perl 6 --> Raku
m (→‎{{header|Sidef}}: Fix link: Perl 6 --> Raku)
m (→‎{{header|zkl}}: Fix link: Perl 6 --> Raku)
Line 1,246:
 
=={{header|zkl}}==
{{trans|Perl 6Raku}}
<lang zkl>fcn perpendicularDistance(start,end, point){ // all are tuples: (x,y) -->|d|
dx,dy := end .zipWith('-,start); // deltas
2,392

edits