suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

tweak the spacing in the bernoulli sequence

Browse Source
This commit is contained in:
Robby Findler 2013-12-10 12:11:11 -06:00
parent 70a86aac84
commit 19d9d9a8ae
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pkgs/drracket-pkgs/drracket/drracket/private/ada.rkt
View File

@ -55,7 +55,7 @@ bernoulli sequence
(add-between (add-between
(for/list ([x (in-range n)]) (for/list ([x (in-range n)])
(number->pict (bernoulli-number x))) (number->pict (bernoulli-number x)))
(tt ", ")))) (tt ", "))))
(define (tt str) (define (tt str)
(text str 'roman 24)) (text str 'roman 24))
@ -70,7 +70,7 @@ bernoulli sequence
(define abs-frac (vc-append 2 n line d)) (define abs-frac (vc-append 2 n line d))
(cond (cond
[(negative? num) [(negative? num)
(hc-append (tt "-") abs-frac)] (hc-append 4 (tt "-") abs-frac)]
[else [else
abs-frac])])) abs-frac])]))