Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 13:49:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Adding extra exact-integer-sqrt tests.

Browse source
This commit is contained in:
Alex Shinn 2013-01-06 00:02:27 +09:00
parent 2f56d37f0c
commit 1594e2322b
1 changed files with 20 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
tests/r7rs-tests.scm
View file

@ -169,6 +169,26 @@
(let*-values (((root rem) (exact-integer-sqrt 32))) (let*-values (((root rem) (exact-integer-sqrt 32)))
(test 35 (* root rem))) (test 35 (* root rem)))
(test '(1073741824 0)
(let*-values (((root rem) (exact-integer-sqrt (expt 2 60))))
(list root rem)))
(test '(1518500249 3000631951)
(let*-values (((root rem) (exact-integer-sqrt (expt 2 61))))
(list root rem)))
(test '(815238614083298888 443242361398135744)
(let*-values (((root rem) (exact-integer-sqrt (expt 2 119))))
(list root rem)))
(test '(1152921504606846976 0)
(let*-values (((root rem) (exact-integer-sqrt (expt 2 120))))
(list root rem)))
(test '(1630477228166597776 1772969445592542976)
(let*-values (((root rem) (exact-integer-sqrt (expt 2 121))))
(list root rem)))
(let*-values (((root rem) (exact-integer-sqrt (expt 2 140)))) (let*-values (((root rem) (exact-integer-sqrt (expt 2 140))))
(test 0 rem) (test 0 rem)
(test (expt 2 140) (square root))) (test (expt 2 140) (square root)))