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)
L2))))
(trace-define (gcd-terms a b)
(trace-define (coeff-gcd termlist)
(define (gcd-terms a b)
(define (coeff-gcd termlist)
(if (empty-termlist? termlist)
0
(gcd (coeff (first-term termlist))
(coeff-gcd (rest-terms termlist)))))
(trace-define (div-by-coeff-gcd termlist)
(define (div-by-coeff-gcd termlist)
(div-terms
termlist
(adjoin-term