some small changes
Getty Ritter
9 years ago
1 | V ::= [C] | 0 | V + V' | 1 | V * V' | |
2 | C ::= {V} | V -> C | top | C & C' | |
1 | -- V ::= [C] | 0 | V + V' | 1 | V * V' | |
2 | -- C ::= {V} | V -> C | top | C & C' | |
3 | 3 | |
4 | 4 | neg : [ int -> {int} ] |
5 | 5 | add : [ int -> int -> {int} ] |
39 | 39 | |
40 | 40 | ones : Stream Int |
41 | 41 | ones = rec this |
42 |
this.head <- |
|
42 | this.head <- {1} | |
43 | 43 | this.tail <- this |