some small changes
Getty Ritter
10 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 |