Algorithmus:: BinPack ist eine Perl-Baugruppe, die Punkte in Stauräume effizient packen kann.

SYNOPSE

Algorithmus:: BinPack packt effizient Punkte in Stauräume. Die Stauräume werden eine maximale Größe gegeben, und Punkte werden innen mit als wenig leeren Platz gepackt, wie möglich. Ein Beispielgebrauch würde Dateien zum CD unterstützen, während die Minderung der Zahl Platten erforderte.

mein $bp = Algorithmus:: BinPack->new (=> 4) binsize;

$bp->add_item (Kennsatz => „eins“, Größe => 1);
$bp->add_item (Kennsatz => „zwei“, Größe => 2);
$bp->add_item (Kennsatz => „drei“, Größe => 3);
$bp->add_item (Kennsatz => „vier“, Größe => 4);

für ($bp->pack_bins) {
Druck „Stauraumgröße: “, $_-> {Größe}, „N“;
Druck „Punkt: “, $_-> {Kennsatz}, „N“ für @ {$_-> {Punkte}};
}

METHODEN

neu

Erstellt einen neuen Algorithmus:: BinPack Nachricht. Die maximale Stauraumgröße wird als benanntes Argument binsize und werden benötigt spezifiziert. Ein Unsinnfaktor kann als benannter Argumentunsinn spezifiziert werden. Wenn ein Unsinnfaktor spezifiziert wird, werden Punktgrößen bis zu einer Zahl aufgerundet, die durch den Unsinnfaktor teilbar ist. Dieses kann helfen, Punkte mit ähnlichen Größen in der Ordnung durch ihre Kennsätze zu halten.

mein $bp = Algorithmus:: BinPack->new (=> 4) binsize;
mein $bp = Algorithmus:: BinPack->new (=> 100, Unsinn => 10) binsize;

add_item

Fügt einen in hinzu einen Stauraum gepackt zu werden Punkt. Erforderliche benannte Argumente sind Kennsatz und Größe, aber alle mögliche andere können spezifiziert werden und werden gespart werden. Ein wahlweisestauraumargument kann verwendet werden, um einen Punkt in den spezifizierten Stauraum manuell zu setzen.

$bp->add_item (Kennsatz => eins, Größe => 1);
$bp->add_item (Kennsatz => zwei, Größe => 2, desc => die zweite Ziffer);
$bp->add_item (Kennsatz => null, Größe => 3, Stauraum => 0);
$bp->add_item (qw (Kennsatz drei sortieren 3));
$bp->add_item (qw (Kennsatz vier sortieren gelegentlichen Schlüssel 4));

prefill_bin

(Mißbilligte Methode) add_item kann jetzt das Stauraumargument direkt handhaben, also ist diese Methode überflüssig.

pack_bins

Packt die Punkte in Stauräume. Diese Methode versucht, als wenig leerer Platz zu gehen in jeden Stauraum, wie möglich. Sie bringt eine Liste von hashrefs mit der Schlüsselgröße zurück, welche die Gesamtstauraumgröße enthält, und die Punkte, die ein arrayref enthalten, das die Punkte im Stauraum anhält. Jeder Punkt ist der Reihe nach ein hashref, das die Schlüssel Kennsatz, Größe und alle mögliche andere addiert werden dem Punkt enthält. Wenn ein Unsinnfaktor verwendet wurde, enthält jeder Punkt einen Schlüssel fudgesize, der die Größe ist, die, dieser Punkt zu frisiert wurde.

für mein $bin ($bp->pack_bins) {
Druck „Stauraumgröße: “, $bin-> {Größe}, „N“;

für mein $item (@ {$bin-> {Punkte}}) {
printf „%-6s %-20sn“, $_, $item-> {$_} für Schlüssel % {$item};
Druck „ ---N“;
}
}