Jak przekonwertować zestaw słów w bloku na słowa

Question

Chcę przekonwertować blok z block: [ a: 1 b: 2 ] na [a 1 b 2]. Czy jest łatwiejszy sposób niż to?

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

Answer 1

ich prostota:

>> 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

odpowiedzi od Graham Chiu:

W R2 można to zrobić:

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

Answer 3

miałem ten sam problem więc napisałem tę funkcję. Może jest jakieś prostsze rozwiązanie, którego nie znam.

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

Stworzyły nowe bloki, ale są dość zwięzłe. Do znanych set-word/value parach:

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

W przeciwnym razie, można użyć „albo jak w przypadku:

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

sugeruję, że map-each sam jest dość zwięzły również.

Answer 5

Lubię odpowiedź DocKimbel, ale przez wzgląd na innej alternatywy ...

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

Answer 6

lub używając PARSE:

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