这里有一个我想表述的问题：画家打算为不同尺寸的正方形画布装裱，尺寸以厘米为单位：
25cm x 35cm — 20件，50 x 30 — 30件，90 x 50 — 40件，110 x 60 — 25件，
画家将购买200厘米长的木质画框条并相应地切割。条件是“每条框边必须是单一连续的条，不得粘接”。
可无限制地提供长度为200厘米的木质画框条。画家应该购买多少条（200厘米）的画框条？如何计算最优化的画框条数量，以最少的浪费为目标？
这个问题与优化（数学规划）还是AI有关？欢迎PHP、Perl、VBScript代码。
==============为了澄清目的，这里是从200厘米的条中需要生产的具体长度。
LENGTH PIECES TOTAL LENGTH 110 cm 50 pcs 5500 cm90 cm 80 pcs 7200 cm60 cm 50 pcs 3000 cm50 cm 140 pcs 7000 cm35 cm 40 pcs 1400 cm30 cm 60 pcs 1800 cm25 cm 40 pcs 1000 cm=========================================== ALL TOTAL: 26900 cm如果允许粘接剩余的小块，这相当于134.5条。
指导画家从每条中应切割什么长度是实用的。否则，他将不知道如何处理提供的条。
回答：
你需要知道画框条的宽度来计算角度的长度（每边额外花费2*$stretcher_width）。
use strict;use warnings;my $stretcher_length = 200;my $stretcher_width = 0;my $wasted_per_side = 2*$stretcher_width;my @sc = ( {w=> 25, h=> 35, pcs=> 20}, {w=> 50, h=> 30, pcs=> 30}, {w=> 90, h=> 50, pcs=> 40}, {w=> 110, h=> 60, pcs=> 25},);# all possible bars needed from longest to shortestmy @all = sort { $b <=> $a } map { ( ($_->{w}+$wasted_per_side) x2, ($_->{h}+$wasted_per_side) x2 )x $_->{pcs};}@sc;# lets cut from 200cm barsmy @rest;for my $len (@all) { my $cut_from; # do we already have bar which can be used? for my $len_have (@rest) { # yes, we have if ($len_have >= $len) { $cut_from = \$len_have; last; } } # no, we need another 200cm bar if (!$cut_from) { print "Taking new $stretcher_length cm bar\n"; push @rest, $stretcher_length; $cut_from = \$rest[-1]; } # cut it print "Now you have at least one bar $$cut_from long and cut away $len\n"; $$cut_from -= $len; # keep @rest bars sorted from shortest to longest @rest = sort { $a <=> $b } @rest;}print scalar @rest;# print "@rest\n"; # left overs