12 lines
216 B
Haskell
12 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
|