11 lines
216 B
Haskell
11 lines
216 B
Haskell
class Node (value, successor)
|
|
|
|
method insert (node)
|
|
node.successor := self.successor
|
|
self.successor := node
|
|
end
|
|
|
|
initially (value, successor)
|
|
self.value := value
|
|
self.successor := successor
|
|
end
|