พระราชบัญญัติการปรับสมดุล

ภาพรวม

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

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

อินพุต

3 จำนวนเต็มในช่วง 1-9 คุณสามารถป้อนจำนวนเต็มอย่างไรก็ตามสะดวกเช่น tuple, 3 ค่าคั่นด้วยเครื่องหมายจุลภาคเป็นต้นอย่างไรก็ตามโปรแกรมของคุณจะต้องสามารถจัดการกับตัวเลขที่ป้อนในลำดับใด ๆ (เช่นไม่มีการสมมติว่าค่าจะถูกเรียงลำดับ) ตัวเลขที่ซ้ำกันอาจเป็นอินพุต (เช่น 2,3,2)

อินพุตจะให้ผลลัพธ์ที่ถูกต้องทางคณิตศาสตร์เสมอมิฉะนั้นอินพุตไม่ถูกต้อง

เอาท์พุต

เอาต์พุตควรเป็นตัวแทน ASCII แบบ 2 บรรทัดของกระดานหกด้วยน้ำหนักที่วางไว้ ในบรรทัดแรกคือตัวเลขเว้นระยะเพื่อให้สมดุลกับกระดานหก

ตัวเลขอาจไม่ถูกวางไว้ที่กึ่งกลางของเครื่องชั่งซึ่งระยะห่างและแรงบิดจะเป็นศูนย์ ระยะทางที่ถูกต้องจากช่วงกลางจาก 1-10 ตัวรวมไปทางซ้ายหรือขวาของเดือย

ในช่องว่างที่ว่างโดยตัวเลขคืออักขระขีดล่าง 18 ตัว (ขีดกลางตรงกลางและ 10 แต่ละด้านลบลบตำแหน่งที่ว่างโดยตัวเลข 3 ตำแหน่ง) ในบรรทัดสุดท้ายเป็นคาเร็ตตัวเดียวที่อยู่ตรงกลางของสเกลแทนการหมุน

ตัวอย่าง

การป้อนข้อมูล:

4,7,2

เอาท์พุท:

________7___42_______
          ^

7 * 2 = 4 * 2 + 2 * 3

ตัวเลขสามารถส่งออกได้ทั้งสองข้างตัวอย่างเช่นนี้ก็จะถูกต้อง:

_______24___7________
          ^

2 * 3 + 4 * 2 = 7 * 2

ตัวเลขสามารถวางได้ทุกที่ในเครื่องชั่งตราบเท่าที่ยังมีความสมดุลเช่น:

การป้อนข้อมูล:

3,1,5

เอาท์พุท:

_____5________1__3___
          ^

5 * 5 = 1 * 4 + 3 * 7

หรือ

____5________1_____3_
          ^

5 * 6 = 1 * 3 + 3 * 9

หรือ

____5___________1_3__
          ^

5 * 6 = 1 * 6 + 3 * 8

ฯลฯ

โปรแกรมของคุณจะต้องส่งออกหนึ่งในผลลัพธ์ที่ถูกต้อง ไม่จำเป็นต้องแสดงข้อผิดพลาดหากอินพุตไม่ถูกต้อง

หมายเหตุ

• นี่คือรหัสกอล์ฟดังนั้นโปรแกรมที่สั้นที่สุดในหน่วยไบต์ชนะ
• โปรแกรมอาจเป็นแบบสแตนด์อโลนหรือฟังก์ชั่นที่รับตัวเลขเป็นอินพุตและส่งคืนสตริง
• การขึ้นบรรทัดใหม่และ white-space ในบรรทัดสุดท้ายเป็นทางเลือก
• หากคุณไม่รู้ว่ากระดานหกเป็นอย่างไรมันก็รู้จักกันในชื่อส่ายไปส่ายมาหรือกระดานส่ายไปส่ายมา

CJam, 40 39 38 ไบต์

q~21Ue]e!{21,Af-Aest.*:+!}=0'_erNAS*'^

ลองออนไลน์

มันทำงานอย่างไร

q~                                     e# Read and evaluate the input.
  21Ue]                                e# Append zeroes to achieve a length of 21.
       e!                              e# Push all unique permutations.
         {               }=            e# Find the first permutation such that:
          21,                          e#  Push [0 ... 20].
             Af-                       e#  Subtract 10 from each.
                Aest                   e#  Replace the element at index 10 with the
                                       e#  current time (ms since epoch) to push
                                       e#  [-10 ... -1 <big number> 1 ... 10].
                    .*                 e#  Multiply each number of the permutation
                                       e#  by the corresponding distance.
                      :+               e#  Add the products.
                                       e#  The timestamp makes sure that this sum
                                       e#  is non-zero for a non-zero element in
                                       e#  the middle of the permutation.    
                        !              e#  Push the logical NOT of the sum.
                           0'_er       e# Replace zeroes with underscores.
                                NAS*'^ e# Push a linefeed, ten spaces and a caret.

CJam, 46 44 ไบต์

'_21*q~K,Am3m*{___&=*Afm1$.*:+!}=.{\t}NAS*'^

ทดสอบที่นี่

คำอธิบาย

