: (define (my-count s)
(if (empty? s)
0
(+ 1 (my-count (bf s)))))
my-count
: (trace my-count)
my-count
: (my-count '(cs3 is the best class))
Entry (my-count '(cs3 is the best class))
|Entry (my-count '(is the best class))
| Entry (my-count '(the best class))
| Entry (my-count '(best class))
| |Entry (my-count '(class))
| | Entry (my-count '())
| | ==> 0
| |==> 1
| ==> 2
| ==> 3
|==> 4
==> 5
5
: (untrace my-count)
my-count
: (my-count '(cs3 is the best class))
5
