Ramer-Douglas-Peucker line simplification: Difference between revisions

Content added Content deleted
m (→‎{{header|REXX}}: added a return code of zero to main program.)
Line 22: Line 22:
{{trans|Go}}
{{trans|Go}}


<lang 11l>F rdp(l, epsilon) -> [(Float, Float)]
<lang 11l>F rdp(l, ε) -> [(Float, Float)]
V x = 0
V x = 0
V dMax = -1.0
V dMax = -1.0
Line 35: Line 35:
dMax = d
dMax = d
I dMax > epsilon
I dMax > ε
R rdp(l[0..x], epsilon) [+] rdp(l[x..], epsilon)[1..]
R rdp(l[0..x], ε) [+] rdp(l[x..], ε)[1..]


R [l[0], l.last]
R [l[0], l.last]