www

commit db1da5ae20f223d7f02991039d9cfd1f11b38301
parent fe494c6ad3dc89c1916add8514fa15f76bb0f89a
Author: AlexKnauth <alexander@knauth.org>
Date:   Thu, 10 Mar 2016 14:30:43 -0500

implement find example

Diffstat:
A
tapl/tests/mlish/find.mlish
 | 
33
+++++++++++++++++++++++++++++++++
M
tapl/tests/run-all-mlish-tests.rkt
 | 
1
+

2 files changed, 34 insertions(+), 0 deletions(-)
diff --git a/tapl/tests/mlish/find.mlish b/tapl/tests/mlish/find.mlish
@@ -0,0 +1,33 @@
+#lang s-exp "../../mlish.rkt"
+(require "../rackunit-typechecking.rkt")
+
+(define-type (List X)
+  Nil
+  (Cons X (List X)))
+
+(define-type (Option X)
+  None
+  (Some X))
+
+(define (find [lst : (List X)] [pred : (→ X Bool)] → (Option X))
+  (match lst with
+   [Nil -> None]
+   [Cons fst rst ->
+         (cond [(pred fst) (Some fst)]
+               [else (find rst pred)])]))
+
+(check-type
+ (find (Cons 1 (Cons 2 (Cons 3 Nil))) (λ ([x : Int]) (<= 2 x)))
+ : (Option Int)
+ -> (Some 2))
+
+(check-type
+ (find (Cons 1 (Cons 0 (Cons -1 Nil))) (λ ([x : Int]) (<= 2 x)))
+ : (Option Int)
+ -> (None {Int}))
+
+(check-type
+ (find (Nil {Int}) (λ ([x : Int]) (<= 2 x)))
+ : (Option Int)
+ -> (None {Int}))
+
diff --git a/tapl/tests/run-all-mlish-tests.rkt b/tapl/tests/run-all-mlish-tests.rkt
@@ -16,3 +16,4 @@
 
 ;; from rw ocaml
 (require "mlish/term.mlish")
+(require "mlish/find.mlish")