[simantics/platform.git] / ListSyntax11.scl

import "Prelude"

dists l = sum [sqrt (x*x+y*y) 
              | (x,y) <- l ]
              
main = dists [(0,0),(1,1),(2,0)]
--            
3.414213562373095