rebol - 使用带解析的嵌套规则

Question

我正在尝试解析一些格式如下的数据。

data: [a b x b x x b a a x x b b x ]

我需要它按顺序提取 a 和 b，并对每个 a 和 b 执行不同的操作。

预期的输出是:

a
b
b
b
a
a
b
b
== true

到目前为止我已经想到了这个，但是对于重复的 a's 是失败的。

parse data [
  some [
    thru 'a (print "a")
    some [
      any [
        to 'b (print "b")
      ]
      to 'a
    ]
  ]
  to end
]

有什么指点吗？谢谢

Answer 1

>> data: [a b x b x x b a a x x b b x ]
== [a b x b x x b a a x x b b x]

>> parse data [ some [ 'a (print "a") | 'b (print "b") | skip ] ]
a
b
b
b
a
a
b
b
== true