Help for this page

Select Code to Download


  1. or download this
    ./pairs | grep cut | cut -d " " -f 4- | sort -u | sort -nr -k3
    cluster,items,attr 0 3 2 apple,orange,pumpkin plant,round
    ...
    cluster,items,attr 1 1 3 ball red,round,toy
    cluster,items,attr 0 1 4 orange fruit,orange,plant,round
    cluster,items,attr 0 1 4 apple fruit,plant,red,round
    
  2. or download this
    use List::Util (sum);
    use List::MoreUtils qw(uniq);
    ...
    }