Peak Detection by nn

BEGIN{RS=FS}{for(;i++<NF;){for(j=i;--j&&$i>$j&&$i-$j<10;);for(k=i;k++<NF&&$i>$k&&$i-$k<10;);print $i(k<=NF&&$i-$k>9&&$i-$j>9?"*":_)}}

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page