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

fix test to be reliable

Browse Source 
The original variant depended on floating-point precision of pow().
This commit is contained in:
Matthew Flatt 2012-02-26 15:21:22 -05:00
parent 21a07ae9d6
commit bf5ab2a1c9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/tests/racket/number.rktl
View File

@ -2839,7 +2839,7 @@
(not (= (floor (root (expt 10 (- n 1)) n))
(floor (root (- (expt 10 n) 1) n)))))
(test 240 length (filter n-digit-has-nth-root? (build-list 5000 (lambda (x) (+ x 1))))))
(test #t list? (filter n-digit-has-nth-root? (build-list 5000 (lambda (x) (+ x 1))))))
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;