conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

define (scheme inexact) library

This commit is contained in:
Yuichi Nishiwaki 2013-12-10 05:40:44 -08:00
parent 6dc66d354c
commit cdb1911f9f
2 changed files with 22 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
piclib/built-in.scm
View File

@ -337,6 +337,9 @@
(values (truncate-quotient n m) (values (truncate-quotient n m)
(truncate-remainder n m))) (truncate-remainder n m)))
; (import (only (scheme inexact) sqrt))
(import (scheme inexact))
(define (exact-integer-sqrt k) (define (exact-integer-sqrt k)
(let ((n (exact (sqrt k)))) (let ((n (exact (sqrt k))))
(values n (- k (square n))))) (values n (- k (square n)))))

26
src/number.c
View File

@ -513,8 +513,6 @@ pic_init_number(pic_state *pic)
pic_defun(pic, "exact?", pic_number_exact_p); pic_defun(pic, "exact?", pic_number_exact_p);
pic_defun(pic, "inexact?", pic_number_inexact_p); pic_defun(pic, "inexact?", pic_number_inexact_p);
pic_defun(pic, "exact-integer?", pic_number_exact_p); pic_defun(pic, "exact-integer?", pic_number_exact_p);
pic_defun(pic, "infinite?", pic_number_infinite_p);
pic_defun(pic, "nan?", pic_number_nan_p);
pic_gc_arena_restore(pic, ai); pic_gc_arena_restore(pic, ai);
pic_defun(pic, "=", pic_number_eq); pic_defun(pic, "=", pic_number_eq);
@ -543,6 +541,20 @@ pic_init_number(pic_state *pic)
pic_defun(pic, "round", pic_number_round); pic_defun(pic, "round", pic_number_round);
pic_gc_arena_restore(pic, ai); pic_gc_arena_restore(pic, ai);
pic_defun(pic, "square", pic_number_square);
pic_defun(pic, "expt", pic_number_expt);
pic_gc_arena_restore(pic, ai);
pic_defun(pic, "inexact", pic_number_inexact);
pic_defun(pic, "exact", pic_number_exact);
pic_gc_arena_restore(pic, ai);
DEFLIBRARY(pic, "(scheme inexact)")
{
pic_defun(pic, "finite?", pic_number_finite_p);
pic_defun(pic, "infinite?", pic_number_infinite_p);
pic_defun(pic, "nan?", pic_number_nan_p);
pic_defun(pic, "exp", pic_number_exp); pic_defun(pic, "exp", pic_number_exp);
pic_defun(pic, "log", pic_number_log); pic_defun(pic, "log", pic_number_log);
pic_defun(pic, "sin", pic_number_sin); pic_defun(pic, "sin", pic_number_sin);
@ -551,14 +563,8 @@ pic_init_number(pic_state *pic)
pic_defun(pic, "acos", pic_number_acos); pic_defun(pic, "acos", pic_number_acos);
pic_defun(pic, "asin", pic_number_asin); pic_defun(pic, "asin", pic_number_asin);
pic_defun(pic, "atan", pic_number_atan); pic_defun(pic, "atan", pic_number_atan);
pic_gc_arena_restore(pic, ai);
pic_defun(pic, "square", pic_number_square);
pic_defun(pic, "sqrt", pic_number_sqrt); pic_defun(pic, "sqrt", pic_number_sqrt);
pic_defun(pic, "expt", pic_number_expt); }
pic_gc_arena_restore(pic, ai); ENDLIBRARY(pic);
pic_defun(pic, "inexact", pic_number_inexact);
pic_defun(pic, "exact", pic_number_exact);
pic_gc_arena_restore(pic, ai);
} }