Mercurial > hg > Papers > 2021 > soto-prosym
view Paper/src/AgdaTreeTest.agda @ 14:393c839f987b default tip
DONE
author | soto <soto@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Sat, 08 Jan 2022 12:41:39 +0900 |
parents | c59202657321 |
children |
line wrap: on
line source
test31 = putTree1 {_} {_} {ℕ} {ℕ} (createEmptyRedBlackTreeℕ ℕ ) 1 1 $ \t -> putTree1 t 2 2 $ \t -> putTree1 t 3 3 $ \t -> putTree1 t 4 4 $ \t -> getRedBlackTree t 4 $ \t x -> x