diff options
Diffstat (limited to 'gen')
| -rw-r--r-- | gen/src/gleam@list.erl | 4 | ||||
| -rw-r--r-- | gen/src/gleam@string.erl | 27 |
2 files changed, 20 insertions, 11 deletions
diff --git a/gen/src/gleam@list.erl b/gen/src/gleam@list.erl index 57789ff..5706993 100644 --- a/gen/src/gleam@list.erl +++ b/gen/src/gleam@list.erl @@ -258,8 +258,8 @@ intersperse(List, Elem) -> [_] -> List; - [X | Rest] -> - [X, Elem | intersperse(Rest, Elem)] + [X1 | Rest] -> + [X1, Elem | intersperse(Rest, Elem)] end. at(List, Index) -> diff --git a/gen/src/gleam@string.erl b/gen/src/gleam@string.erl index 5d85771..eef6f5e 100644 --- a/gen/src/gleam@string.erl +++ b/gen/src/gleam@string.erl @@ -1,11 +1,28 @@ -module(gleam@string). -compile(no_auto_import). --export([length/1, lowercase/1, uppercase/1, compare/2, reverse/1, split/2, replace/3, append/2, concat/1, join/2]). +-export([is_empty/1, length/1, reverse/1, replace/3, lowercase/1, uppercase/1, compare/2, split/2, append/2, concat/1, join/2]). + +is_empty(Str) -> + case Str of + <<"">> -> + true; + + _ -> + false + end. length(A) -> string:length(A). +reverse(String) -> + gleam@iodata:to_string(gleam@iodata:reverse(gleam@iodata:new(String))). + +replace(String, Pattern, Substitute) -> + gleam@iodata:to_string( + gleam@iodata:replace(gleam@iodata:new(String), Pattern, Substitute) + ). + lowercase(A) -> string:lowercase(A). @@ -15,20 +32,12 @@ uppercase(A) -> compare(A, B) -> gleam_stdlib:compare_strings(A, B). -reverse(String) -> - gleam@iodata:to_string(gleam@iodata:reverse(gleam@iodata:new(String))). - split(X, Pattern) -> gleam@list:map( gleam@iodata:split(gleam@iodata:new(X), Pattern), fun gleam@iodata:to_string/1 ). -replace(String, Pattern, Substitute) -> - gleam@iodata:to_string( - gleam@iodata:replace(gleam@iodata:new(String), Pattern, Substitute) - ). - append(First, Second) -> gleam@iodata:to_string( gleam@iodata:append(gleam@iodata:new(First), Second) |