<jupyter_start><jupyter_text>Exercise 1.17<jupyter_code>(define (* a b)
  (if (= b 0)
      0
      (+ a (* a (- b 1)))))
(define (double a) (+ a a))
(define (halve a) (/ a 2))
(define (mul a b)
  (cond ((= b 0) 0)
        ((even? b) (mul (double a) (halve b)))
        (else (+ a (mul a (- b 1))))
        ))
(mul 8 7)<jupyter_output><empty_output>
{'fraction_non_alphanumeric': 0.22349570200573066, 'fraction_numerical': 0.034383954154727794, 'mean_word_length': 2.4653465346534653, 'pattern_counts': {'":': 0, '<': 5, '<?xml version=': 0, '>': 5, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'chain_length': '1', 'dir': 'jupyter-structured-clean-dedup', 'id': '89102', 'license': 'MIT', 'n_tokens_mistral': 162, 'n_tokens_neox': 148, 'n_words': 46, 'path': 'chapter01/ex1.17.rkt.ipynb', 'repo_name': 'tyohei/sicp2e', 'size': '349'}