add bens tests to run-all-mlish

This commit is contained in:
Stephen Chang 2016-03-23 18:33:19 -04:00
parent cdd169381f
commit e9a4a9f1dd
2 changed files with 8 additions and 3 deletions

View File

@ -399,14 +399,14 @@
;; -----------------------------------------------------------------------------
;; --- mergesort
(define (split [x* : (List A)] → (** (List A) (List A)))
(define (split2 [x* : (List A)] → (** (List A) (List A)))
(match x* with
[Nil -> (Pair Nil Nil)]
[Cons h t ->
(match t with
[Nil -> (Pair (Cons h Nil) Nil)]
[Cons h2 x* ->
(match (split x*) with
(match (split2 x*) with
[Pair x* y* ->
(Pair (Cons h x*) (Cons h2 y*))])])]))
@ -430,7 +430,7 @@
(match t with
[Nil -> (Cons h Nil)]
[Cons h2 t2 ->
(match (split x*) with
(match (split2 x*) with
[Pair x* y* ->
(merge (Pair (mergesort x*) (mergesort y*)))])])]))

View File

@ -20,3 +20,8 @@
(require "mlish/alex.mlish")
(require "mlish/inst.mlish")
(require "mlish/result.mlish")
;; bg
(require "mlish/bg/basics.mlish")
(require "mlish/bg/huffman.mlish")
(require "mlish/bg/lambda.rkt")