Better printing of treaps
This commit is contained in:
parent
8cf886461e
commit
b9954c0f9e
|
@ -58,7 +58,15 @@
|
||||||
|
|
||||||
(struct L () #:transparent)
|
(struct L () #:transparent)
|
||||||
|
|
||||||
(struct treap (order root size) #:transparent)
|
(struct treap (order root size)
|
||||||
|
#:transparent
|
||||||
|
#:methods gen:custom-write
|
||||||
|
[(define (write-proc v port mode)
|
||||||
|
(display "#<treap" port)
|
||||||
|
(for [(entry (in-list (treap-to-alist v)))]
|
||||||
|
(display " " port)
|
||||||
|
(display entry port))
|
||||||
|
(display ">" port))])
|
||||||
|
|
||||||
;; The singleton "empty" leaf sentinel
|
;; The singleton "empty" leaf sentinel
|
||||||
(define L0 (L))
|
(define L0 (L))
|
||||||
|
|
Loading…
Reference in New Issue