Re: A tale of a programming conlanger

Don Blaheta wrote:

> >     $jj = lc $zz; while ($jj =~ s/(.)(.)/$2/) { $cnt{ "digraph $1$2" } ++ }
>
> This won't work right, because it won't count unaligned digraphs (e.g.
> in "read", "re" and "ad" would be counted, but not "ea").
I think it does, because it deletes the first but keeps the second,
then cycles. Perl is tricky.

root@localhost ~/lang/churlish ... frq
read
1       digraph ad
1       digraph ea
1       digraph re
1       single a
1       single d
1       single e
1       single r