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::pid

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

NAME

       "IO::Async::PID" - event callback on exit of a child process

SYNOPSIS

	use IO::Async::PID;
	use POSIX qw( WEXITSTATUS );

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

	my $kid = $loop->fork(
	   code => sub {
	      print "Child sleeping..
";
	      sleep 10;
	      print "Child exiting
";
	      return 20;
	   },
	);

	print "Child process $kid started
";

	my $pid = IO::Async::PID->new(
	   pid => $kid,

	   on_exit => sub {
	      my ( $self, $exitcode ) = @_;
	      printf "Child process %d exited with status %d
",
		 $self->pid, WEXITSTATUS($exitcode);
	   },
	);

	$loop->add( $pid );

	$loop->run;

DESCRIPTION

       This subclass of IO::Async::Notifier invokes its callback when a process exits.

       For most use cases, a IO::Async::Process object provides more control of setting up the process, connecting filehandles to it, sending data
       to and receiving data from it.

EVENTS

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

   on_exit $exitcode
       Invoked when the watched process exits.

PARAMETERS

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

       pid => INT
	       The process ID to watch. Must be given before the object has been added to the containing "IO::Async::Loop" object.

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

       Once the "on_exit" continuation has been invoked, the "IO::Async::PID" object is removed from the containing "IO::Async::Loop" object.

METHODS

   $process_id = $pid->pid
       Returns the underlying process ID

   $pid->kill( $signal )
       Sends a signal to the process

AUTHOR

       Paul Evans <leonerd@leonerd.org.uk>

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