]> gerrit.simantics Code Review - simantics/platform.git/blob - bundles/org.simantics.scl.compiler/tests/org/simantics/scl/compiler/tests/scl/RecursiveValues3.scl
List the unsatisfied dependencies in CanvasContext
[simantics/platform.git] / bundles / org.simantics.scl.compiler / tests / org / simantics / scl / compiler / tests / scl / RecursiveValues3.scl
1 data Nat = O | S Nat\r
2 \r
3 // It is important for this test that even and or are not annotated\r
4 even O = True\r
5 even (S x) = odd x\r
6 \r
7 odd O = False\r
8 odd (S x) = even x\r
9 \r
10 main = even (S (S (S (S (S O)))))\r
11 --\r
12 false