QPQ-AG/sophia
10
0
Fork 0
Code Issues 41 Pull Requests 5 Actions Packages Projects Releases 16 Wiki Activity

Fixed intersperse in stdlib

Browse Source
This commit is contained in:
Radosław Rowicki 2019-08-20 20:16:52 +02:00 committed by GitHub
parent 73b9a54172
commit 5dbca47d34
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/aeso_stdlib.erl
View File

@ -282,7 +282,7 @@ namespace List =
private function intersperse_(delim : 'a, l : list('a), acc : list('a)) : list('a) = switch(l) private function intersperse_(delim : 'a, l : list('a), acc : list('a)) : list('a) = switch(l)
[] => reverse(acc) [] => reverse(acc)
[e] => reverse(e::acc) [e] => reverse(e::acc)
h::t => intersperse_(delim, t, h::delim::acc) h::t => intersperse_(delim, t, delim::h::acc)
function enumerate(l : list('a)) : list(int * 'a) = enumerate_(l, 0, []) function enumerate(l : list('a)) : list(int * 'a) = enumerate_(l, 0, [])