I before E except after C: Difference between revisions

m
→‎{{header|Perl 6}}: lists needed flattening
m (Uset 'stem' instead of 'split')
m (→‎{{header|Perl 6}}: lists needed flattening)
Line 1,478:
class CollectWords::Actions {
method TOP($/) {
make $<word>».ast.flat.Bag;
}
 
method word($/) {
if $<with_c> + $<no_c> {
make (flat $<with_c>».ast, $<no_c>».ast);
} else {
make ();
Line 1,572:
class CollectWords::Actions {
method TOP($/) {
make $<word>».ast».flat.Bag;
}
 
method word($/) {
if $<with_c> + $<no_c> {
make (flat $<with_c>».ast xx $<freq>, $<no_c>».ast xx $<freq>);
} else {
make ();
2,392

edits