Rosetta Code

Ramer-Douglas-Peucker line simplification: Difference between revisions

Page Discussion

Ramer-Douglas-Peucker line simplification (view source)

Revision as of 01:40, 21 December 2016

51 bytes removed ,  7 years ago
m
→‎{{header|Perl 6}}: style tweaks
(→‎{{header|Perl 6}}: Add Perl 6 example)
m (→‎{{header|Perl 6}}: style tweaks)
Line 138:
 
($Δx, $Δy) «/=» ($Δx² + $Δy²).sqrt;
my ((($offset-xΔpx, $offset-yΔpy) =«-» ($ΔpxΔx, $ΔpyΔy) «-*» ($Δx, * $Δpx + $Δy * $Δpy)) «**» 2).sum.sqrt;
«*» ($Δx * $Δpx + $Δy * $Δpy);
 
($offset-x² + $offset-y²).sqrt;
}
 
Thundergnat
10,333

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/272082"