diff options
author | Adam Chlipala <adamc@csail.mit.edu> | 2016-02-26 10:15:13 -0500 |
---|---|---|
committer | Adam Chlipala <adamc@csail.mit.edu> | 2016-02-26 10:15:13 -0500 |
commit | 69e9c6064e7728458a9ba365726706612d10e3f8 (patch) | |
tree | 7290f54c790c43492e37b2bce759aee67bfc0ee7 /lib/ur/list.urs | |
parent | c4e27c0873014af57224bccee09286f1adbbfa05 (diff) | |
parent | 026e50ceaad69147ae05386ea342861d18021cd5 (diff) |
Merge pull request #18 from AlexanderAA/master
Find longest prefix of elements, which satisfy a predicate; Group a list
Diffstat (limited to 'lib/ur/list.urs')
-rw-r--r-- | lib/ur/list.urs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lib/ur/list.urs b/lib/ur/list.urs index 55068935..ac874d7c 100644 --- a/lib/ur/list.urs +++ b/lib/ur/list.urs @@ -105,3 +105,9 @@ val recToList : a ::: Type -> r ::: {Unit} -> folder r -> $(mapU a r) -> t a val drop : t ::: Type -> int -> list t -> list t val take : t ::: Type -> int -> list t -> list t val splitAt : t ::: Type -> int -> list t -> list t * list t + +(** Longest prefix of elements, which satisfy a predicate *) +val span : a ::: Type -> (a -> bool) -> t a -> t a * t a + +(** Group a list *) +val groupBy : a ::: Type -> (a -> a -> bool) -> t a -> t (t a) |