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

fix for List/count, added List/sum

Browse Source
This commit is contained in:
evanmm3 2024-05-24 15:28:38 -05:00
parent 62a39906da
commit 7fd6b153a2
1 changed files with 15 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
examples/list.bend
View File

@ -42,6 +42,15 @@ List/add_front = @l @e
List/append = @l @e
(List/concat l (List/Cons e List/Nil))
# list sum:
# List l -> uint
# returns the sum of all items in the list
List/sum = @l
match l {
List/Cons: (+ l.head (List/sum l.tail))
List/Nil: 0
}
# List reverse:
# List l -> List l
# reverses the order of elements in list l.
@ -65,15 +74,17 @@ List/len = @l
# List count:
# List l -> uint -> uint
# returns the number of instances of uint s in list l.
List/count = @l @s
List/count/aux = @acc @l @s
match l {
List/Nil: 0
List/Nil: acc
List/Cons: use acc = switch (== l.head s) {
0: acc;
_: (+ acc 1);
}
(List/count acc l.tail s)
(List/count/aux acc l.tail s)
}
List/count = @l @s
(List/count/aux 0 l s)
# List index:
# List l -> Some s
@ -153,6 +164,7 @@ List/split = @l @i
#################################
#main = (List/sum [1, 2, 3])
#main = (List/split [1, 2, 3, 4, 5, 6, 7] 3)
#main = (List/remove [1, 2, 1, 3] 1)
#main = (List/pop_back [])