all tasks

Task/Singly-linked-list-Element-insertion/Haskell/singly-linked-list-element-insertion-1.hs

@@ -0,0 +1,3 @@
+insertAfter a b (c:cs) | a==c = a : b : cs
+                       | otherwise = c : insertAfter a b cs
+insertAfter _ _ [] = error "Can't insert"

Task/Singly-linked-list-Element-insertion/Haskell/singly-linked-list-element-insertion-2.hs

@@ -0,0 +1,6 @@
+record Node (value, successor)
+
+procedure insert_node (node, newNode)
+  newNode.successor := node.successor
+  node.successor := newNode
+end

Task/Singly-linked-list-Element-insertion/Haskell/singly-linked-list-element-insertion-3.hs

@@ -0,0 +1,11 @@
+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