ขั้นแรกให้สังเกต: เราไม่จำเป็นต้องใส่ตัวเลขสองหลักที่จุดสิ้นสุดของกระดานหก เมื่อใดก็ตามที่เป็นทางออกที่ถูกต้องมีอย่างน้อยหนึ่งวิธีแก้ปัญหาที่ถูกต้องอื่น ๆ (ตาม pastebin ในความคิดเห็นเกี่ยวกับความท้าทาย)

'_21*   e# Push a string of 21 underscores.
q~      e# Read and eval input.
K,      e# Push the array [0 1 .. 19 20]
Am      e# Remove the 10. This is now an array of all valid positions on the seesaw.
3m*     e# Get all 3-tuples of valid positions.
{       e# Select the first tuple for which the following block yields a truthy result.
  ___   e# Make three copies of the tuple.
  &=    e# Intersect the last two copies and check for equality with the first one.
        e# This yields 1 if all positions are distinct, and 0 otherwise.
  *     e# Repeat the original tuple that many times. That is, if the positions are
        e# distinct, leave the tuple unchanged. Otherwise, replace it with an empty array.
  Afm   e# Subtract 10 from each position to get its weight.
  1$    e# Copy the input digits.
  .*    e# Take the pairwise product of weights and digits. If the weights are empty
        e# (because they were not unique), this will just yield a list of the digits.
  :+    e# Sum the weighted digits. If the weights were not unique, this will just sum
        e# the digits and will always be positive.
  !     e# Logical NOT - give 1 if the sum was 0, or 0 otherwise.
}=
.{\t}   e# For each pair of digit and position, replace that position in the underscore
        e# string with the corresponding digit.
N       e# Push a newline.
AS*     e# Push ten spaces.
'^      e# Push a caret.

Java, 519 414 321 ไบต์

static int f(int a,int b,int c){int i,j,k;for(i=-10;i<=10;i++)for(j=i+1;j<=10;j++)for(k=j+1;k<=10;k++){if(a*i+b*j+c*k==0&&i!=0&&j!=0&&k!=0){for(int q=0;q<21;q++){if(q==10+i)p(a);else if(q==10+j)p(b);else if(q==10+k)p(c);else p('_');}p("\n          ^\n");return 0;}}return 0;}static void p(Object a){System.out.print(a);}}

ความพยายามครั้งแรกของฉันในการเล่นกอล์ฟ

f(a,b,c)คุณสามารถเรียกมันด้วย ลองที่นี่

แก้ไข:ใช้วิธีการตรวจสอบ izlin(a*i+b*j+c*k)==0

แก้ไข:ขอบคุณ J Atkin สำหรับคำแนะนำการเล่นกอล์ฟ

Pyth, 67 58 53 49 ไบต์

นี่ให้ความรู้สึกเล็ก ๆ น้อย ๆ กับ Pyth แต่ฉันไม่คุ้นเคยกับภาษามากพอที่จะทำให้เล็กลงได้ Sub 50 ไบต์ฉันมีความสุขกับสิ่งนี้ในที่สุด!

V.c-KrT-011Z3FY.pQIqs*VNYZjkm?}dN@YxNd\_K+*dT\^.q

[1,2,3]การป้อนข้อมูลที่คาดว่าเป็นอาร์เรย์ของจำนวนเต็มเช่น ลองที่นี่

ชี้แจง:

V.c-KrT-011Z3FY.pQIqs*VNYZjkm?}dN@YxNd\_K+*dT\^.q
                                                       Implicit: Q = eval(input())
     rT-011                                            Create range from 10 to -10
    K                                                  Store in K
   -       Z                                           Drop 0 from the above
V.c         3                                          For N in (combinations of the above of size 3)
             FY.pQ                                     For Y in (permutations of input)
                     *VNY                              Multiply each element in N by the corresponding element in Y
                    s                                  Take the sum
                  Iq     Z                             If it's equal to zero:
                            m           K              For d in K (K = [10, ..., -10])
                             ?}dN                      Is d in N?
                                 @YxNd                 If so, get corresponding value from Y
                                      \_               Otherwise, get '_'
                          jk                           Join the resulting array into a string (implicit print)
                                         +*dT\^        Join 10 spaces and '^', implicit print
                                               .q      Break all loops and exit

และสุดท้ายบางตัวอย่างอินพุตและเอาท์พุต:

[1,1,1] ->
1__________1_______1_
          ^

[2,9,5] ->
2____5_________9_____
          ^

[9,8,5] ->
5____8______________9
          ^

C - 237 228 ไบต์

i,j,k;f(a,b,c){char o[]="_____________________\n          ^";for(i=-10;i<9;i+=i+1?1:2){for(j=i+1;j<11;j+=j+1?1:2){for(k=j+1;k<11;k+=k+1?1:2){if((a*i+b*j+c*k)==0){o[i+10]=a+48;o[j+10]=b+48;o[k+10]=c+48;printf("%s",o);return;}}}}}

f(a,b,c)คุณสามารถเรียกมันด้วย

ลองมันนี่

ตัวอย่างผลลัพธ์:

f(4,7,2):
4_____________7_2____
          ^         

f(3,1,5)
3____1___________5___
          ^       

