4 lines
145 B
Haskell
4 lines
145 B
Haskell
|
insertAfter a b (c:cs) | a==c = a : b : cs
|
||
|
|
| otherwise = c : insertAfter a b cs
|
||
|
|
insertAfter _ _ [] = error "Can't insert"
|