mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-04 14:20:26 +02:00
Code Activity

(numerator, denominator): New functions as specified by

Browse source 
R5RS, 7 lines by Aubrey Jaffer.
This commit is contained in:
Kevin Ryde 2005-04-23 00:36:41 +00:00
parent 4a44616e4b
commit a3d13e26cd
1 changed files with 9 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

9
ice-9/boot-9.scm
View file

@ -774,6 +774,15 @@
(define (log10 arg)
(/ (log arg) (log 10)))
(define (numerator q)
(do ((num q (* 2 num)))
((integer? num) num)))
(define (denominator q)
(do ((num q (* 2 num))
(den (- q q -1) (* 2 den)))
((integer? num) den)))
;;; {Reader Extensions}