CJam, 94 92 82 ไบต์
นี่คือรุ่น 92 ไบต์ รุ่น 82 ไบต์มีดังนี้
l~1$,:L,:)m*{1bL=},\e!\m*{~W<{/(\e_}%}%{::+)-!},{{_,,\f<1fb}%2ew{:&,(},!}={{(2*'_*'[\']}/N}/
พาร์ติชั่นนี้แบ่งอิฐไปในทุกวิถีทางเท่าที่จะเป็นไปได้ แรงเดรัจฉานกำลังสวยตอนนี้ แต่ยังคงรันเคสทดสอบล่าสุดในประมาณ 10 วินาทีบนJava Interpreterบนเครื่องของฉัน
คำอธิบาย :
รหัสแบ่งออกเป็น 5 ส่วน:
1) กำหนดความยาวของอาร์เรย์Lเราจะแบ่งพาร์ติชันออกเป็นHส่วน ๆ ได้อย่างไร
l~1$,:L,:)m*{1bL=},
l~ e# Read the input as string and evaluate it.
`$,:L e# Copy the array and take its length. Store that in L
,:) e# Get an array of 1 to L
m* e# Cartesian power of array 1 to L of size H (height of wall)
{1bL=}, e# Take only those parts whose sum is L
หลังจากนี้เรามีวิธีที่เป็นไปได้ทั้งหมดในการแยกอาร์เรย์อินพุตของเราเป็นชั้นอิฐ H
2) รับพีชคณิตทั้งหมดของอาร์เรย์อินพุตแล้วเพิ่มเติมพาร์ติชันทั้งหมดสำหรับพีชคณิตทั้งหมด
\e!\m*{~W<{/(\e_}%}%
\e! e# Put the input array on top of stack and get all its permutations
\m* e# Put the all possible partition array on top and to cartesian
e# product of the two permutations. At this point, every
e# permutation of the input array is linked up with every
e# permutation of splitting L sized array into H parts
{ }% e# Run each permutation pair through this
~W< e# Unwrap and remove the last part from the partition permutation
{ }% e# For each part of parts permutation array
/ e# Split the input array permutation into size of that part
(\ e# Take out the first part and put the rest of the parts on top
e_ e# Flatten the rest of the parts so that in next loop, they can be
e# split into next part length
หลังจากนี้เรามีเลย์เอาต์ที่เป็นไปได้ทั้งหมดของอิฐอินพุทเข้าไปในHกำแพงอิฐเลเยอร์
3) กรองเฉพาะเลย์เอาต์ที่มีความยาวอิฐเท่ากัน
{::+)-!},
{ }, e# Filter all brick layouts on this condition
::+ e# Add up brick sizes in each layer
)-! e# This checks if the array contains all same lengths.
หลังจากสิ้นสุดตัวกรองนี้เค้าโครงที่เหลือทั้งหมดจะเป็นรูปสี่เหลี่ยมผืนผ้าที่สมบูรณ์แบบ
4) นำรูปแบบอิฐก้อนแรกออกมาซึ่งตรงกับเกณฑ์ความมั่นคง
{{_,,\f<1fb}%2ew{:&,(},!}=
{ }= e# Choose the first array element that leaves truthy on stack
{ }% e# For each brick layer
_,, e# Create an array of 0 to layer length - 1
\f< e# Get all sublists starting at 0 and ending at 0
e# through length - 1
1fb e# Get sum of each sub list. This gives us the cumulative
e# length of each brick crack except for the last one
2ew e# Pair up crack lengths for every adjacent layer
{ }, e# Filter layer pairs
:& e# See if any cumulative crack length is same in any two
e# adjacent layers. This means that the layout is unstable
,( e# make sure that length of union'd crack lengths is greater
e# than 1. 1 because 0 will always be there.
! e# If any layer is filtered through this filter,
e# it means that the layer is unstable. Thus negation
หลังจากขั้นตอนนี้เราก็ต้องพิมพ์เลย์เอาต์
5) พิมพ์เค้าโครง
{{(2*'_*'[\']}/N}/
{ }/ e# For each brick layer
{ }/ e# For each brick
(2*'_* e# Get the (brick size - 1) * 2 underscores
'[\'] e# Surround with []
N e# Newline after each layer
ลองออนไลน์ได้ที่นี่
82 ไบต์
l~:H;{e_mrH({H-X$,+(mr)/(\e_}%_::+)-X${_,,\f<1fb}%2ew{:&,(},+,}g{{(2*'_*'[\']}/N}/
นี่เกือบจะคล้ายกับเวอร์ชัน 92 ไบต์ยกเว้นว่ามันมีการสุ่มเลือก หากคุณอ่านคำอธิบายสำหรับเวอร์ชัน 92 ไบต์จากนั้นในเวอร์ชัน 82 ไบต์ส่วนที่ 3, 4 และ 5 จะเหมือนกันทุกประการในขณะที่แทนที่จะวนซ้ำพีชคณิตทั้งหมดจากส่วนที่ 1 และ 2 รุ่นนี้จะสุ่มสร้างหนึ่งใน การเปลี่ยนรูปในแต่ละครั้งทดสอบโดยใช้ส่วนที่ 3 และ 4 แล้วเริ่มกระบวนการใหม่หากการทดสอบส่วนที่ 3 และ 4 ล้มเหลว
สิ่งนี้จะพิมพ์ผลลัพธ์อย่างรวดเร็วสำหรับ 3 กรณีทดสอบแรก กรณีทดสอบ height = 5 ยังไม่ได้ให้ผลลัพธ์ในคอมพิวเตอร์ของฉัน
คำอธิบายของความแตกต่าง
l~:H;{e_mrH({H-X$,+(mr)/(\e_}%_::+)-X${_,,\f<1fb}%2ew{:&,(},+,}g
l~:H; e# Eval the input and store the height in H
{ ... }g e# A do-while loop to iterate until a solution is found
e_mr e# Flatten the array and shuffle it.
H({ }% e# This is the random partition generation loop
e# Run the loop height - 1 times to get height parts
H-X$,+( e# While generating a random size of this partition, we
e# have to make sure that the remaining parts get at least
e# 1 brick. Thus, this calculation
mr) e# Get a random size. Make sure its at least 1
/(\e_ e# Similar to 92's part 2. Split, pop, swap and flatten
_::+)- e# 92's part 3. Copy and see if all elements are same
X${_,,\f<1fb}%2ew{:&,(}, e# 92's part 4. Copy and see if layers are stable
+, e# Both part 3 and 4 return empty array if
e# the layout is desirable. join the two arrays and
e# take length. If length is 0, stop the do-while
ความคิดสำหรับรุ่นนี้ได้รับจาก randomra (Get it?)
ลองสิ่งนี้ทางออนไลน์