in reply to Re^3: add missing elements and remove duplicates....and some more questions.
in thread add missing elements and remove duplicates....and some more questions.
Hi Choroba and Netwallah,
So you are basically saying I should sort it as strings rather than numbers? I first thought you were saying that I should convert the numbers to binary, but that is what perl would automatically do as stated earlier in Netwallah's reply. So it will be same as what I had done earlier.
$ more stringnum.pl use strict; use warnings; use v5.10.1; my @arr= qw(10 10 20 0x47 1 30 45 45); sub do_it_all { no warnings 'numeric'; my $biggest = @_; foreach my $bignum (@_) { if ($bignum > $biggest) { $biggest = $bignum; } } my $smallest = @_; foreach my $smallnum (@_) { if ($smallnum < $smallest) { $smallest = $smallnum; } } push my @unique, $smallest..$biggest; print "@unique\n"; } &do_it_all(@arr);
This changes 0x47 to 0 though. Please see the output below.
$ perl stringnum.pl 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 + 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 $
If you meant that the strings should be converted to the corresponding decimal and hex equivalents, I am working on that. This is fun!! I thought solving puzzles was fun. This is way better. :)
|
|---|