Vấn đề đóng gói xe trượt tuyết

Yêu tinh của ông già Noel cần giúp đỡ trong việc xác định xem lô quà hiện tại của họ có phù hợp với xe trượt tuyết của ông già Noel không. Viết chương trình ngắn nhất có thể bằng ngôn ngữ bạn chọn để giúp họ.

Những ràng buộc

• Xe trượt tuyết của ông già Noel rộng 6ft dài 12ft và sâu 4ft.
• Quà có thể dễ vỡ, vì vậy chúng có thể không được xếp chồng lên nhau.
• Bạn có thể xoay và lật các món quà theo ý muốn, nhưng ông già Noel khá ám ảnh, vì vậy hãy giữ các góc quay thành bội số 90 độ.
• Các quy định về sức khỏe và an toàn của Bắc Cực quy định rằng các món quà không được vượt quá 1ft so với đỉnh của một chiếc xe trượt tuyết (do đó chúng có thể không cao hơn 5ft).

Đầu vào

Đầu vào sẽ được bật STDINvà sẽ là một số nguyên biểu thị số lượng quà tặng trong lô theo sau là danh sách các kích thước của quà tặng - 1 hiện tại trên mỗi dòng, 3 kích thước (tính theo feet) được phân tách bằng khoảng trắng.

Ví dụ:

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

Đầu ra

Đầu ra chỉ nên là từ 'CÓ' nếu quà có thể được đóng gói vào xe trượt tuyết hoặc 'KHÔNG' nếu không thể.

Đầu ra cho các ví dụ trên:

YES

YES

NO

NO

Kiểm tra kịch bản

Như trước đây, tôi đã chiếm đoạt một số kịch bản thử nghiệm được viết bởi Joey và Ventero để tạo một số thử nghiệm cho nhiệm vụ này: -

• Bash
• PowerShell

Sử dụng: ./test [your program and its arguments]

Phần thưởng

Mỗi mục mà tôi có thể xác minh đáp ứng thông số kỹ thuật, vượt qua các bài kiểm tra và rõ ràng đã có một số nỗ lực chơi gôn sẽ nhận được một upvote từ tôi (vì vậy vui lòng cung cấp hướng dẫn sử dụng với câu trả lời của bạn). Giải pháp ngắn nhất vào cuối năm 2011 sẽ được chấp nhận là người chiến thắng.

Haskell, 312 318 ký tự

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"

Vì một số lý do mà tôi không hiểu đầy đủ vào lúc này, nó không hoàn thành bài kiểm tra số 9 và # 16 của bạn trong thời gian hợp lý. Nhưng bạn đã không nói gì về hiệu suất, phải không?

373 383 ký tự

Phiên bản này chạy nhanh hơn nhiều cho các ví dụ: đầu tiên nó kiểm tra nếu không phải là không thể đơn giản vì diện tích quá nhỏ, và sau đó nó bắt đầu với các bưu kiện lớn nhất thay vì chèn chúng theo thứ tự nhất định. Lưu ý rằng phát hiện khu vực không hoàn hảo: nó không xem xét các phép quay, do đó, một số đầu vào có thể cho kết quả sai. Nhưng nó không hoạt động với kịch bản thử nghiệm.

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 ký tự

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'

Lkiểm tra đệ quy nếu các hình chữ nhật trong Pcó thể được đặt trong xe trượt tuyết, nơi zcó một bitmask của các ô đã bị chiếm đóng. Việc Sgán xác định cách nào cho mỗi gói (kích thước lớn nhất <= 5 đi theo chiều dọc).

Mã này có khả năng theo cấp số nhân, nhưng nó nhanh chóng trên tất cả các đầu vào thử nghiệm.

GolfScript, 130 ký tự

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

Phải mất khá nhiều thời gian để nó chạy trong GolfScript. Bất kỳ nỗ lực để chơi gôn, nó đã phá vỡ thêm một số trường hợp thử nghiệm.

Xin lưu ý rằng phiên bản này có thể trở nên cực kỳ chậm nếu bạn chạy nó với quá nhiều quà.