http://www.perlmonks.org?node_id=34559


in reply to Returning contents of subrules matches with Parse::RecDescent

A tuple is, at the least, an alternating integer-dot sequence with at minimum two repetitions of the integer-dot sequence. E.g: 2343.23423. is the minimum that a tuple may be.
I don't know REBOL, although I've looked at it a couple times. But I do know a bit of Parse::RecDescent. Try this:
tuple: (numberdot){2..} number(?) { [@{$item[1]}, @{$item[2]}] } numberdot: number dot { $item[1] } number: /(\d+)/ dot: /\./
All the shenanigans are necessary because you want to peer down into the arrayrefs returned from both $item[1] and $item[2]. Untested, but I think it's pretty close. I might be off an indirection or two. {grin}

-- Randal L. Schwartz, Perl hacker