| 1234567891011 |
- sm:{C:@[&256;x[0];:;1+!#x[0]] / create a state machine with character classes
- (C;((1_*+y)?(1_'1_y))@\:(".",x[1])?1_*y)} / x and table y
- prs:{y{x[y;z]}[x[1]]\x[0]@z} / parse text z with state machine x and initial value y
- spl:{(,x[0]),1_+(+y)@(*y)?x[1]} / split character classes using a mapping
- mrg0:{f:&'"."=r:@/1(&^" ."?*:')\1_z[0]@\:1^(*z[0])?x / preparse sub-state machine for merging
- @[;;:;]'[r;f;y@f:f^\:x?z[1]]}
- mrg:{cs:" .",x[0];((,cs),,/mrg0[cs;x[1]]'y),,x[1]}
|
