การรวมใบหน้าคิวบ์แบบลูกบาศก์ด้วยตนเองนั้นเป็นเรื่องที่น่าเบื่อและใช้เวลานานและ sorta ก็เหมือนกับการเขียนโค้ดในแบบลูกบาศก์

ในcubifier ที่มีประสิทธิภาพที่สุดฉันขอให้คุณแปล ASCII เป็นแหล่งข้อมูลแบบลูกบาศก์ หนึ่งในคำตอบนั้นใช้ลำดับการกำหนดค่าเริ่มต้นของคิวบ์จากนั้นปรับเปลี่ยนคิวบ์ผลลัพธ์ตามจำนวนผลรวมของคิวบ์ที่กำหนดค่าเริ่มต้นไว้ล่วงหน้า วิธีนี้ถูกใช้ในโปรแกรมที่เกี่ยวข้องกับผู้ใช้หลายคนตั้งแต่ Cubically เมื่อทำการทดสอบลำดับการกำหนดค่าเริ่มต้นใหม่เราต้องเพิ่มค่าทั้งหมดบนใบหน้าทั้งหมดซึ่งโดยปกติจะใช้เวลาสองหรือสามนาที

งานของคุณคือทำให้กระบวนการนี้เป็นอัตโนมัติสำหรับเรา!

คุณจะใช้เวลาสองปัจจัยการผลิตเป็นจำนวนเต็มและสตริงn cสิ่งเหล่านี้อาจอ่านได้จากอาร์กิวเมนต์บรรทัดคำสั่งอาร์กิวเมนต์ฟังก์ชันอินพุตมาตรฐานไฟล์หรือการรวมกันของสิ่งเหล่านั้น cจะเป็นคิวบ์หน่วยความจำแบบลูกบาศก์ขนาดnตามที่พิมพ์โดยนักแปล

ล่าม Cubically จะทิ้ง cube ไว้ที่ STDERR เมื่อมีการยกเลิกโปรแกรมซึ่งจัดรูปแบบไว้อย่างดีเพื่อการดูที่ง่าย รันโปรแกรมว่างในตัวแปล Cubicallyและเปิดส่วนดีบักเพื่อดูการถ่ายโอนข้อมูลคิวบ์ของคิวบ์เริ่มต้น เพิ่มอาร์กิวเมนต์4เพื่อดู 4x4x4 หรือ5ดู 5x5x5 เป็นต้น

หากnเป็น 3 cจะเป็นไปตามรูปแบบนี้ (จำนวนเต็มจะเป็นตัวแปร):

   000
   000
   000
111222333444
111222333444
111222333444
   555
   555
   555

ช่องว่างการขึ้นบรรทัดใหม่และทั้งหมด ถ้าnเป็น 4 cจะมีลักษณะเช่นนี้ (เช่นเดียวกับจำนวนเต็มตัวแปร):

    0000
    0000
    0000
    0000
1111222233334444
1111222233334444
1111222233334444
1111222233334444
    5555
    5555
    5555
    5555

เป็นต้น

โปรแกรมของคุณจะแสดงผลเป็นจำนวนเต็มหกจำนวน จำนวนเต็มแรกจะเป็นผลรวมของตัวเลขทั้งหมดที่อยู่ด้านบนสุด

   000
   000          top face
   000
111222333444    left, front, right, and back faces, respectively
111222333444
111222333444
   555
   555          bottom face
   555

จำนวนเต็มที่สองจะเป็นผลรวมของใบหน้าด้านซ้าย, ด้านหน้าที่สาม, สี่ด้านขวา, ด้านหลังที่ห้าและด้านหลังที่หก

ดังนั้นถ้าnเป็น 3 และcนี่คือ:

   242
   202
   242
000131555313
010121535343
000131555313
   424
   454
   424

20 1 14 43 24 33โปรแกรมของคุณจะเอาท์พุท

กฎเพิ่มเติม:

