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

Fix bug

Browse Source
This commit is contained in:
Gaith Hallak 2021-08-02 17:01:30 +03:00
parent 588684ba16
commit ed1c74cdcf
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
priv/stdlib/Set.aes
View File

@ -25,12 +25,12 @@ namespace Set =
function from_list(l : list('a)) : set('a) = function from_list(l : list('a)) : set('a) =
{ to_map = Map.from_list(List.map((x) => (x, ()), l)) } { to_map = Map.from_list(List.map((x) => (x, ()), l)) }
function filter(p : 'a => bool, s : set('a)) : set('a) = function filter(p : 'a => bool, s : set('a)) : set('a) =
from_list(List.filter(p, to_list(s))) from_list(List.filter(p, to_list(s)))
function fold(f : ('a, 'b) => 'b, acc : 'b, s : set('a)) : 'b = function fold(f : ('a, 'b) => 'b, acc : 'b, s : set('a)) : 'b =
List.foldr(f, acc, to_list(l)) List.foldr(f, acc, to_list(s))
function subtract(s1 : set('a), s2 : set('a)) : set('a) = function subtract(s1 : set('a), s2 : set('a)) : set('a) =
filter((x) => !member(x, s2), s1) filter((x) => !member(x, s2), s1)