]
: alphabet-inverse ( alphabet -- seq )
- dup supremum 1 + f <array> [
+ dup maximum 1 + f <array> [
'[ swap _ set-nth ] each-index
] keep ;
>>
: read-ignoring ( n ignoring stream -- accum )
pick <sbuf> [
- '[ _ _ read1-ignoring [ ] _ push-if ] times
+ '[ _ _ read1-ignoring [ ] _ push-when ] times
] keep ;
: decode4 ( a b c d -- x y z )