Ramer-Douglas-Peucker line simplification: Difference between revisions
Content added Content deleted
SqrtNegInf (talk | contribs) m (→{{header|Sidef}}: Fix link: Perl 6 --> Raku) |
SqrtNegInf (talk | contribs) m (→{{header|zkl}}: Fix link: Perl 6 --> Raku) |
||
Line 1,246: | Line 1,246: | ||
=={{header|zkl}}== |
=={{header|zkl}}== |
||
{{trans| |
{{trans|Raku}} |
||
<lang zkl>fcn perpendicularDistance(start,end, point){ // all are tuples: (x,y) -->|d| |
<lang zkl>fcn perpendicularDistance(start,end, point){ // all are tuples: (x,y) -->|d| |
||
dx,dy := end .zipWith('-,start); // deltas |
dx,dy := end .zipWith('-,start); // deltas |