comparison src/AgdaTreeTest.agda @ 1:73127e0ab57c

(none)
author soto@cr.ie.u-ryukyu.ac.jp
date Tue, 08 Sep 2020 18:38:08 +0900
parents
children
comparison
equal deleted inserted replaced
0:b919985837a3 1:73127e0ab57c
1 test31 = putTree1 {_} {_} {ℕ} {ℕ} (createEmptyRedBlackTreeℕ ℕ ) 1 1
2 $ \t -> putTree1 t 2 2
3 $ \t -> putTree1 t 3 3
4 $ \t -> putTree1 t 4 4
5 $ \t -> getRedBlackTree t 4
6 $ \t x -> x