• จำนวนเต็มเอาต์พุตต้องถูกคั่นด้วยอักขระที่ไม่ใช่จำนวนเต็ม คุณอาจเลือกที่จะคืนค่าอาร์เรย์
• คุณอาจจะคิดว่าการป้อนข้อมูลที่ถูกต้อง - nเป็นจำนวนเต็มและcเป็นก้อนจากการส่งออกการแก้จุดบกพร่องของ Cubically ดังนั้นหากnเคย3.0และcเคยfoo barโปรแกรมของคุณอาจหยุดทำงานและยังคงใช้งานได้
• โปรแกรมของคุณจำเป็นต้องทำงานn > 1และn < 1260เท่านั้น มันอาจ (พยายาม) จัดการกับขนาดลูกบาศก์ที่ใหญ่กว่าหรือเล็กกว่า แต่ก็ไม่จำเป็น

นี่คือรหัสกอล์ฟดังนั้นรหัสที่สั้นที่สุดชนะ! หากคุณต้องการความช่วยเหลืออย่าลังเลที่จะถามในห้องสนทนา Cubically

เยลลี่ , 16 14 13 ไบต์

3 ไบต์ขอบคุณ Erik the Outgolfer

ḟ⁶ỴV€€sS€ẎsS€

ลองออนไลน์!

Python 2 , 155 150 147 123 121 120 ไบต์

อาจจะเล่นกอล์ฟได้สักหน่อย

แก้ไข: -5 ไบต์โดยใช้วิธีที่ดีกว่าสำหรับการลบช่องว่าง

แก้ไข: -3 ไบต์ขอบคุณ@Leaky Nun

แก้ไข: -24 ไบต์โดยไม่ลบช่องว่างออก

แก้ไข: -2 ไบต์โดยใช้ประโยชน์จากลำดับความสำคัญ

lambda n,a:[sum(sum(map(int,b[j*n:][:n]))for b in a.split("\n")[i*n:][:n])for i in range(3)for j in range(~i%2,i%2*2+2)]

ลองออนไลน์!

05AB1E , 16 ไบต์

¹|ðм€Sôεø¹ô€OO}˜

ลองออนไลน์!

Huskขนาด 15 ไบต์

3 ṁวินาทีและ 2 mวินาที

mṁṁiṁoC⁰TC⁰mf±¶

ลองออนไลน์!

คำอธิบาย

                  Takes input as two arguments, the first being n, the second, the cube
              ¶   Split second argument into a list of lines
           m      For each line
            f±    keep only the digits (remove spaces)
         C⁰       Cut into lists of length n
    ṁ             Map then concatenate
        T           transpose
     oC⁰            then cut into lists of length n
mṁṁi              Takes list of lists of strings (or, in Husk, a list of lists of lists of chars) and returns the sum of the digits in each list
m                 Map function over list of lists
 ṁ                  map then sum
  ṁ                   map then sum
   i                  convert character to integer

คู่, 64 59 54 ไบต์

