人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

プログラミングは初めてです。
よろしくお願いします。

コンテナABCDE
耐久度102015128
現在の負担10080606088

コンテナごとに耐久度があり
そのコンテナの耐久度×荷物の重さがそのコンテナの負担になります。
上のようにDBに値を持つ場合
重さの違う荷物を数十個振り分けていくとして
一番負担の少ないコンテナに振り分けるようにしたいのですが
どのようにくめば良いのか悩んでいます。。

重さ10の荷物が来たときは

A100+10*10=200
B80+20*10=280
C60+15*10=210
D60+12*10=180
E88+8*10=168

で合計の値の小さいEに振り分けて、Eの負担が168になり
また次の荷物を振り分けていきます。

言語はperlです。
何か良い実装方法があれば教えてください。
よろしくお願いします。


●質問者: minisite312
●カテゴリ:コンピュータ ウェブ制作
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● uwao

こんなのはどうでしょう。
%taikyuu = (
'A' => 10,
'B' => 20,
'C' => 15,
'D' => 12,
'E' => 8);
%fuka = (
'A' => 100,
'B' => 80,
'C' => 60,
'D' => 60,
'E' => 88);
@hashkeys = keys %taikyuu;
@hashkeys = sort @hashkeys;
#重さが10,11,12の荷物が来たとき
foreach $_(10,11,12){
undef $minikey;
undef $minifutan;
foreach $hashkey(@hashkeys){
$futan = $fuka{$hashkey} + $fuka{$hashkey} * $_;
if(!$minifutan or $futan < $minifutan){
$minifutan = $futan;
$minikey = $hashkey;
}
}
$fuka{$minikey} += $taikyuu{$minikey} * $_;
}


2 ● k-ten

自分の勉強がてら書いてみた。

#!/usr/bin/env perl

package Container;

use Moose;

has _initial_load => (is => 'ro',
 isa => 'Int',
 required => 1);
has _persistence => (is => 'ro',
 isa => 'Int',
 required => 1);
has name => (is => 'ro',
 isa => 'Str',
 required => 1);
has weight => (default => 0,
 is => 'rw',
 isa => 'Int',
 writer => '_weight');

around BUILDARGS => sub {
 my $orig = shift;
 my $class = shift;

 if (@_ == 3) {
 my ($name, $initial_load, $persistence) = @_;
 return $class->$orig(_initial_load => $initial_load,
 _persistence => $persistence,
 name => $name);
 } else {
 return $class->$orig(@_);
 }
};

sub add_weight {
 my $self = shift;
 my $weight = shift or die;

 $self->_weight($self->weight + $weight);
 return $self;
}

sub clone {
 my $self = shift;

 return Container->new(_initial_load => $self->_initial_load,
_persistence => $self->_persistence,
name => $self->name,
weight => $self->weight);
}

sub load {
 my $self = shift;

 return $self->_initial_load + $self->weight * $self->_persistence;
}

package main;

use Modern::Perl;

my $container = [Container->new('A', 10, 100),
 Container->new('B', 20, 80),
 Container->new('C', 15, 60),
 Container->new('D', 12, 60),
 Container->new('E', 8, 88)];

foreach my $weight (10, 11, 12) {
 (sort {$a->clone->add_weight($weight)->load <=>
 $b->clone->add_weight($weight)->load}
 @$container)[0]->add_weight($weight);
}
関連質問

●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