方案:仅使用R6RS,如何确定flonum的尾数和指数

http://www.r6rs.org/final/html/r6rs-lib/r6rs-lib-Z-H-3.html#node_sec_2.8

--程序:字节向量ieee双本机集!字节向量K X

K、 …,K+7必须是字节向量的有效索引。

在这里使用:

> (define bv (make-bytevector 8))
> (bytevector-ieee-double-native-set! bv 0 1.0)
> bv
#vu8(0 0 0 0 0 0 240 63)

为了验证结果,这里有一个直接访问字节的C程序:

#include <stdio.h>

int main(void)
{
  double x = 1.0;
  unsigned char *p = &x;

  for (size_t i = 0; i < sizeof(double); i++)
    printf("%u ", p[i]);

  puts("");

  return 0;
}

0 0 0 0 0 0 240 63