]> gerrit.simantics Code Review - simantics/platform.git/blob - tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/ListSyntax5.scl
Supply SVG text editor with element measurement context
[simantics/platform.git] / tests / org.simantics.scl.compiler.tests / src / org / simantics / scl / compiler / tests / scl / ListSyntax5.scl
1 import "Prelude"
2
3 a = [1,2,3,4]
4
5 main :: [Integer]
6 main = [x+y | x <- a, y <- a, x!=y]
7 --
8 [3, 4, 5, 3, 5, 6, 4, 5, 7, 5, 6, 7]