ompayne
/
sicp
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Remove tracing

This commit is contained in:
Oliver Payne 2022-04-17 21:42:43 +01:00
parent 102d945c86
commit 4c1ec4dbc3
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
2_78.rkt
View File

@ -609,13 +609,13 @@
L1) L1)
L2)))) L2))))
(trace-define (gcd-terms a b) (define (gcd-terms a b)
(trace-define (coeff-gcd termlist) (define (coeff-gcd termlist)
(if (empty-termlist? termlist) (if (empty-termlist? termlist)
0 0
(gcd (coeff (first-term termlist)) (gcd (coeff (first-term termlist))
(coeff-gcd (rest-terms termlist))))) (coeff-gcd (rest-terms termlist)))))
(trace-define (div-by-coeff-gcd termlist) (define (div-by-coeff-gcd termlist)
(div-terms (div-terms
termlist termlist
(adjoin-term (adjoin-term