summaryrefslogtreecommitdiff
path: root/demo/more/dlist.ur
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2009-09-19 14:42:36 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2009-09-19 14:42:36 -0400
commit3bf0f6b7a465e3f24eff57633ee8aa3bbe41422a (patch)
treec66699a201ad33330f7547289548ce1fdf714f0f /demo/more/dlist.ur
parent142e0b28763660019a6fc0fc4a9383fb43b77407 (diff)
Progress on sorting + filtering
Diffstat (limited to 'demo/more/dlist.ur')
-rw-r--r--demo/more/dlist.ur15
1 files changed, 15 insertions, 0 deletions
diff --git a/demo/more/dlist.ur b/demo/more/dlist.ur
index fe0cdd07..277f1219 100644
--- a/demo/more/dlist.ur
+++ b/demo/more/dlist.ur
@@ -260,6 +260,21 @@ fun size [t] (dl : dlist t) =
Empty => return 0
| Nonempty {Head = hd, ...} => size' hd
+fun numPassing' [t] (f : t -> signal bool) (dl'' : dlist'' t) =
+ case dl'' of
+ Nil => return 0
+ | Cons (x, dl'') =>
+ b <- f x;
+ dl'' <- signal dl'';
+ n <- numPassing' f dl'';
+ return (if b then n + 1 else n)
+
+fun numPassing [t] (f : t -> signal bool) (dl : dlist t) =
+ dl' <- signal dl;
+ case dl' of
+ Empty => return 0
+ | Nonempty {Head = hd, ...} => numPassing' f hd
+
fun foldl [t] [acc] (f : t -> acc -> signal acc) =
let
fun foldl'' (i : acc) (dl : dlist'' t) : signal acc =