SHOW:
|
|
- or go back to the newest paste.
| 1 | type AdtLisrt<'A>(head:Node<'A>) = | |
| 2 | - | |
| 2 | + | let mutable list = head |
| 3 | member s.DeleteHead () = | |
| 4 | match list with | |
| 5 | |Empty-> false | |
| 6 | |Cons(value, next) -> list<-next; true | |
| 7 | [<EntryPoint>] | |
| 8 | let main argv = | |
| 9 | let mutable list = new AdtList<int>(1) :> SList<int> | |
| 10 | list.DeleteHead //вот здесь и ругается... Если я туплю, прошу прошения! | |
| 11 | 0 |
