Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Max value

by ameezys (Acolyte)
on Apr 15, 2019 at 15:17 UTC ( [id://1232584]=perlquestion: print w/replies, xml ) Need Help??

ameezys has asked for the wisdom of the Perl Monks concerning the following question:

Hello monks. I am currently stuck with my code.

 for $gate (@gates)
 {
   if (grep { $gate->{gate_level} eq '1' } @gates)
   { 
     push @level_1_output, $gate->{output}->{wire_name};
     
     %hash1 = ( $gate->{input_1}->{wire_name} => { CC0 => 1, CC1 => 1}
+ );
     %hash2 = ( $gate->{input_2}->{wire_name} => { CC0 => 1, CC1 => 1}
+ );
     %hash3 = ( $gate->{output}->{wire_name} => { CC0 => 0, CC1 => 0} 
+);
     
     print "CC0[", $gate->{input_1}->{wire_name},"]= ", $hash1{$gate->
+{input_1}->{wire_name}}{CC0}, "\n";
     print "CC1[", $gate->{input_1}->{wire_name},"]= ", $hash1{$gate->
+{input_1}->{wire_name}}{CC1}, "\n\n";
     
     print "CC0[", $gate->{input_2}->{wire_name},"]= ", $hash2{$gate->
+{input_2}->{wire_name}}{CC0}, "\n";
     print "CC1[", $gate->{input_2}->{wire_name},"]= ", $hash2{$gate->
+{input_2}->{wire_name}}{CC1}, "\n\n";
     
     if (grep { $gate->{gate_type} eq 'nand' } @gates)
     {
       $hash3{$gate->{output}->{wire_name}}{CC0} = $hash1{$gate->{inpu
+t_1}->{wire_name}}{CC1} + $hash2{$gate->{input_2}->{wire_name}}{CC1} 
++ 1;
       $hash3{$gate->{output}->{wire_name}}{CC1} = min($hash1{$gate->{
+input_1}->{wire_name}}{CC0} , $hash2{$gate->{input_2}->{wire_name}}{C
+C0}) + 1;
     }
      
     print "CC0[", $gate->{output}->{wire_name},"]= ", $hash3{$gate->{
+output}->{wire_name}}{CC0}, "\n";
     print "CC1[", $gate->{output}->{wire_name},"]= ", $hash3{$gate->{
+output}->{wire_name}}{CC1}, "\n\n";  
     $level_2_inputCC0 = $hash3{$gate->{output}->{wire_name}}{CC0};
     $level_2_inputCC1 = $hash3{$gate->{output}->{wire_name}}{CC1};
     
     push @CC0_value_1, $hash1{$gate->{input_1}->{wire_name}}{CC0}, $h
+ash2{$gate->{input_2}->{wire_name}}{CC0}, $hash3{$gate->{output}->{wi
+re_name}}{CC0};
     push @CC1_value_1, $hash3{$gate->{output}->{wire_name}}{CC1};
     
     $max_CC0_1 = max @CC0_value_1;
     print "$max_CC0_1\n";
   
   }
 
 }

[download]
Shown above is a snippet of my program. After I'm done with pushing the values into array @CCO_value_1, I want to find the max value between those three values. However, I want to display the max value as well as the wire name that holds the value. Is it possible?

Replies are listed 'Best First'.
Re: Max value
by thanos1983 (Parson) on Apr 15, 2019 at 15:46 UTC

    Hello ameezys,

    We do not have sample of your data so I can see if it is a complex structure or a simple array. In case that is a simple array you can use (List::Util):

    #!/usr/bin/perl
use strict;
use warnings;
use feature 'say';
use List::Util qw( min max );

my @num = qw(1 2 3 4 5);
my $max = max @num;

say "Max: ".$max;

__END__

perl test.pl
Max: 5

    [download]

    If you want to get also the minimum you can use (List::MoreUtils) as it is more efficient when you want to retrieve both values:

    #!/usr/bin/perl
use strict;
use warnings;
use feature 'say';
use List::MoreUtils qw( minmax );

my @num = qw(1 2 3 4 5);
my ($min, $max) = minmax @num;

say "Min: ".$min;
say "Max: ".$max;

__END__

perl test.pl
Min: 1
Max: 5

    [download]

    Hope this helps, BR

    Seeking for Perl wisdom...on the process of learning...not there...yet!
[reply]
[d/l]
[select]

      It is quite long.

      #!/usr/bin/perl
use warnings;
use Data::Dumper;
use strict;
use List::Util qw(min max); 

my $bench_file = $ARGV[0];
my $filename = 'c:\Users\aqids\Desktop\SEM 7\FYP 1\test_3.v';

my @input_array;
my @output_array;  
my @wire_array;  
my @gates;   
my @gate_type;
my @gate_name;
my @output_gate;
my @input_A;
my @input_B;
my @gate_data;
my %primaryCC0;
use constant {CC0 => 0, CC1 =>1};

my $gate_type=0;
my $gate_name=0;
my $output_gate=0;
my $input_A=0;
my $input_B=0;

 print "----------------------------------\n       TESTABILITY MEASURE
+S           \n---------------------------------- \n"; 

open(FH, '<', $filename) or die "Format of bench file name: circuit_na
+me.v \n example : s1423.v\n";
 
while(<FH>)
{
    #READ MODULE NAME  
    my $MODULE_NAME = $_;
    if (defined($MODULE_NAME) && ($MODULE_NAME =~ /module (\w+) /)) 
    {  
    my $module_name = $1;
    print "Circuit name = $module_name\n";  
    }
      
    #READ input N1,N2,N3,N6,N7;
    my $INPUT_DATA = $_;
    if (defined($INPUT_DATA) && ($INPUT_DATA =~ /input (.*);/)) 
    {   
    @input_array = split /,/, $1;
    my $size_input = @input_array;
    print "Primary input = ";  
    print scalar "@input_array\n"; 
    print "Number of primary input = $size_input\n";      
    }
    
    #READ output N22, N23;
    my $OUTPUT_DATA = $_;
    if (defined($OUTPUT_DATA) && ($OUTPUT_DATA =~ /output (.*);/)) 
    {   
    @output_array = split /,/, $1;
    my $size_output = @output_array;
    print "Primary output = ";  
    print scalar "@output_array\n"; 
    print "Number of primary output = $size_output\n"; 
    } 
    
    #READ wire N10, N11, N16, N19;
    my $WIRE_DATA = $_;
    if (defined($WIRE_DATA) && ($WIRE_DATA =~ /wire (.*);/)) 
    {   
    @wire_array = split /,/, $1;
    my $size_wire = @wire_array;
    print "Wires = ";  
    print scalar "@wire_array\n"; 
    print "Number of wires = $size_wire\n\n"; 
    }
    
    
    #AND, OR, NAND, NOR, XOR 
    my $gate_DATA = $_;
    if (defined($gate_DATA) && ($gate_DATA =~ /(.*) (.*) \((.*),(.*),(
+.*)\);/) && ($gate_DATA !~ /module/) )    
    {
        $gate_type = $1, $gate_name = $2, $output_gate = $3, $input_A 
+= $4, $input_B = $5;
        
        push @gate_type, $gate_type;
        push @gate_name, $gate_name;
        push @input_A, $input_A;
        push @input_B, $input_B;
        push @output_gate, $output_gate;
        push @gate_data, $gate_name, $output_gate, $input_A, $input_B;
        
        push @gates,   
           {   
              element => "gate",  
              num_inputs => 2,  
              gate_type => "$1",   
              gate_name => "$2",   
              output => { element => "wire", wire_name => "$3", level 
+=> 0, wire_delay => 0 },  
              input_1 => { element => "wire", wire_name => "$4", level
+ => 0, wire_delay => 0, },  
              input_2 => { element => "wire", wire_name => "$5", level
+ => 0, wire_delay => 0, },  
              processed => 0,   
              gate_delay => 2,  
              gate_level => -1  
           }; 
    }
}
 #File Read complete 

my $gate, my $element, my $num_gates, my $inp, my $inp_test;
my @wire_struct;
my @input_list_struct;
my @input_list_struct_2;
my @output_list_struct;
my @gate_queue;

my %hash1;
my %hash2;
my %hash3;
my %hash4;

 
 #wire struct holds fault data for all wires  
 #input_list_struct is used for levelization  
 for $element (@input_array){  
   push @wire_struct, {element => "wire",wire_name => "$element", sa0 
+=> 1, sa1 =>1, level => 0,wire_delay=>0};  
   push @input_list_struct, {element => "wire",wire_name => "$element"
+, sa0 => 1, sa1 => 1, level => 0,wire_delay=>0};  
   push @input_list_struct_2, {element => "wire",wire_name => "$elemen
+t", sa0 => 1, sa1 => 1, level => 0,wire_delay=>0};  
 }  
 for $element (@wire_array){  
   push @wire_struct, { element => "wire",wire_name => "$element", sa0
+ => 1, sa1 =>1, level => -1,wire_delay=>0};  
 }  
 for $element (@output_array){  
   push @wire_struct, { element => "wire",wire_name => "$element", sa0
+ => 1, sa1 =>1, level => -1,wire_delay=>0};  
   push @output_list_struct, {element => "wire",wire_name => "$element
+", sa0 => 1, sa1 => 1, level => 0,wire_delay=>0};  
 }  
 $num_gates = scalar @gates;  
 my $index=0;  
 #gate_processed = 2 then all inputs are processed  
 #shift gate into the queue if even one of the inputs processed  
 while($num_gates != 0)  
 {  
   for my $gate(@gates){    
      for my $inp (@input_list_struct){  
        my $inp_test = $inp->{wire_name};  
        if(($gate->{input_1})->{wire_name} =~ m/$inp_test$/){   
           $gate->{processed}++;  
           if($gate->{processed}==1){  
             unshift(@gate_queue,$gate);  
           }  
           if($gate->{processed}>1){  
             $gate->{processed}=$gate->{num_inputs};  
           }  
        }  
        if(($gate->{num_inputs}!=1)){  
           if(($gate->{input_2})->{wire_name} =~ m/$inp_test$/){  
             $gate->{processed}++;  
             if($gate->{processed}==1){  
                unshift(@gate_queue,$gate);  
             }  
           }  
           if($gate->{processed}>1){  
             $gate->{processed}=$gate->{num_inputs};  
           }  
        }  
      }  
   }    
 #if both inputs of the gates are processed, then calculate the level 
+of the gate  
 #if only one of the inputs are processed, then add the gate to the en
+d  
   my $num_gate_queue = scalar @gate_queue;  
   while ($num_gate_queue != 0)  
   {  
      $gate = pop(@gate_queue);  
      if($gate->{processed}==$gate->{num_inputs}){  
        if($gate->{num_inputs}==2){  
           if(($gate->{input_1}->{level})>($gate->{input_2}->{level}))
+{  
             $gate->{gate_level} = ($gate->{input_1}->{level});  
           }  
           else{  
             $gate->{gate_level} = ($gate->{input_2}->{level});  
           }  
           $gate->{gate_level}++;  
           $gate->{output}->{level}=$gate->{gate_level};  
           unshift(@input_list_struct,$gate->{output});  
           $num_gate_queue--;  
           $num_gates--;  
        }  
        elsif($gate->{num_inputs}==1){  
           $gate->{gate_level} = $gate->{input_1}->{level};  
           $gate->{gate_level}++;  
           $gate->{output}->{level}=$gate->{gate_level};  
           unshift(@input_list_struct,$gate->{output});  
           $num_gate_queue--;  
           $num_gates--;  
        }  
      }  
      else{  
        unshift(@gate_queue,$gate);  
        $num_gate_queue--;  
      }  
   }  
 #the updated levels of the wires are present in input_list_struct  
 #update the fanouts of the gate with the levels from this struct  
   for $gate(@gates){    
      for $inp (@input_list_struct){  
        $inp_test = $inp->{wire_name};  
        if(($gate->{input_1})->{wire_name} =~ m/$inp_test$/){   
           $gate->{input_1}->{level} = $inp->{level};  
        }  
        if($gate->{num_inputs}!=1){  
           if(($gate->{input_2})->{wire_name} =~ m/$inp_test$/){   
             $gate->{input_2}->{level} = $inp->{level};  
           }  
        }  
      }  
   }  
 }  
 print " Gate      Level\n";  
 for $gate (@gates){  
   print "$gate->{gate_name}      $gate->{gate_level}\n";  
 }
print "\n\n";

my $level_2_inputCC0;
my $level_2_inputCC1;
my $level_3_inputCC0;
my $level_3_inputCC1;
my $gate_check;
my %gate_check;
my @gate_check;
my @level_1_output;
my %hashout1;
my %hashout2;
my %hashout3;
my @CC0_value_1;
my @CC0_value_1_1;
my @CC0_value_1_2;
my @CC1_value_1;
my $max_CC0_1=0;
my $inputKey=0;
my %hash;


#print "Controllability\n\n";
print "______________Level 1______________ \n\n";
print "wire name           CCO         CC1\n";

 for $gate (@gates)
 {
   if (grep { $gate->{gate_level} eq '1' } @gates)
   { 
     push @level_1_output, $gate->{output}->{wire_name};
     
     %hash1 = ( $gate->{input_1}->{wire_name} => { CC0 => 1, CC1 => 1}
+ );
     %hash2 = ( $gate->{input_2}->{wire_name} => { CC0 => 1, CC1 => 1}
+ );
     %hash3 = ( $gate->{output}->{wire_name} => { CC0 => 0, CC1 => 0} 
+);
     
     if (grep { $gate->{gate_type} eq 'nand' } @gates)
     {
       $hash3{$gate->{output}->{wire_name}}{CC0} = $hash1{$gate->{inpu
+t_1}->{wire_name}}{CC1} + $hash2{$gate->{input_2}->{wire_name}}{CC1} 
++ 1;
       $hash3{$gate->{output}->{wire_name}}{CC1} = min($hash1{$gate->{
+input_1}->{wire_name}}{CC0} , $hash2{$gate->{input_2}->{wire_name}}{C
+C0}) + 1;
     }
     printf ("   %-15s   %-10s  %-10s\n", $gate->{input_1}->{wire_name
+}, $hash1{$gate->{input_1}->{wire_name}}{CC0}, $hash1{$gate->{input_1
+}->{wire_name}}{CC1});
     printf ("   %-15s   %-10s  %-10s\n", $gate->{input_2}->{wire_name
+}, $hash2{$gate->{input_2}->{wire_name}}{CC0}, $hash2{$gate->{input_2
+}->{wire_name}}{CC1});
     printf ("   %-15s   %-10s  %-10s\n", $gate->{output}->{wire_name}
+, $hash3{$gate->{output}->{wire_name}}{CC0}, $hash3{$gate->{output}->
+{wire_name}}{CC1});
     
     
     $level_2_inputCC0 = $hash3{$gate->{output}->{wire_name}}{CC0};
     $level_2_inputCC1 = $hash3{$gate->{output}->{wire_name}}{CC1};
     
    push @CC0_value_1, $hash1{$gate->{input_1}->{wire_name}}{CC0}, $h
+ash2{$gate->{input_2}->{wire_name}}{CC0}, $hash3{$gate->{output}->{wi
+re_name}}{CC0};
     push @CC1_value_1, $hash3{$gate->{output}->{wire_name}}{CC1};
     
     $max_CC0_1 = max @CC0_value_1;
     print "$max_CC0_1\n";
   }
 
 }

      [download]

      The input file is as below

      module circuit_17 (N1,N2,N3,N6,N7,N22,N23);
input N1,N2,N3,N6,N7;
output N22,N23;
wire N10,N11,N16,N19;
nand nand2_1 (N10,N1,N3);
nand nand2_2 (N11,N3,N6);
nand nand2_3 (N16,N11,N2);
nand nand2_4 (N19,N11,N7);
nand nand2_5 (N22,N10,N16);
nand nand2_6 (N23,N16,N19);
endmodule

      [download]
[reply]
[d/l]
[select]

        Hello ameezys,

        You do not need to post your whole code unless if it is necessary. If I run your code I can see the array that you want the max value contains:

        $VAR1 = [
          1,
          1,
          3
        ];

        [download]

        So a sample of data like that (see below):

        my @array = qw(1 1 3);
print Dumper \@array;

__END__

$VAR1 = [
          1,
          1,
          3
        ];

        [download]

        Would be sufficient, but my answer to your question is already covered :).

        BR / Thanos

        Seeking for Perl wisdom...on the process of learning...not there...yet!
[reply]
[d/l]
[select]

Back to Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: perlquestion [id://1232584]
Approved by marto
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others taking refuge in the Monastery: (4)
As of 2024-04-25 10:05 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found