1

我正在尝试将二进制数据复制到一个数组中，并且得到了我没想到的结果。我将其简化为演示它的较小问题。

b: #{0102030405060708}
c: array (length? b)
repeat num (length? b) [
    print [
        {Setting location}
        num
        {to value of}
        to-binary reduce [(pick b num)]
    ] 
    poke c num (to-binary reduce [(pick b num)]) 
]

这导致：

Setting location 1 to value of #{01}
Setting location 2 to value of #{02}
Setting location 3 to value of #{03}
Setting location 4 to value of #{04}
Setting location 5 to value of #{05}
Setting location 6 to value of #{06}
Setting location 7 to value of #{07}
Setting location 8 to value of #{08}
== #{08}

>> c
== [#{08} #{08} #{08} #{08} #{08} #{08} #{08} #{08}]

我可以看到我正在==#{08}用我的重复块返回，但我不知道它来自哪里。我检查了trace on一下，似乎 poke 语句在重复的每一步都设置了块的所有元素。这似乎是一个指针问题，我可以用copy. 有人可以告诉我发生了什么吗？

更多测试：

>> to-binary reduce [pick b 1]
== #{01}

>> poke c 1 to-binary reduce [pick b 1]
== #{01}

>> c
== [#{01} #{01} #{01} #{01} #{01} #{01} #{01} #{01}]

>> poke c 2 #{02}
== #{02}

>> c
== [#{01} #{02} #{01} #{01} #{01} #{01} #{01} #{01}]

>> u: to-binary reduce [pick b 4]
== #{04}

>> poke c 4 u
== #{04}

>> c
== [#{04} #{02} #{04} #{04} #{04} #{04} #{04} #{04}]

回应拉迪斯拉夫的回答：

感谢您对错误的回答。

第一个示例给出的结果与我的预期不同。二进制元素的长度均为 8，而我对长度 1 感兴趣（因此使用 . 的块参数to-binary）

>> c
== [#{0000000000000001} #{0000000000000002} #{0000000000000003} #{0000000000000004} #{0000000000000005} #{0000000000000006} #{0000000000000007} #{0000000000000008}]

第二个作品，通过c: array (length? b)替换c: copy []

4

1 回答 1

3

你遇到了一个已知的错误。（已提交更正的拉取请求，AFAIK）解决方法是永远不要使用块作为 to-binary 函数的参数。以下代码应该可以工作：

b: #{0102030405060708}
c: array (length? b)
repeat num (length? b) [
    print [
        {Setting location}
        num
        {to value of}
        to-binary pick b num
    ] 
    poke c num to-binary pick b num 
]

但是，整个代码对我来说看起来过于复杂，我宁愿使用以下方法实现您的目标：

b: #{0102030405060708}
c: make block! length? b
repeat num (length? b) [
    print [
        {Setting location}
        num
        {to value of}
        copy/part at b num 1
    ]
    append c copy/part at b num 1
]

如果您只想从整数创建一个短（长度为 1）二进制，您可以使用以下公式：

append copy #{} 255
于 2013-08-08T23:33:34.463 回答