// keith waclena's benchmarks
// http://www.lib.uchicago.edu/keith/crisis/bench.html

\w

tak:{:[~y<x;z;_f[_f[x-1;y;z];_f[y-1;z;x];_f[z-1;x;y]]]}

\t a:tak[18;12;6]
\w

/ fgrep

fgrep:{d@&(d:0:x)_sm\:"*",y,"*"}

\t b:fgrep["words.txt";"zygote"]
\w

/ invert

invert:{
 d:.+(`A`B;("CC";"\t")0:x)	/ chop on tabs
 d:@[d;_n;@[;<d.A]]		/ sort on A
 g:=d.B				/ group on B
 d.A:d.A g[;0]			/ unique A's
 d.B:{,/"\t",x@<x}'d.B g	/ sort, tab each B
 d.A,'d.B}			/ join each A to each B

\t c:invert"input.txt"
\w