Mercurial > hg > Papers > 2021 > soto-prosym

annotate Paper/src/AgdaTreeDebug.agda.replaced @ 14:393c839f987b default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
DONE
author soto <soto@cr.ie.u-ryukyu.ac.jp>
date Sat, 08 Jan 2022 12:41:39 +0900
parents 339fb67b4375
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
5
339fb67b4375 INIT rbt.agda
soto <soto@cr.ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
1 test31 = putTree1 {_} {_} {!$\mathbb{N}$!} {!$\mathbb{N}$!} (createEmptyRedBlackTree!$\mathbb{N}$! !$\mathbb{N}$! ) 1 1
339fb67b4375 INIT rbt.agda
soto <soto@cr.ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
2 $ \t !$\rightarrow$! putTree1 t 2 2
339fb67b4375 INIT rbt.agda
soto <soto@cr.ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
3 $ \t !$\rightarrow$! putTree1 t 3 3
339fb67b4375 INIT rbt.agda
soto <soto@cr.ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
4 $ \t !$\rightarrow$! putTree1 t 4 4
339fb67b4375 INIT rbt.agda
soto <soto@cr.ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
5 $ \t !$\rightarrow$! getRedBlackTree t 4
339fb67b4375 INIT rbt.agda
soto <soto@cr.ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
6 $ \t x !$\rightarrow$! x
0
soto <soto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
7
soto <soto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
8 -- Just
soto <soto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
9 -- (record
soto <soto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
10 -- { key = 4
soto <soto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
11 -- ; value = 4
soto <soto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
12 -- ; right = Nothing
soto <soto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
13 -- ; left = Nothing
soto <soto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
14 -- ; color = Red
soto <soto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
15 -- })