雪橇包装问题

圣诞老人的精灵需要帮助来确定他们当前的礼物是否适合圣诞老人的雪橇。用您选择的语言编写最短的程序，以帮助他们。

约束条件

• 圣诞老人的雪橇宽6英尺，长12英尺，深4英尺。
• 礼物可能很脆弱，因此它们可能不会堆叠在一起。
• 您可以根据需要旋转和翻转礼物，但是圣诞老人的强迫性非常强，因此将旋转保持90度的倍数即可。
• 北极的健康和安全法规规定，礼物的伸出高度不得超过雪橇顶部的1英尺（因此，高度不得超过5英尺）。

输入值

输入将打开，STDIN并且将是一个整数，代表批次中的礼物数量，其后是礼物尺寸的列表-每行1个礼物，每行3个尺寸（以英尺为单位），以空格分隔。

例子：

1
6 12 5

6
1 12 3
1 12 4
1 12 1
1 12 5
1 12 3
1 12 5

1
4 3 13

1
6 12 6

输出量

如果礼物可以装在雪橇上，则输出应该只是单词“ YES”（是），否则不能输出“ NO”（否）。

以上示例的输出：

YES

YES

NO

NO

测试脚本

和以前一样，我已经使用了Joey和Ventero编写的一些测试脚本来为此任务创建一些测试：

• 重击
• 电源外壳

用法： ./test [your program and its arguments]

奖赏

我可以验证符合规格，通过测试并且显然已经尝试过打高尔夫球的每个条目都会收到我的赞誉（因此请提供使用说明和答案）。最短的解决方案将在2011年底获胜。

Haskell，312318个字符

import Data.List
s(ξ:υ:_,λ:σ:η:_)(x:y:_,l:w:_)=(ξ+λ<=x||ξ>=x+l||υ+σ<=y||υ>=y+w)&&ξ+λ<7&&υ+σ<13&&η<6
y p l=[(v,r):l|v<-[[x,y,0]|x<-[0..5],y<-[0..11]],r<-permutations p,all(s(v,r))l]
main=do
 n<-readLn
 p<-mapM(fmap(map read.words).const getLine)[1..n]
 putStr.r$foldr((=<<).y)[[([9,0],[0..])]]p
r[]="NO"
r _="YES"

由于某些原因，我目前尚不完全了解，它无法在合理的时间内完成您的测试9和16。但是您没说什么性能，是吗？

373 383个字符

该版本运行太多的例子更快：首先检查，如果它不是不可能，只是因为面积太小，然后它开始与最大的包裹而不是在给定的顺序将它们插入。请注意，区域检测并不完美：它不考虑旋转，因此在某些输入上可能会给出错误的结果。但这确实适用于测试脚本。

import Data.List
s(ξ:υ:_,λ:σ:η:_)(x:y:_,l:w:_)=(ξ+λ<=x||ξ>=x+l||υ+σ<=y||υ>=y+w)&&ξ+λ<7&&υ+σ<13&&η<6
y p l=[(v,r):l|v<-[[x,y,0]|x<-[0..5],y<-[0..11]],r<-permutations p,all(s(v,r))l]
π=product
main=do
 n<-readLn
 p<-mapM(fmap(map read.words).const getLine)[1..n]
 putStr$if sum(map(π.init)p)>72||null(foldr((=<<).y)[[([9,0],[0..])]].sortBy((.π).compare.π)$p)then"NO"else"YES"

Python，461个字符

import sys
def L(P,z):
 if not P:return 1
 for w,h in[P[0],P[0][::-1]]:
  m=sum((2**w-1)<<i*6for i in range(h))
  for x in range(7-w):
   for y in range(13-h):
    n=m<<y*6+x
    if z&n==0and L(P[1:],z|n):return 1
 return 0
for G in sys.stdin.read().split('\n\n'):
 S=[(x,y)if z<6 else(x,z)if y<6 else(y,z)if x<6 else(9,9)for x,y,z in[sorted(eval(g.replace(' ',',')))for g in G.split('\n')[1:]if g]]
 print'YES\n'if sum(x*y for x,y in S)<73and L(S,0)else'NO\n'

L递归检查矩形是否P可以放在雪橇中，这里z是已经被占用的单元的位掩码。所述S分配确定哪个方向是向上的每个包（最大尺寸<= 5变为垂直地）。

该代码可能是指数的，但是在所有测试输入上它都很快。

GolfScript，130个字符

"NO":g;~](;3/127{128*64+}12*\{.,0>.!{"YES":g;}*{([{[~@]..[~\]\}3*;]{)6<{~[2\?(]*128base 83,{2\?1$*.4$&0={3$|2$f}*}%;}*}%;}*;;}:f~g

花了很多时间才能在GolfScript中运行它。打高尔夫球的任何尝试都进一步破坏了一些测试用例。

请注意，如果携带太多礼物，此版本可能会变得非常慢。