Re^4: add missing elements and remove duplicates....and some more questions.

Hi,

No that was not me.

And I now understand what has happened. So I have changed the code. And you are right, just because my code looks good does not mean it's good.

use strict;
use warnings;
my @arr = (1, 2, 3, 4);

sub do_it_all {
    my $biggest = $_[0] ;
    foreach my $num (@_) {
        if ($num > $biggest) {
            $biggest = $num;
        }
    }

        my $smallest =  $_[0];
        foreach my $smallnum (@_) {
            if ($smallnum < $smallest) {
                $smallest = $smallnum;
            }
        }
            print "\$smallest = $smallest\t\$biggest = $biggest\n";
            my @unique = ($smallest..$biggest);
        print "@unique\n";
        
}

&do_it_all(@arr);
[download]

And it now correctly prints:

C:\>perl anomalous_func.pl
$smallest = 1   $biggest = 4
1 2 3 4
[download]

Update: I have updated the main thread with your observation. Thank you very much. I did a stupid mistake that should have been avoided at all costs.

Thinkpad T430 with Ubuntu 16.04.2 running perl 5.24.1 thanks to plenv!!

Comment on Re^4: add missing elements and remove duplicates....and some more questions. Select or Download Code

Replies are listed 'Best First'.
Re^5: add missing elements and remove duplicates....and some more questions. by Marshall (Canon) on Apr 25, 2017 at 15:10 UTC
A few additional tips. The indenting of your code levels should be consistent. The "smallest foreach loop" should be moved to the left to match the level of the "biggest". However, better would be to combine the 2 loops. Also Perl has a special single action syntax putting the "if" at the end of the statement. This can make the code easier to read with fewer curly braces required. Another big point: What you name variables DOES matter. @unique does not really describe what that is (these are not the uniques of the original array, this is the consecutive range. I would suggest @consecutive as an alternative name. `use strict; use warnings; my @arr = (1,2,2,3,4,6); sub do_it_all { my $biggest = $_[0]; my $smallest = $_[0]; foreach my $num (@_) { $biggest = $num if ($num > $biggest); $smallest = $num if ($num < $smallest); } print "\$smallest = $smallest\t\$biggest = $biggest\n"; my @consecutive = ($smallest..$biggest); print "@consecutive\n"; } do_it_all(@arr); __END__ $smallest = 1 $biggest = 6 1 2 3 4 5 6` [download] Update: Instead of "do_it_all", perhaps "conseq_range" or similar would be better?	[reply] [d/l]
Re^6: add missing elements and remove duplicates....and some more questions. by pritesh_ugrankar (Monk) on Apr 25, 2017 at 18:48 UTC
Hi Marshall, Those are some awesome points. Thanks for the suggestions. Thinkpad T430 with Ubuntu 16.04.2 running perl 5.24.1 thanks to plenv!!	[reply] [d/l]