Ramer-Douglas-Peucker line simplification: Difference between revisions

m
m (→‎{{header|REXX}}: added a return code of zero to main program.)
Line 22:
{{trans|Go}}
 
<lang 11l>F rdp(l, epsilonε) -> [(Float, Float)]
V x = 0
V dMax = -1.0
Line 35:
dMax = d
I dMax > epsilonε
R rdp(l[0..x], epsilonε) [+] rdp(l[x..], epsilonε)[1..]
 
R [l[0], l.last]
1,481

edits