Merge commit 'a2a4242'

[simantics/platform.git] / tests / org.simantics.scl.compiler.tests / src / org / simantics / scl / compiler / tests / scl / ListSyntax11.scl

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