suzanne.soy/scribble-math
1
0
Fork 0
Code Issues 8 Pull Requests 3 Actions Packages Projects Releases Wiki Activity

Fixed unparsing of a sum as factor. Issue #3.

Browse Source
This commit is contained in:
Jens Axel Søgaard 2012-07-02 17:21:39 +02:00
parent d0afb878e9
commit cd67ae6633
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
bracket/unparse.rkt
View File

@ -75,14 +75,14 @@
[(list-expression? form)
(format "{~a}"
(string-append* (add-between (map/first? #t unparse (operands form)) ",")))]
[(or (compound-expression? form)
(set-expression? form))
(format "~a(~a)" (operator form)
(string-append* (add-between (map/first? #t unparse (operands form)) ",")))]
[(plus-expression? form)
(format "(~a)" (unparse-sum form #t))]
[(times-expression? form)
(format "(~a)" (unparse-product form #t))]
[(or (compound-expression? form)
(set-expression? form))
(format "~a(~a)" (operator form)
(string-append* (add-between (map/first? #t unparse (operands form)) ",")))]
[else
; pass value unchanged: stuff like #void, #eof, special values etc.
form]))
@ -153,4 +153,6 @@
(check-equal? (unparse '(Times -2 (Sin x))) "-2*Sin(x)")
(check-equal? (unparse '(Times -2 (Sin x) (Cos y))) "-2*Sin(x)*Cos(y)")
(check-equal? (unparse '(Power (Times -2 (Sin x)) 5)) "(-2*Sin(x))^5")
; A sum as factor
(check-equal? (unparse '(Times x (Plus -9 (Power x 2)))) "x*(-9+x^2)")
)