Python 2.7 235 226 219 ไบต์

def s(n,p=__import__("itertools").permutations):
 l=["_"]*21
 for p,q in[[(a,x+10),(b,y+10),(c,10-z)]for a,b,c in p(n,3)for x,y,z in p(range(1,11),3)if x!=y and a*x+b*y==c*z][0]:l[q]=`p`
 return`l`[2::5]+"\n"+" "*10+"^"

ทดสอบกับตัวอย่างพื้นฐาน - (1,1,1),(1,2,1),(3,1,5),(4,7,2)ผลลัพธ์ใน:

(1, 1, 1)
_______1___11________
          ^
(1, 2, 1)
_____1_____12________
          ^
(3, 1, 5)
________5__3_____1___
          ^
(4, 7, 2)
_2_________47________
          ^

เอาต์พุตสำหรับอินพุตที่เป็นไปได้ทั้งหมดวางที่นี่

PHP, 278 ไบต์

วิธีการแก้ปัญหาแบบ brute-force ที่ใช้ลูปซ้อนกันหลายลูปและการทดสอบสองชุด

$p=explode(',',$argv[$i=1]);for(;$i<=10;$i++)for($j=1;$j<=10;$j++)
for($k=1;$k<=10;$k++)if($j-$k)for($l=0;$l<3;$l++){$q=array_shift($p);
if($i*$q==$j*$p[0]+$k*$p[1]){$o=str_repeat('_',21);$o[10-$i]=$q;$o[10+$j]=$p[0];
$o[10+$k]=$p[1];echo($o."\n          ^\n");}array_push($p,$q);}

เช่นเคยใส่มันลงในไฟล์ (ลองตั้งชื่อมันseesaw.php) เข้าร่วมบรรทัด (แยกที่นี่เพื่อการอ่าน) ใส่เครื่องหมาย PHP ( <?php) ที่จุดเริ่มต้นของไฟล์ (ในทางเทคนิคมันไม่ได้เป็นส่วนหนึ่งของโปรแกรม) และคุณ ' กำลังดีที่จะไป

ตัวอย่างของการดำเนินการ:

$ php seesaw.php 9,2,1
_________9_2_____1___
          ^
_________9__2__1_____
          ^
_________9_1__2______
          ^
________9_____2_____1
          ^
________9______2__1__
          ^
________9_____1__2___
          ^
________9___1_____2__
          ^
_______9_________1__2
          ^
____2______9_1_______
          ^
___2_______9___1_____
          ^
__2________9_____1___
          ^
_2_________9_______1_
          ^

มันสร้างและแสดงวิธีแก้ปัญหาทั้งหมด (ไม่มีการสะท้อน) แต่จะไม่ตัดการทำซ้ำ (เมื่อค่าอินพุตมีการทำซ้ำ)

Julia, 154 ไบต์

f(a,b,c)=(x=replace(join(first(filter(p->p⋅[-10:-1,1:10]==0,permutations([a,b,c,zeros(Int,17)])))),"0","_");print(x[1:10]*"_"*x[11:20]*"\n"*" "^10*"^"))

คำอธิบาย Ungolfed +:

function f(a,b,c)
    # Create a 20-element array of the input with 17 zeros
    z = [a,b,c,zeros(Int,17)]

    # Get the set of all permutations of z such that the dot product
    # of the permutation with the distances is 0
    d = filter(p -> p ⋅ [-10:-1,1:10] == 0, permutations(z))

    # Join the first element of d into a string and replace all of
    # the zeros with underscores
    x = replace(join(first(d)), "0", "_")

    # Print the output
    print(x[1:10] * "_" * x[11:20] * "\n" * " "^10 * "^")
end

C, 252 (214) ไบต์

โทรด้วย a, b, c เป็นอาร์กิวเมนต์บนบรรทัดคำสั่ง

e=48;main(_,v,x,y,z,a,b,c)char**v;{char s[]="_____________________\n          ^";x=*v[1]-e;y=*v[2]-e;z=*v[3]-e;for(a=-1;a+11;--a)for(b=-10;b-11;++b)_=a*x+b*y,!b|b==a|_%z?0:(c=-_/z,c&c<11&c>-11?s[a+10]=x+e,s[b+10]=y+e,s[c+10]=z+e,puts(s),exit(0):0);} 

หาก main สามารถถูก ommitted, byte นับลดลงถึง 214 สำหรับฟังก์ชั่น

a,b,c;f(x,y,z){char s[]="_____________________\n          ^";for(a=-1;a+11;--a)for(b=-10;b-11;++b)!b|b==a|(a*x+b*y)%z?0:(c=-(a*x+b*y)/z,c&&c<11&&c>-11?s[a+10]=x+48,s[b+10]=y+48,s[c+10]=z+48,puts(s),b=10,a=-b:0);}

ทั้งคู่ใช้กลยุทธ์เดียวกันในการวางน้ำหนักแรกทางซ้ายจากนั้นทำการสแกนตามตำแหน่งน้ำหนักที่สองที่เป็นไปได้และคำนวณน้ำหนักที่สาม สิ่งนี้ทำให้สามารถลบลูปด้านในได้