From: "Richard Lee" <rich.japh@[EMAIL PROTECTED]
>
To: <itshardtogetone@[EMAIL PROTECTED]
>
Cc: <beginners@[EMAIL PROTECTED]
>
Sent: Sunday, May 04, 2008 3:17 AM
Subject: Re: how to simplify this script
> I don't have the solution yet but shouldn't the answer be
> 1 6 7
> and
> 4 5 10 only ?
> it's printing out 1 2 3 as well which is wrong?
Thanks Richard.
The output should include '1 2 3'.
Therefore I want the output to be
1 2 3
1 6 7
4 5 10
It should include '1 2 3' because '1 2 3', '1 2 4', '1 2 7', '1 2 8', '1
2
9' = '1 2'(the common number from the list) + anynumber.
Thanks
> itshardtogetone@[EMAIL PROTECTED]
wrote:
>> Hi,
>> In the script below, I have an array @[EMAIL PROTECTED]
with its elements
consisting
>> of numbers like this :-
>>
>> my @[EMAIL PROTECTED]
= (
>> '1 2 3', '1 2 4', '1 2 7', '1 2 8', '1 2 9', '1 6 7',
>> '1 7 12', '2 6 7', '4 5 10', '4 5 15'
>> );
>>
>> Out of the above list, I wish to generate a seperate array so that
among
>> their elements, there should not be any 2 numbers that can match and so
>> the output should be :- 1 2 3
>> 1 6 7
>> 4 5 10
>>
>> I therefore have written the script below and have tested the script to
>> be working. What is the easier way to write this script?
>> Thanks
>>
>> ##### start of script ##############
>> use strict;
>> use warnings;
>>
>> my @[EMAIL PROTECTED]
= (
>> '1 2 3', '1 2 4', '1 2 7', '1 2 8', '1 2 9', '1 6 7',
>> '1 7 12', '2 6 7', '4 5 10', '4 5 15'
>> );
>> my $numbers_wanted = 2;
>>
>> my @[EMAIL PROTECTED]
= ();
>> my $marker = scalar @[EMAIL PROTECTED]
>> my $splice_counter = 0;
>> my @[EMAIL PROTECTED]
= ();
>>
>> while ($marker) {
>> $splice_counter = 0;
>> push @[EMAIL PROTECTED]
splice @[EMAIL PROTECTED]
0, 1;
>> my @[EMAIL PROTECTED]
= split / /, $datawanted[-1];
>> my $temp_datas_iterator = scalar @[EMAIL PROTECTED]
- 1;
>>
>> foreach ( 0 .. $temp_datas_iterator ) {
>> my $counter = 0;
>> my @[EMAIL PROTECTED]
= split / /, $datas[ $_ - $splice_counter ];
>>
>> foreach (@[EMAIL PROTECTED]
) {
>> my $a = $_;
>> foreach (@[EMAIL PROTECTED]
) {
>> if ( $a == $_ ) {
>> $counter++;
>> }
>> }
>> }
>> if ( $counter >= $numbers_wanted ) {
>> splice @[EMAIL PROTECTED]
$_ - $splice_counter, 1;
>> $splice_counter++;
>> }
>> }
>> $marker = scalar @[EMAIL PROTECTED]
>> }
>>
>> foreach (@[EMAIL PROTECTED]
) {
>> print "$_\n";
>> }
>>
>>
>>
|
