mirror of
https://github.com/HigherOrderCO/Bend.git
synced 2024-11-05 04:51:40 +03:00
3 lines
106 B
Plaintext
3 lines
106 B
Plaintext
(StrCons x (str_tup, str_len)) = (λ#String k (x, (str_tup k)), (+ 1 str_len))
|
|
|
|
Main = (StrCons 'a' "foo") |