Venn Data Maker Post: 302979916

Sponsored Content

Homework and Emergencies Emergency UNIX and Linux Support Venn Data Maker Post 302979916 by RudiC on Sunday 21st of August 2016 01:14:20 PM

08-21-2016

Registered User

Another small refinement:

Code:

awk '
NR==1   {print "Name," $0
         CC = NF
         for (i=1; i<2^CC; i++) Set[i] = 0
         next
        }

        {for (i=1; i<=CC; i++)  {T[$i]
                                 R[$i,i] = 1
                                }
        }

END     {delete T[""]
         for (t in T)   {TMP = 0
                         for (i=1; i<=CC; i++)  {printf "%s,%s%s", i==1?t:_, R[t,i]+0, i==CC?RS:_
                                                 TMP = TMP + 2^(i-1)*R[t,i]
                                                }
                         Set[TMP]++
                        }
         for (i=1; i<2^CC; i++) {TMP = 0
                                 for (j=0; j<CC; j++) if (int(i/2^j)%2) TMP = TMP * 10 + j+1
                                 printf "Set%d_%s=%d" RS, TMP, TMP<10?"unique":"common", Set[i] |  "sort -k1.4,1n"
                                }
        }
' FS=, file
Name,Set1,Set2,Set3,S4,S5
g1,1,1,1,1,1
g2,1,1,0,1,0
g3,0,0,1,1,0
g4,1,0,0,1,1
g5,0,1,1,1,1
g6,1,0,0,1,1
g7,0,1,0,1,1
g8,0,0,1,0,1
Set1_unique=0
Set2_unique=0
Set3_unique=0
Set4_unique=0
Set5_unique=0
Set12_common=0
Set13_common=0
Set14_common=0
Set15_common=0
Set23_common=0
Set24_common=0
Set25_common=0
Set34_common=1
Set35_common=1
Set45_common=0
Set123_common=0
Set124_common=1
Set125_common=0
Set134_common=0
Set135_common=0
Set145_common=2
Set234_common=0
Set235_common=0
Set245_common=1
Set345_common=0
Set1234_common=0
Set1235_common=0
Set1245_common=0
Set1345_common=0
Set2345_common=1
Set12345_common=1

This User Gave Thanks to RudiC For This Post:

RudiC

View Public Profile for RudiC

Find all posts by RudiC

2 More Discussions You Might Find Interesting

1. Programming

maker

how can i remake a program to crash a harddrive using unix:rolleyes:

2. Shell Programming and Scripting

Venn diagram results using awk

Hi, I have the following files 1.txt a 10 b 11 c 12 d 13 e 14 f 15 g 16 h 17 i 18 j 19 k 20 2.txt a 21 b 22

LEARN ABOUT DEBIAN

io::async::signal

IO::Async::Signal(3pm)					User Contributed Perl Documentation				    IO::Async::Signal(3pm)

NAME

       "IO::Async::Signal" - event callback on receipt of a POSIX signal

SYNOPSIS

	use IO::Async::Signal;

	use IO::Async::Loop;
	my $loop = IO::Async::Loop->new;

	my $signal = IO::Async::Signal->new(
	   name => "HUP",

	   on_receipt => sub {
	       print "I caught SIGHUP
";
	   },
	);

	$loop->add( $signal );

	$loop->run;

DESCRIPTION

       This subclass of IO::Async::Notifier invokes its callback when a particular POSIX signal is received.

       Multiple objects can be added to a "Loop" that all watch for the same signal.  The callback functions will all be invoked, in no particular
       order.

EVENTS

       The following events are invoked, either using subclass methods or CODE references in parameters:

   on_receipt
       Invoked when the signal is received.

PARAMETERS

       The following named parameters may be passed to "new" or "configure":

       name => STRING
	       The name of the signal to watch. This should be a bare name like "TERM". Can only be given at construction time.

       on_receipt => CODE
	       CODE reference for the "on_receipt" event.

       Once constructed, the "Signal" will need to be added to the "Loop" before it will work.

AUTHOR

       Paul Evans <leonerd@leonerd.org.uk>

perl v5.14.2							    2012-10-24						    IO::Async::Signal(3pm)