@(c,n)sum(im2col(c'-48,[n n],'distinct'))([2 5:8 10])

ลองออนไลน์!

คำตอบก่อนหน้า:

@(c,n)sparse(kron((1:4)+[0;4;8],!!e(n)),1,c-48)([2 5:8 10])

ลองออนไลน์!

ส่งคืนอาร์เรย์เป็นเอาต์พุต

Perl 5 , 66 + 1 (-n) = 67 ไบต์

$j=$k<6?$k++/3:5;s/\d{3}/';$r[$j++]+='.$&=~s|.|+$&|gr/gee}{say"@r"

ลองออนไลน์!

Python 2 , 137 127 ไบต์

-10 ไบต์ขอบคุณ @Halvard Hummel

lambda x,n:[sum(sum(map(int,x.split('\n')[b+j][a:a+n]))for j in range(n))for a,b in[[n,0],[0,n],[n,n],[2*n,n],[3*n,n],[n,2*n]]]

ลองออนไลน์!

Haskell, 128 ไบต์

s n c=filter(>=0)$map(\[x,y]->sum$map(\[v,w]->fromEnum((lines c)!!(x*n+v)!!(y*n+w))-48)$n%n)$3%4
n%m=sequence[[0..n-1],[0..m-1]]

ยอมรับสตริงที่มีตัวแบ่งบรรทัด

PowerShellขนาด 236 ไบต์

param($n,$z)
function f($y){$y-replace' '-split'(.)'-ne''-join'+'|iex}
$a=$z-split"`n"
f $a[0..($n-1)]
$a[$n..(2*$n-1)]|%{$x="($('.'*$n))";$1,$2,$3,$4=$_-split$x-ne'';$h+=$1;$i+=$2;$j+=$3;$k+=$4}
$h,$i,$j,$k|%{f $_}
f $a[(2*$n)..(3*$n)]

ลองออนไลน์!

Ooof นี้ยาว แต่การแยกและการแบ่งสายไม่ใช่ชุดที่แข็งแกร่งของ PowerShell ดังนั้นฉันคิดว่ามันค่อนข้างคาดหวัง ยัง - ดังนั้น จำนวนมาก ดอลลาร์

ใช้พารามิเตอร์$nและ$zขนาดและคิวบ์สุทธิตามลำดับ จากนั้นสร้างฟังก์ชันที่ใช้ตลอด ที่นี่เราจะลบช่องว่างแยกแต่ละหลักลบอักขระว่างในระหว่างการรวมตัวอักขระทั้งหมดเข้าด้วยกัน+แล้วดำเนินการคำสั่งผลลัพธ์เพื่อรับตัวเลข ยกตัวอย่างเช่นการเปลี่ยนนี้"123"เข้าซึ่งเมื่อดำเนินการคือ1+2+36

บรรทัดถัดไปsplits $aก้อนสุทธิข้อมูลเกี่ยวกับการขึ้นบรรทัดใหม่การจัดเก็บผลลงในอาร์เรย์ จากนั้นเราจะดำเนินการฟังก์ชั่นใน$nบรรทัดแรกและส่งหน้าสูงสุดของคิวบ์

สำหรับชุดถัดไปเราจำเป็นต้องแยกสตริงตามขนาดคิวบ์ ดังนั้นเราวนรอบแต่ละบรรทัดสร้าง$xเป็นรูปแบบ regex ที่เหมาะสม (เช่นขนาด$n=3นี้"(...)"), แยกสตริงตามรูปแบบนั้นลบองค์ประกอบที่ว่างเปล่าอีกครั้งและเก็บไว้เป็นตัวแปรสี่ตัวที่เป็นตัวแทนของใบหน้าทั้งสี่ สตริงเหล่านั้นจะถูกต่อกันเข้าhด้วยkกัน

บรรทัดถัดไปจัดส่งhผ่านkฟังก์ชั่นเพื่อส่งออกด้านข้าง (ซ้าย, ด้านหน้า, ขวา, หลัง) ของคิวบ์

ในที่สุดเราก็เรียกใช้$nบรรทัดสุดท้ายผ่านฟังก์ชั่นเพื่อส่งหน้าล่างของคิวบ์

ตัวเลขทั้งหมดจะถูกทิ้งไว้บนไพพ์ไลน์และเอาท์พุทจะเป็นนัย

APL (Dyalog Classic) , 30 27 ไบต์

{+/⍎¨6(⍺*2)⍴⍉⊃,⌿3⍺⍴⍵⊂⍨⍵∊⎕D}

ลบออกไป 3 ไบต์ด้วย@ Adám

⍺คือ n ⍵คือ c

คำอธิบาย

                        ⍵⊂⍨⍵∊⎕D   c partitioned by ⎕D (digits 0..9)
                    3⍺⍴           reshape into 3 by n matrix
                 ,⌿              concatenate on first axis (results in n vectors)
              ⍉⊃                  ravel transpose mix (results in a simple string with all digits in side order)
      6(⍺*2)⍴                     reshape into 6 by n squared matrix (one row per side)
 +/⍎¨                            sum rows execute each (execute will turn characters into numbers)

ลองออนไลน์!

ตามอำเภอใจ 19 ไบต์

r%0@%1@%2@%3@%4@%5@

รับคิวบ์จาก STDIN และขนาดเป็นอาร์กิวเมนต์บรรทัดคำสั่งไปยังล่าม ส่งออกผลรวมของหน้าบนสุด, ไบต์ว่าง, ใบหน้าซ้าย, null null, ... ใบหน้าล่างและไบต์ว่าง

ลองออนไลน์! ... ซึ่งเห็นได้ชัดว่าแสดงไบต์ว่างเป็นช่องว่างบนเบราว์เซอร์ของฉัน

• ลองออนไลน์! (4x4x4)
• ลองออนไลน์! (5x5x5)

ภาษานี้ไม่ได้ถูกสร้างขึ้นสำหรับความท้าทายนี้ แต่ความท้าทายนั้นถูกสร้างขึ้นสำหรับภาษา .... มันยังคงโกงอยู่หรือไม่? ;)