免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
12下一页
最近访问板块 发新帖
查看: 3439 | 回复: 14

看看这个怎么写 [复制链接]

论坛徽章:
0
发表于 2009-01-16 22:50 |显示全部楼层
填充的一个问题

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

如果

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

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

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


谁给写个吧

论坛徽章:
0
发表于 2009-01-17 01:43 |显示全部楼层
#!/usr/bin/perl


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

my @c;


sub get_rest_value {
    my $a = shift;
    my $b = shift;
    
    while(scalar @$a){
        if (@$a[0] > @$b[0]){
            shift @$a;
        }else{
            last;
        }
    }
}


sub get_result{
    my $a = shift;
    my $b = shift;
    my @a = @$a;
    my @b = @$b;
    if (scalar @a == 0 ) {print join (' ', @c); exit 0}
    foreach my $i (0 .. $#a){

        foreach my $j (0 .. $#b){

            if ($a[0]){
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if ( $a[0] <= $b[$j]){
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;push @c, $a[0] . "-" . $b[$j];
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;shift @a;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;}else{
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;push @c, "M";
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;goto L;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;}
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;}
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$j++;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;}
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if (scalar @a){
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;push @c, "M";&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;}

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$i++;
&nbsp;&nbsp;&nbsp;&nbsp;}
&nbsp;&nbsp;&nbsp;&nbsp;
L:      get_result(\@a,\@b);

}

get_rest_value(\@a, \@b);
get_result(\@a,\@b);
搞定,不过好像不是很清晰。。。哎

[ 本帖最后由 yxm0513 于 2009-1-17 01:50 编辑 ]

论坛徽章:
3
戌狗
日期:2014-09-10 17:07:162015年辞旧岁徽章
日期:2015-03-03 16:54:15wusuopu
日期:2016-06-17 17:43:45
发表于 2009-01-17 01:45 |显示全部楼层
还没看懂什么规律

论坛徽章:
0
发表于 2009-01-17 01:57 |显示全部楼层
填充:
  1. 容器 > 填充物
  2. 存在一组容器@b,以及一组的填充物@a (数字是容积或是体积), 每个容器只能填一个
   3. 需要把@a 分次填入
其实这是来自我要写的一些test case,   每个case 需要一些resource, 而case又是要并行的run的

一个M就表示一次可run的case啦,

反正搞定了,不过用了goto,不知道有没其他方法

[ 本帖最后由 yxm0513 于 2009-1-17 02:02 编辑 ]

论坛徽章:
3
戌狗
日期:2014-09-10 17:07:162015年辞旧岁徽章
日期:2015-03-03 16:54:15wusuopu
日期:2016-06-17 17:43:45
发表于 2009-01-17 02:40 |显示全部楼层
感觉像比较两个数组

论坛徽章:
0
发表于 2009-01-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 @a;
        } else {
                last;
        }
}

my @c;
my $a;
while (@a) {
        for (@b) {
                if (@a) {
                        $a = shift @a;
                } else {
                        last;
                }
               
                if ($_ >= $a) {
                        push @c, ($_, $a);
                } else {
                        unshift @a, $a;
                }
        }
        push @c, 'M';
}

print @c;


-------------

btw: 我最后两个 test 的结果和你的不一样啊

论坛徽章:
23
15-16赛季CBA联赛之吉林
日期:2017-12-21 16:39:27白羊座
日期:2014-10-27 11:14:37申猴
日期:2014-10-23 08:36:23金牛座
日期:2014-09-30 08:26:49午马
日期:2014-09-29 09:40:16射手座
日期:2014-11-25 08:56:112015年辞旧岁徽章
日期:2015-03-03 16:54:152015年迎新春徽章
日期:2015-03-04 09:49:0315-16赛季CBA联赛之山东
日期:2017-12-21 16:39:1915-16赛季CBA联赛之广东
日期:2016-01-19 13:33:372015亚冠之山东鲁能
日期:2015-10-13 09:39:062015亚冠之西悉尼流浪者
日期:2015-09-21 08:27:57
发表于 2009-01-17 12:52 |显示全部楼层
  1. #! /usr/bin/perl

  2. use warnings;
  3. use strict;

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


  6. for my $i (@b)
  7. {
  8.         print "$i-$_ M\n" for grep { $i >= $_ } @a;
  9. }
复制代码

[ 本帖最后由 ly5066113 于 2009-1-17 13:03 编辑 ]

论坛徽章:
3
戌狗
日期:2014-09-10 17:07:162015年辞旧岁徽章
日期:2015-03-03 16:54:15wusuopu
日期:2016-06-17 17:43:45
发表于 2009-01-17 14:10 |显示全部楼层

回复 #2 yxm0513 的帖子


  1. my @a = qw(4 3 2 2 2);
  2. my @b = qw(4 2);
复制代码

结果是
4-4 M 3-4 2-2 M 2-4 2-2

论坛徽章:
3
戌狗
日期:2014-09-10 17:07:162015年辞旧岁徽章
日期:2015-03-03 16:54:15wusuopu
日期:2016-06-17 17:43:45
发表于 2009-01-17 14:12 |显示全部楼层

回复 #6 cobrawgl 的帖子

  1. my @a = qw(4 3 2 2 2);   
  2. my @b = qw(3 2);  
复制代码

3 3 2 2 M 3 2 2 2 M

论坛徽章:
3
戌狗
日期:2014-09-10 17:07:162015年辞旧岁徽章
日期:2015-03-03 16:54:15wusuopu
日期:2016-06-17 17:43:45
发表于 2009-01-17 14:14 |显示全部楼层

回复 #7 ly5066113 的帖子


  1. my @a = qw(4 3 2 2 1);     # 填充
  2. my @b = qw(3 1);              # 容器
复制代码

结果是
3-3 M 3-2 M 3-2 M 3-1 M 1-1 M
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP