Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 20:45:06 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

WIP - bignums

Browse source
This commit is contained in:
Justin Ethier 2017-03-29 18:02:50 -04:00
parent acbb33cf5b
commit 173109e072
1 changed files with 13 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
srfi/60.scm
View file

@ -111,13 +111,19 @@
(define-c integer-length (define-c integer-length
"(void* data, int argc, closure _, object k, object x)" "(void* data, int argc, closure _, object k, object x)"
"Cyc_check_int(data, x); "Cyc_check_int(data, x);
int input = (int)unbox_number(x); if (Cyc_is_bignum(x) == boolean_t) {
int res = 0; int res;
while (input) { mp_radix_size(&bignum_value(x), 2, &res);
res++; return_closcall1(data, k, obj_int2obj((res - 1)));
input >>= 1; } else {
}; int input = (int)unbox_number(x);
return_closcall1(data, k, obj_int2obj(res));") int res = 0;
while (input) {
res++;
input >>= 1;
};
return_closcall1(data, k, obj_int2obj(res));
}")
(define (log2-binary-factors n) (define (log2-binary-factors n)
(- (integer-length (raw-logand n (- n))) 1)) (- (integer-length (raw-logand n (- n))) 1))