Print

Print


Irina Rempt-Drijfhout wrote:

> My Perl is non-existent, and I'd like to have a version that also
> counts word-final letters and word-initial/word-final digraphs. I
> *think* it might be a simple matter of adding a line or two, but I
> don't know what or where. Please help!

Good estimate; 3 lines of code added.

Test data: "first second"
Result:
1       digraph  f
1       digraph  s
1       digraph co
1       digraph d
1       digraph ec
1       digraph fi
1       digraph ir
1       digraph nd
1       digraph on
1       digraph rs
1       digraph se
1       digraph st
1       digraph t
3       single
1       single c
1       single d
1       single e
1       single f
1       single i
1       single n
1       single o
1       single r
2       single s
1       single t
1       wf-digraph nd
1       wf-digraph st
1       wi-digraph  fi
1       wi-digraph  se

Sorry, couldn't resist the challenge. Uploaded to:
http://www.catty.com/~catty/lang/frq.pl