Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

super minimalistic test for evaluator

  • Loading branch information...
commit 64d9d492d37e40681657b1079fb464123d33b4f4 1 parent ad15b2d
@pikatchu authored
Showing with 13 additions and 0 deletions.
  1. +13 −0 test/unit/test_eval.lml
View
13 test/unit/test_eval.lml
@@ -0,0 +1,13 @@
+
+module Test = struct
+
+ val rev: 'a List.t * 'a List.t -> 'a List.t
+ let rev acc l =
+ match l with
+ | [] -> acc
+ | x :: rl -> rev (x :: acc) rl
+
+ val main: unit -> int List.t
+ let main() =
+ rev [] [1;2;3]
+end
Please sign in to comment.
Something went wrong with that request. Please try again.