看看这个怎么写

yxm0513

你的对不对阿

yxm0513

原帖由 ly5066113 于 2009-1-17 12:52 发表
#! /usr/bin/perl

use warnings;
use strict;

my @a = qw(4 3 2 2 1);     # 填充
my @b = qw(3 1);              # 容器


for my $i (@b)
{
        print "$i-$_ M\n" for grep { $i >= $_ } @a;
}

这不太符合要求

DQP

怎么不符合你的要求了

yxm0513

原帖由 cobrawgl 于 2009-1-17 12:27 发表
#!/usr/bin/perl

use strict;
use warnings;

my @a = qw(4 3 2 2 2);   
my @b = qw(3 2);  

@a = reverse sort @a;
@b = reverse sort @b;

for (0 .. $#a) {
        if ($a[$_] > $b[0]) {
                shift ...

都是对的

yxm0513

还是不对

my @a = qw(4 3 2 2 2);     # 填充
my @b = qw(4 2);              # 容器
#结果产生的数组如          4-4 M 4-3 4-2 M 2-2 4-2 M

而现在要，  4-4 2-2 M 4-3 2-2 M 4-2

[ 本帖最后由 yxm0513 于 2009-2-9 18:11 编辑 ]