explore the size of the clojure stack

stacksize.clj

(defn stacksize [] (try (throw (Exception. "")) (catch Exception e (count (.getStackTrace e)))))
(defn prss [] (print (stacksize) " "))

; stack size doesn't increase with proper loop/recur
(loop [x 0] (prss) (when (> 10 x) (recur (inc x))))
; 24  24  24  24  24  24  24  24  24  24  24 nil

; stack size increases with recursion
(defn rec [x continuation]
  (prss)
  (if (< 0 x)
    (rec (dec x) continuation)
    (when continuation (println) (println "continue") (continuation))))
(rec 20 nil)
; 25  26  27  28  29  30  31  32  33  34  35  36  37  38  39  40  41  42  43  44  45

; keeps increasing with a continuation down the callstack
(rec 20 (fn [] (rec 20 nil)))
; 25  26  27  28  29  30  31  32  33  34  35  36  37  38  39  40  41  42  43  44  45
; continue
; 47  48  49  50  51  52  53  54  55  56  57  58  59  60  61  62  63  64  65  66  67
(rec 20 (fn [] (rec 20 (fn [] (rec 20 nil)))))
; 25  26  27  28  29  30  31  32  33  34  35  36  37  38  39  40  41  42  43  44  45
; continue
; 47  48  49  50  51  52  53  54  55  56  57  58  59  60  61  62  63  64  65  66  67
; continue
; 69  70  71  72  73  74  75  76  77  78  79  80  81  82  83  84  85  86  87  88  89

; verify future resets
(let [p (promise)]
  (rec 200 (fn [] (future (deliver p (do (println "start over") (rec 20 nil))))))
  @p)
; 25  26  27  28  29  30  31  32  33  34  35  36  37  38  39  40  41  42  43  44
; 45  46  47  48  49  50  51  52  53  54  55  56  57  58  59  60  61  62  63  64
; 65  66  67  68  69  70  71  72  73  74  75  76  77  78  79  80  81  82  83  84
; 85  86  87  88  89  90  91  92  93  94  95  96  97  98  99  100  101  102  103
; 104  105  106  107  108  109  110  111  112  113  114  115  116  117  118  119
; 120  121  122  123  124  125  126  127  128  129  130  131  132  133  134  135
; 136  137  138  139  140  141  142  143  144  145  146  147  148  149  150  151
; 152  153  154  155  156  157  158  159  160  161  162  163  164  165  166  167
; 168  169  170  171  172  173  174  175  176  177  178  179  180  181  182  183
; 184  185  186  187  188  189  190  191  192  193  194  195  196  197  198  199
; 200  201  202  203  204  205  206  207  208  209  210  211  212  213  214  215
; 216  217  218  219  220  221  222  223  224  225
; continue
; start over
; 9  10  11  12  13  14  15  16  17  18  19  20  21  22  23  24  25  26  27  28  29

; yep
(let [p (promise)]
  (rec 200
       (fn []
         (future
           (rec 200
                (fn []
                  (future
                    (rec 200
                         (fn [] (deliver p (rec 20 nil))))))))))
  @p)
; 211  212  213  214  215  216  217  218  219  220  221  222  223  224  225  226
; 227  228  229  230  231  25  26  27  28  29  30  31  32  33  34  35  36  37
; 38  39  40  41  42  43  44  45  46  47  48  49  50  51  52  53  54  55  56  57
; 58  59  60  61  62  63  64  65  66  67  68  69  70  71  72  73  74  75  76  77
; 78  79  80  81  82  83  84  85  86  87  88  89  90  91  92  93  94  95  96  97
; 98  99  100  101  102  103  104  105  106  107  108  109  110  111  112  113
; 114  115  116  117  118  119  120  121  122  123  124  125  126  127  128  129
; 130  131  132  133  134  135  136  137  138  139  140  141  142  143  144  145
; 146  147  148  149  150  151  152  153  154  155  156  157  158  159  160  161
; 162  163  164  165  166  167  168  169  170  171  172  173  174  175  176  177
; 178  179  180  181  182  183  184  185  186  187  188  189  190  191  192  193
; 194  195  196  197  198  199  200  201  202  203  204  205  206  207  208  209
; 210  211  212  213  214  215  216  217  218  219  220  221  222  223  224  225
; continue
; 9  10  11  12  13  14  15  16  17  18  19  20  21  22  23  24  25  26  27  28
; 29  30  31  32  33  34  35  36  37  38  39  40  41  42  43  44  45  46  47  48
; 49  50  51  52  53  54  55  56  57  58  59  60  61  62  63  64  65  66  67  68
; 69  70  71  72  73  74  75  76  77  78  79  80  81  82  83  84  85  86  87  88
; 89  90  91  92  93  94  95  96  97  98  99  100  101  102  103  104  105  106
; 107  108  109  110  111  112  113  114  115  116  117  118  119  120  121  122
; 123  124  125  126  127  128  129  130  131  132  133  134  135  136  137  138
; 139  140  141  142  143  144  145  146  147  148  149  150  151  152  153  154
; 155  156  157  158  159  160  161  162  163  164  165  166  167  168  169  170
; 171  172  173  174  175  176  177  178  179  180  181  182  183  184  185  186
; 187  188  189  190  191  192  193  194  195  196  197  198  199  200  201  202
; 203  204  205  206  207  208  209
; continue
; 9  10  11  12  13  14  15  16  17  18  19  20  21  22  23  24  25  26  27  28
; 29  30  31  32  33  34  35  36  37  38  39  40  41  42  43  44  45  46  47  48
; 49  50  51  52  53  54  55  56  57  58  59  60  61  62  63  64  65  66  67  68
; 69  70  71  72  73  74  75  76  77  78  79  80  81  82  83  84  85  86  87  88
; 89  90  91  92  93  94  95  96  97  98  99  100  101  102  103  104  105  106
; 107  108  109  110  111  112  113  114  115  116  117  118  119  120  121  122
; 123  124  125  126  127  128  129  130  131  132  133  134  135  136  137  138
; 139  140  141  142  143  144  145  146  147  148  149  150  151  152  153  154
; 155  156  157  158  159  160  161  162  163  164  165  166  167  168  169  170
; 171  172  173  174  175  176  177  178  179  180  181  182  183  184  185  186
; 187  188  189  190  191  192  193  194  195  196  197  198  199  200  201  202
; 203  204  205  206  207  208  209
; continue
; 211  212  213  214  215  216  217  218  219  220  221  222  223  224  225  226
; 227  228  229  230  231