HigherOrderCO/Bend
1
1
Fork 0
mirror of https://github.com/HigherOrderCO/Bend.git synced 2024-09-11 11:56:54 +03:00
Code Issues Packages Projects Releases Wiki Activity

simplified logic for List/count

Browse Source
This commit is contained in:
evanmm3 2024-05-22 17:06:29 -05:00
parent b41a88df7b
commit 62a39906da
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
examples/list.bend
View File

@ -64,18 +64,16 @@ List/len = @l
# List count:
# List l -> uint -> uint
# returns the number of instances of element s in list l.
List/count/aux = @acc @l @s
# returns the number of instances of uint s in list l.
List/count = @l @s
match l {
List/Nil: acc
List/Nil: 0
List/Cons: use acc = switch (== l.head s) {
0: acc;
_: (+ acc 1);
}
(List/count/aux acc l.tail s)
(List/count acc l.tail s)
}
List/count = @l @s
(List/count/aux 0 l s)
# List index:
# List l -> Some s
@ -162,7 +160,7 @@ List/split = @l @i
#main = (List/index [1, 2, 3, 4, 5] 4)
#main = (List/clear [0, 2, 3])
#main = (List/count [1, 2, 3, 3, 3, 4, 4, 5, 3, 1000] 3)
main = (List/len [1, 2, 3, 4, 4, 4])
#main = (List/len [1, 2, 3, 4, 4, 4])
#main = (List/reverse [1, 2, 3, 4, 5])
#main = (List/append [1, 2] 3)
#main = (List/add_front [2, 3] 1)