ถาม: ใช้การคำนวณหมายเลข Delacorte ในภาษาใด ๆ รหัสที่สั้นที่สุดชนะ

สำหรับเมทริกซ์จตุรัสที่กำหนดของจำนวนเต็มชัดเจน1..n² (ความยาวด้านที่เป็นไปได้nอย่างน้อยระหว่าง 3 และ 27) หมายเลข Delacorte ของมันคือผลรวมของผลิตภัณฑ์gcd (a, b) ×distance² (a, b)สำหรับแต่ละจุดที่แตกต่างกัน จำนวนเต็ม {a, b}

ตัวอย่างต่อไปนี้แสดงตาราง 3 × 3 พร้อมหมายเลข Delacorte เป็น 160

3 2 9
4 1 8
5 6 7

ในตารางนี้เรามีการคำนวณ 36 คู่ที่แตกต่างกันเช่นคู่ที่ 4 และ 6: gcd (4, 6) × ระยะทาง ² (4, 6) = 4

อีกตัวอย่างสแควร์สำหรับการทดสอบ - นี้มีจำนวน Delacorte 5957:

10  8 11 14 12
21  4 19  7  9
 5 13 23  1 16
18  3 17  2 15
24 22 25  6 20

หมายเลข Delacorte นำมาจากการแข่งขันเขียนโปรแกรมนี้ - ดูรายละเอียดเพิ่มเติมที่นั่น ... การประกวดสิ้นสุดลงในเดือนมกราคม 2558 มันสนุกมาก!

กฎ:

ตัวแบ่งบรรทัดที่จำเป็นจะนับเป็น 1 อักขระ คุณสามารถโพสต์วิธีการเล่นกอล์ฟโดยมีตัวแบ่งบรรทัด แต่จะนับเฉพาะเมื่อจำเป็นในภาษานั้น

คุณสามารถเลือกวิธีจัดการกับอินพุตและเอาต์พุตและคุณไม่ต้องนับเฟรมเวิร์กที่จำเป็นสำหรับภาษาของคุณเช่นส่วนหัวแบบมาตรฐานหรือส่วนหัวของฟังก์ชันหลัก เฉพาะจำนวนจริงเท่านั้น (รวมถึงคำจำกัดความทางลัด / นามแฝง) เช่นในตัวอย่าง C # นี้:

namespace System
{
    using Collections.Generic;
    using I=Int32; //this complete line counts
    class Delacorte
    {
        static I l(I[]a){return a.Length;} //of course this complete line counts

        static void CalculateSquare(int[] a, out int r)
        {
            r=0;for(I i=l(a);i-->0;)r+=a[i]; //here only this line counts
        }

        static void Main()
        {
            int result;
            CalculateSquare(new int[] { 1, 2, 3, 4, 5, 6, 7, 8, 9 }, out result);
            Console.Write(result); //should output 140 for the example
            Console.ReadKey();
        }
    }
}

นอกจากนี้คุณยังสามารถป้อนสแควร์เป็นอาร์เรย์ 2 มิติหรือจากพรอมต์หรือเป็นสตริงหรือบางประเภทคอลเลกชันมาตรฐาน อาเรย์สองมิติเป็นวิธีเดียวที่ไม่ต้องคำนวณความยาวด้านของสี่เหลี่ยมจัตุรัสด้วยตัวคุณเอง
ไม่จำเป็นต้องใช้ฟังก์ชั่นย่อยสำหรับงานจริงคุณสามารถใส่รหัสลงใน Main () ได้โดยตรง

อนุญาตให้มีการเตรียมการมากขึ้นได้ฟรีเช่นที่นี่:

using System;
unsafe class Delacorte
{
    static void CalculateSquare(int* a, out int r)
    {
        r=0;while(*a>0)r+=*a++; //only this line counts
    }

    static void Main()
    {
        var input = new int[] { 1, 2, 3, 4, 5, 6, 7, 8, 9, 0 }; //adding a terminator
        int result;
        fixed (int* a = &input[0]) //necessary in C#
            CalculateSquare(a, out result);
        Console.Write(result);
        Console.ReadKey();
    }
}

หากคุณไม่แน่ใจว่าการเตรียมการที่ยาวนานของคุณอยู่ในจิตวิญญาณของกฎเหล่านี้หรืออาจจะเรียกว่าการโกงเพียงแค่ถาม :)

APL (38)

{.5×+/∊∘.{(∨/Z[⍺⍵])×+/⊃×⍨⍺-⍵}⍨⊂¨⍳⍴Z←⍵}

