Mercurial > hg > Papers > 2018 > ryokka-thesis
annotate final_pre/src/AgdaTreeDebug.agda @ 7:28f900230c26
add final_pre
author | ryokka |
---|---|
date | Mon, 19 Feb 2018 23:32:24 +0900 |
parents | |
children |
rev | line source |
---|---|
7 | 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 | |
7 | |
8 -- Just | |
9 -- (record | |
10 -- { key = 4 | |
11 -- ; value = 4 | |
12 -- ; right = Nothing | |
13 -- ; left = Nothing | |
14 -- ; color = Red | |
15 -- }) |