0

http://perlmonks.org/index.pl?node_id=977333に相互投稿

次のハッシュがあるとします。

my %hash = (1 => "i", 2 => "j", 3 => "k", 4=> "l");

と入力ペア

   my @pair  = (1,2);   
   my @pair2 = (2,3);  
   my @pair3 = (1,3);
   my @pair4 = (2,4);

%hash値が特定のペアのメンバーよりも小さいキーを見つけたいと考えています。

したがって、望ましい出力は次のとおりです。

@pair -> []
@pair2 -> [1]
@pair3 -> [2]
@pair4 -> [1,3]

それを行うための正しいアルゴリズムは何ですか? 以下は私のコードですが、失敗します：

sub get_output {
     my ($inputhash,$pair) = @_;

  my @output = ();
  my %done = ();
  foreach my $pr (@{$pair}){
     foreach my $kn (keys %{$inputhash}){
             next if ($pr <= $kn || $done{$kn});
             push @output,$kn;  
             $done{$kn} = 1;

     }
  }

  use Data::Dumper;
  print Dumper \@output;
  return @output;
}
4

1 に答える 1

1

これはあまり効率的ではありませんが、機能します。要求された出力にハッシュが含まれていない場合、ハッシュのポイントはまだわかりません。

#!/usr/bin/perl

use strict;
use warnings;
my %hash = (1 => "i", 2 => "j", 3 => "k", 4=> "l");
my @pair = (1,2); #tested all your cases and it showed to work
my $it;
my $iterator;
my $sit;
my @occurence;
my @oldpair = @pair;
@occurence =  (0, 0, 0, 0);
foreach(@oldpair)
{
if ($_ == 1)
{
    $occurence[0] += 1;
}
if ($_ == 2)
{
    push(@pair, 1);
    $occurence[0] += 1;
    $occurence[1] += 1;
}
if ($_ == 3)
{
    push(@pair, 2);
    $occurence[1] += 1;
    $occurence[2] += 1;
}
if ($_ == 4)
{
    push(@pair, 3);
    $occurence[2] += 1;
    $occurence[3] += 1;
}
}

foreach $iterator(@occurence)
{
    $it++;
    if ($iterator > 1)
    {
        @pair = grep { $_ != $it } @pair;
    }

}
foreach $sit(@oldpair)
{
    @pair = grep { $_ != $sit } @pair;
}
于 2012-06-21T13:23:45.073 に答える