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::protocol::linestream

IO::Async::Protocol::LineStream(3pm)			User Contributed Perl Documentation		      IO::Async::Protocol::LineStream(3pm)

NAME

       "IO::Async::Protocol::LineStream" - stream-based protocols using lines of text

SYNOPSIS

       Most likely this class will be subclassed to implement a particular network protocol.

	package Net::Async::HelloWorld;

	use strict;
	use warnings;
	use base qw( IO::Async::Protocol::LineStream );

	sub on_read_line
	{
	   my $self = shift;
	   my ( $line ) = @_;

	   if( $line =~ m/^HELLO (.*)/ ) {
	      my $name = $1;

	      $self->invoke_event( on_hello => $name );
	   }
	}

	sub send_hello
	{
	   my $self = shift;
	   my ( $name ) = @_;

	   $self->write_line( "HELLO $name" );
	}

       This small example elides such details as error handling, which a real protocol implementation would be likely to contain.

DESCRIPTION

EVENTS

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

   on_read_line $line
       Invoked when a new complete line of input is received.

PARAMETERS

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

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

METHODS

   $lineprotocol->write_line( $text )
       Writes a line of text to the transport stream. The text will have the end-of-line marker appended to it; $text should not end with it.

AUTHOR

       Paul Evans <leonerd@leonerd.org.uk>

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