Question

我试图通过使起始位置随机来改善the Sliding Tile Puzzle example。

有一种更好的方法 - "It is considered bad practice to convert values to strings and join them together to pass to do for evaluation." - 但我采取的方法是尝试生成Rebol3源，然后对其进行评估。我认为它生成正确，我认为：

random/seed now
arr: random collect [ repeat tilenum 9 [ keep tilenum ] ]
hgroup-data: copy {}
repeat pos 9 [
    curtile: (pick arr pos)
    append hgroup-data either curtile = 9
        [ reduce "x: box tilesize gameback " ]
        [ rejoin [ { p "} curtile {" } ] ]
    if all [(pos // 3) = 0 pos != 9] [ append hgroup-data " return^/" ]
]
print hgroup-data

...输出如下内容：

 p "4" x: box tilesize gameback  p "5"  return
 p "3"  p "7"  p "1"  return
 p "2"  p "8"  p "6"

...如果我然后复制并粘贴到此部分，则可以正常工作：

view/options [
    hgroup [ 
PASTE-HERE
    ]
] [bg-color: gameback]

但是，如果我尝试动态地执行此操作：

view/options [
    hgroup [ 
        hgroup-data
    ]
] [bg-color: gameback]

...（还有print hgroup-data，do hgroup-data和load hgroup-data），我收到此错误：

** GUI ERROR: Cannot parse the GUI dialect at: hgroup-data

...（或at: print hgroup-data等，取决于我尝试的变体。）

如果我尝试load [ hgroup-data ]，我会：

** Script error: extend-face does not allow none! for its face argument
** Where: either if forever -apply- apply init-layout make-layout actor all foreach do-actor unless -apply- apply all build-face -apply- apply init-layout make-layout actor all foreach do-actor if build-face -apply- apply init-layout make-layout actor all foreach do-actor unless make-face -apply- apply case view do either either either -apply-
** Near: either all [
    word? act: dial/1
    block? body: get dial...

但是，如果我使用语法hgroup do [ hgroup-data ]，程序会运行，但没有按钮：它似乎以某种方式被过度评估，因此函数p和{的返回值{1}}等等直接放入box作为代码。

我肯定在这里错过了一个简单的语法错误。它是什么？

Answer 1

首先，我想说最好直接构造一个块，而不是构造一个字符串并将其转换为一个块。但如果你真的想这样做，这应该可以解决问题：

view/options compose/only [
    hgroup (load hgroup-data)
] [bg-color: gameback]

评估Rebol3中的代码块

1 个答案: