REBOL 元编程问题

Question

我对 REBOL 很陌生（即昨天）。

我在这里使用术语“元编程”，但我不确定它是否准确。无论如何，我正在尝试了解 REBOL 如何执行单词。举个例子，这里是 TCL 中的一些代码：

> # puts is the print command
> set x puts
> $x "hello world"
hello world

我尝试了很多不同的方法来在 REBOL 中执行类似的操作，但无法获得完全相同的效果。有人可以提供几种不同的方法来做到这一点（如果可能的话）？

谢谢。

Answer 1

这里有几个方法：

x: :print           ;; assign 'x to 'print
x "hello world"     ;; and execute it
hello world

blk: copy []               ;; create a block
append blk :print          ;; put 'print in it
do [blk/1 "hello world"]   ;; execute first entry in the block (which is 'print)
hello world

x: 'print                  ;; assign 'x to the value 'print
do x "hello world"         ;; execute the value contained in 'x (ie 'print)
hello world

x: "print"                ;; assign x to the string "print"
do load x "hello world"   ;; execute the value you get from evaluating 'x
hello world