fork download
copy 
  1. BEGIN { n = 3 }
  2.  
  3. NR == 1 { for (i = 1; i <= NF; i++) { word[$i]++ } }
  4.  
  5. NR >  1 { counter = 0
  6.           for (i = 1; i <= NF; i++) {
  7.               if (word[$i]-- > 0) counter++ }
  8.           if (counter >= n) print $0
  9.           delete word
  10.           for (i = 1; i <= NF; i++) { word[$i]++ } }
Success #stdin #stdout 0s 23336KB
comments (?)
stdin
copy 
word1 word2 word3 word4
word4 word5 word6 word7
word6 word7 word8 word9
word9 word6 word8 word3
word1 word4 word5 word4
stdout
copy 
word9 word6 word8 word3
https://ideone.com/e7zW3o
language:
AWK (gawk 4.2.1)
created:
4 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!