一个有意思的awk脚本

pointer

抄自 The Practice of Programming

# markov.awk: markov chain algorithm for 2-word prefixes

BEGIN{ MAXGEN=1000; NONWORD="\n"; w1=w2=NONWORD}

{
    for(i=1;i<=NF;i++){
        statetab[w1,w2,++nsuffix[w1,w2]]= $i
        w1=w2; w2=$i;
    }
}
END{
    statetab[w1, w2,++nsuffix[w1,w2]]=NONWORD
    w1=w2=NONWORD
    for(i=0;i<MAXGEN;i++){
        r=int(rand()*nsuffix[w1,w2])+1
        p=statetab[w1,w2,r]
        if(p==NONWORD) exit
        print p
        w1=w2
        w2=p     
    }
}