Dyalog '08

Got an invitation by Gitte Christensen - I'd like I could be there.
Unfortunately ...
Being retired I don't have a spectactular application available. Besides
I don't have much time these days, since music is occupying almost all
my spare time (started with writing the Genevan Psalter in fugues - am I
crazy? - in the meantime, some are on my website, text + sound). Unlike
Stanley Jordan I'm not using APL for it.
Tho, I'am doing small exercises from time to time. While reading &
writing on some weblog I was wondering about the distribution of
different contributors on a really large blog, and wrote a K-routine for
it, too little for travelling to Elsinore, I guess.
But, still, here is the code in K:

/ Function for searching unique participants on weblogs
/ jk

f:{[x;y;z]
/ x <> textfile copy & pasted from weblog;
/ y <> string-delimiter;
/ z <> number of trailing chars needed
q:6:x
a:q _ss y
b:q[(#y)+a+\:!z]
c(-z+1)+*:'b _ss "\227")_'b
/ "\227" <> CR/LF delimiter in textfile
r::1_'c[*:'=c]}

/ Execution:
f["blog.txt";"Reaction by";30]
"dln.txt" 0:r[<r:r[&~" "=*:'r]] / delete blank lines & write to file

Adding the frequency is trivial (a single primitive - I thought).

Unfortunately, my projected article on Q - Language was cancelled. The
magazine used to have two sections, Background and Opinion and for
organizational reasons (they said) they cancelled Background - too bad!
And, because the text of the article was in some way entangled with two
previous ones (on K and Kdb) I'm not in the mood to start with another
magazine. So, no article, no link.

Jan Karman