Проблема упаковки саней

Ельфи Санта потребують допомоги у визначенні, чи вписується їх поточна партія подарунків у сани Санта. Напишіть найкоротшу можливу програму на обраній вами мові, щоб допомогти їм.

Обмеження

• Сани Санта розміром 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

YES

NO

NO

Тестові сценарії

Як і раніше, я призначив кілька тестових сценаріїв, написаних Джої та Вентеро, щоб створити кілька тестів для цього завдання: -

• Баш
• PowerShell

Використання: ./test [your program and its arguments]

Нагороди

Кожен запис, на який я можу підтвердити, що відповідає специфікації, пройшов тести і, очевидно, мала спробу в гольфі, отримає відгук від мене (тому, будь ласка, надайте інструкції щодо використання зі своєю відповіддю). Найкоротше рішення до кінця 2011 року буде прийнято як переможець.

Haskell, 312 318 символів

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"

Пітон, 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, знадобилося досить багато часу. Будь-яка спроба пограти в гольф додатково порушила деякі тестові справи.

Попереджуйте, що ця версія може стати неймовірно повільною, якщо ви запускаєте її із занадто великою кількістю подарунків.