Using num-digits-in-satisfying

To get the same effect as Use
(num-odds num) (num-digits-in-satisfying num odd?)
(num-sixes num) (num-digits-in-satisfying num (lambda (n) (= n 6)) )