Welcome to DrScheme, version 4.2.1 [3m].
Language: Swindle; memory limit: 128 megabytes.
==========================
  CMPU-365, Fall 2014
  Asmt. 1
  Solutions in Scheme!
==========================

The sample bin-trees from 'bintrees-in-scheme.txt'...

(print-bin-tree tree3) ==> 
                    |
          [23]
                    |
[37]
                    |
          [55]
                    |
(print-bin-tree big-tree) ==> 
                              |
                    [92]
                              |
          [100]
                              |
                    [77]
                              |
[999]
                              |
                    [23]
                              |
          [37]
                              |
                    [55]
                              |

============================================
 1:  INSERT-NUMS 
============================================

(print-bin-tree (insert-nums '(5 2 3 8 9 2 16 4 3 0 12) *mt-tree*)) ==> 
                                        |
                              [16]
                                                  |
                                        [12]
                                                  |
                    [9]
                              |
          [8]
                    |
[5]
                                        |
                              [4]
                                        |
                    [3]
                              |
          [2]
                              |
                    [0]
                              |
(print-bin-tree (insert-nums '(50 25 75 12 37 62 88 5 17 28 30 42 99 52 85 57 77 72 60) *mt-tree*)) ==> 
                                        |
                              [99]
                                        |
                    [88]
                                        |
                              [85]
                                                  |
                                        [77]
                                                  |
          [75]
                                        |
                              [72]
                                        |
                    [62]
                                                            |
                                                  [60]
                                                            |
                                        [57]
                                                  |
                              [52]
                                        |
[50]
                                        |
                              [42]
                                        |
                    [37]
                                                  |
                                        [30]
                                                  |
                              [28]
                                        |
          [25]
                                        |
                              [17]
                                        |
                    [12]
                                        |
                              [5]
                                        |
(print-bin-tree (create-bin-tree '(4 3 8 9 2 4 5 4 6))) ==> 
                              |
                    [9]
                              |
          [8]
                                        |
                              [6]
                                        |
                    [5]
                              |
[4]
                    |
          [3]
                              |
                    [2]
                              |
(print-bin-tree (create-bin-tree ())) ==> 
|
(print-bin-tree (create-bin-tree '(1 2 3 4))) ==> 
                                        |
                              [4]
                                        |
                    [3]
                              |
          [2]
                    |
[1]
          |
(print-bin-tree (create-bin-tree '(4 3 2 1))) ==> 
          |
[4]
                    |
          [3]
                              |
                    [2]
                                        |
                              [1]
                                        |
(print-bin-tree (create-bin-tree '(2 4 1 3))) ==> 
                    |
          [4]
                              |
                    [3]
                              |
[2]
                    |
          [1]
                    |

============================================
 2:  DF listing 
============================================

(gen-depth-first-listing *mt-tree*) ==> ()
(gen-depth-first-listing (create-bin-tree '(1 2 3 4))) ==> (1 2 3 4)
(gen-depth-first-listing (create-bin-tree '(4 3 2 1))) ==> (4 3 2 1)
(gen-depth-first-listing (create-bin-tree '(2 4 3 1))) ==> (2 1 4 3)
(gen-depth-first-listing big-tree) ==> (999 37 55 23 100 77 92)
>