mirror of
https://github.com/HigherOrderCO/Kind.git
synced 2024-09-11 20:47:25 +03:00
11 lines
248 B
Plaintext
11 lines
248 B
Plaintext
String.join.go
|
|
: ∀(sep: String) ∀(strs: (List String)) String
|
|
= λsep λstrs
|
|
let P = λx String
|
|
let cons = λh λt
|
|
(String.concat
|
|
sep
|
|
(String.concat h (String.join.go sep t))
|
|
)
|
|
let nil = String.nil
|
|
(~strs P cons nil) |