Как преобразовать заданные слова в блок в слова

Question

Я хочу преобразовать блок из block: [ a: 1 b: 2 ] в [a 1 b 2]. Есть ли более простой способ, чем это?

map-each word block [ either set-word? word [ to-word word ] [ word ] ]

Answer 1

Держа это просто:

>> block: [a: 1 b: 2] 
== [a: 1 b: 2] 
>> forskip block 2 [block/1: to word! block/1] 
== b 
>> block 
== [a 1 b 2] 

Answer 2

Ответ от Graham Чиу:

В R2 вы можете сделать это:

>> to block! form [ a: 1 b: 2 c: 3] 
== [a 1 b 2 c 3] 

Answer 3

У меня была такая же проблема, так что я написал эту функцию. Может быть, есть более простое решение, о котором я не знаю.

flat-body-of: function [ 
    "Change all set-words to words" 
    object [object! map!] 
][ 
    parse body: body-of object [ 
     any [ 
      change [set key set-word! (key: to word! key)] key 
      | skip 
     ] 
    ] 
    body 
] 

Answer 4

Этим были созданы новые блоки, но они были достаточно краткими. Для известных set-word/value пар:

collect [foreach [word val] block [keep to word! word keep val]] 

В противном случае, вы можете использовать «или как в вашем случае:

collect [foreach val block [keep either set-word? val [to word! val][val]]] 

Я хотел бы предложить, что ваш map-each сам по себе достаточно краткий и.

Answer 5

Мне нравится ответ DocKimbel, но ради другой альтернативы ...

for i 1 length? block 2 [poke block i to word! pick block i] 

Answer 6

Или с помощью PARSE:

block: [ a: 1 b: 2 ] 
parse block [some [m: set-word! (change m to-word first m) any-type!]]