นี่คือฟังก์ชันที่ใช้เมทริกซ์เป็นอาร์กิวเมนต์ที่ถูกต้องเช่น:

      sq5←↑(10 8 11 14 12)(21 4 19 7 9)(5 13 23 1 16)(18 3 17 2 15)(24 22 25 6 20)
      sq5
10  8 11 14 12
21  4 19  7  9
 5 13 23  1 16
18  3 17  2 15
24 22 25  6 20
      {.5×+/∊∘.{(∨/Z[⍺⍵])×+/⊃×⍨⍺-⍵}⍨⊂¨⍳⍴Z←⍵}sq5
5957

คำอธิบาย:

• ⊂¨⍳⍴Z←⍵: Zเก็บเมทริกซ์ใน Zทำให้รายการของแต่ละคู่เป็นไปได้ของพิกัดใน
• ∘.{... }⍨: สำหรับแต่ละคู่ของพิกัดรวมกับแต่ละคู่ของพิกัด:
  • +/⊃×⍨⍺-⍵: คำนวณdistance^2: ลบคู่แรกของพิกัดจากที่สองคูณด้วยตัวเองและรวมผลลัพธ์
  • ∨/Z[⍺⍵]: รับตัวเลขZสำหรับทั้งคู่พิกัดและค้นหา GCD
  • ×: คูณพวกเขาด้วยกัน
• +/∊: รวมองค์ประกอบของผลลัพธ์ที่ได้
• .5×: คูณด้วย 0.5 (เพราะเรานับแต่ละคู่ที่ไม่ใช่ศูนย์สองครั้งก่อนหน้านี้)

Mathematica (83 82 79 69 67 66)

การจัดเตรียม

a={{10,8,11,14,12},{21,4,19,7,9},{5,13,23,1,16},{18,3,17,2,15},{24,22,25,6,20}}

รหัส

#/2&@@Tr[ArrayRules@a~Tuples~2/.{t_->u_,v_->w_}->u~GCD~w#.#&[t-v]]

หากเรานับโดยใช้อักขระ Unicode: 62 :

Tr[ArrayRules@a~Tuples~2/.{t_u_,v_w_}u~GCD~w#.#&[t-v]]〚1〛/2

Python - 128 112 90 89 88

เตรียม:

import pylab as pl
from fractions import gcd
from numpy.linalg import norm
from itertools import product

A = pl.array([
    [10,  8, 11, 14, 12],
    [21,  4, 19,  7,  9],
    [ 5, 13, 23,  1, 16],
    [18,  3, 17,  2, 15],
    [24, 22, 25,  6, 20]])

การคำนวณหมายเลข Delacorte (บรรทัดที่นับ):

D=sum(gcd(A[i,j],A[m,n])*norm([m-i,n-j])**2for j,n,i,m in product(*[range(len(A))]*4))/2

เอาท์พุท:

print D

ผลลัพธ์:

5957

Pyth 43

คำตอบนี้อาจจะเล่นกอล์ฟต่อไปได้อย่างแน่นอน ฉันไม่ชอบการคำนวณระยะทางเป็นพิเศษ

K^lJ.5VJFdUN~Z*i@JN@Jd+^-/dK/NK2^-%dK%NK2;Z

ในการตั้งค่านี้ให้เก็บอาเรย์เชิงเส้นในตัวแปร J คุณสามารถทำได้โดยการเขียน:

J[3 2 9 4 1 8 5 6 7)

ลองมันออนไลน์

ส่งออกลอย ฉันคิดว่านี่ถูกต้องตามกฎหมายโปรดบอกฉันว่าฉันทำผิดกฎ :)

คำอธิบาย:

                                             : Z=0 (implicit)
K^lJ.5                                       : K=sqrt(len(J))
      VJ                                     : for N in range(len(J))
        FdUN                                 : for d in range(N)
            ~Z*                              : Z+= the product of
               i@JN@Jd                       : GCD(J[N],J[d])
                      +^-/dK/NK2^-%dK%NK2    : (d/K-N/K)^2 + (d%K-N%K)^2 (distance)
                                         ;Z  : end all loops, and print Z

CJam, 55

q~:Q__,mqi:L;m*{_~{_@\%}h;\[Qf#_Lf/\Lf%]{~-_*}/+*}%:+2/

รับเมทริกซ์เป็น STDIN ในรูปแบบต่อไปนี้:

[10  8 11 14 12
 21  4 19  7  9
  5 13 23  1 16
 18  3 17  2 15
 24 22 25  6 20]

ลองออนไลน์ได้ที่นี่