Wie setze ich Satzworte in einem Block in Worte um

Question

Ich möchte einen Block von block: [ a: 1 b: 2 ] zu [a 1 b 2] konvertieren. Gibt es einen einfacheren Weg als das?

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

Answer 1

Keeping it simple:

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

Antwort von Graham Chiu:

In R2 können Sie dies tun:

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

Answer 3

ich gleiche Problem hatte, so schrieb ich diese Funktion. Vielleicht gibt es eine einfachere Lösung, von der ich nichts weiß.

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

Diese erstellen neue Blöcke, sind aber ziemlich knapp. Für bekannte set-word/value Paare:

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

Andernfalls können Sie ‚entweder wie in Ihrem Fall:

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

Ich würde vorschlagen, dass Ihr map-each selbst auch ziemlich prägnant.

Answer 5

I DocKimbel Antwort mag, aber im Interesse einer weiteren alternativen ...

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

Answer 6

Oder mit PARST:

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