diff --git a/mods/std/list.lamb b/mods/std/list.lamb index 2d3282e..37a0967 100644 --- a/mods/std/list.lamb +++ b/mods/std/list.lamb @@ -67,3 +67,7 @@ drop(n, _::xs) -> drop(n-1, xs). take(0, _) -> []. take(n, []) -> []. take(n, x::xs) -> x :: take(n-1, xs). + +intercalate(s, []) -> "". +intercalate(s, x::[]) -> x. +intercalate(s, x::xs) -> x + s + intercalate(s, xs).