ให้$n=42$ (อินพุต)

จากนั้นตัวหารคือ: 1, 2, 3, 6, 7, 14, 21, 42

กำลังสองแต่ละตัวหาร: 1, 4, 9, 36, 49, 196, 441, 1764

กำลังรวม (เพิ่ม): 2500

ตั้งแต่ดังนั้นเราจึงคืนค่าความจริง ถ้ามันไม่ใช่สแควร์ที่สมบูรณ์แบบให้คืนค่าที่ผิดพลาด$50\times 50=2500$

ตัวอย่าง :

42  ---> true
1   ---> true
246 ---> true
10  ---> false
16  ---> false

นี่คือโค้ดกอล์ฟที่สั้นที่สุดในหน่วยไบต์สำหรับแต่ละภาษาที่ชนะ

ขอบคุณ @Arnauld ที่ชี้ให้เห็นลำดับ: A046655

R , 39 37 ไบต์

!sum((y=1:(x=scan()))[!x%%y]^2)^.5%%1

ลองออนไลน์!

การใช้ "การทดสอบที่สมบูรณ์แบบถ้าตาราง" คลาสสิกวิธีการไม่ใช่ส่วนหนึ่งที่สำคัญของรากS^.5%%1และการปฏิเสธตรรกะของมันเป็นมันแผนที่ศูนย์ (ตารางที่สมบูรณ์) ไปและจะไม่ใช่ศูนย์TRUEFALSE

ขอบคุณRobert Sสำหรับการบันทึกสองสามไบต์!

JavaScript (ES7),  46 44  42 ไบต์

บันทึก 1 ไบต์ขอบคุณ @Hedi

n=>!((g=d=>d&&d*d*!(n%d)+g(d-1))(n)**.5%1)

ลองออนไลน์!

แสดงความคิดเห็น

n =>             // n = input
  !(             // we will eventually convert the result to a Boolean
    (g = d =>    // g is a recursive function taking the current divisor d
      d &&       //   if d is equal to 0, stop recursion 
      d * d      //   otherwise, compute d²
      * !(n % d) //   add it to the result if d is a divisor of n
      + g(d - 1) //   add the result of a recursive call with the next divisor
    )(n)         // initial call to g with d = n
    ** .5 % 1    // test whether the output of g is a perfect square
  )              // return true if it is or false otherwise

05AB1E , 5 ไบต์

ÑnOŲ

ลองออนไลน์!

อย่างไร?

ÑnOŲ
Ñ     - divisors
 n    - square
  O   - sum
   Ų - is square?

ภาษาการเขียนโปรแกรมของเช็คสเปียร์ , 434 428 415 ไบต์

,.Ajax,.Ford,.Puck,.Act I:.Scene I:.[Enter Ajax and Ford]Ford:Listen tothy.Scene V:.Ajax:You be the sum ofyou a cat.Ford:Is the remainder of the quotient betweenyou I worse a cat?[Exit Ajax][Enter Puck]Ford:If soyou be the sum ofyou the square ofI.[Exit Puck][Enter Ajax]Ford:Be you nicer I?If solet usScene V.[Exit Ford][Enter Puck]Puck:Is the square ofthe square root ofI worse I?You zero.If notyou cat.Open heart

ลองออนไลน์!

-13 ไบต์ขอบคุณ Jo King!

เอาต์พุต1สำหรับผลลัพธ์ที่แท้จริงเอาต์พุต0สำหรับผลลัพธ์ที่เป็นเท็จ

Python 2 , 55 ไบต์

lambda n:sum(i*i*(n%i<1)for i in range(1,n+1))**.5%1==0

ลองออนไลน์!

Neim , 5 ไบต์

𝐅ᛦ𝐬q𝕚

คำอธิบาย:

𝐅      Factors
 ᛦ      Squared
  𝐬     Summed
    𝕚   is in?
   q    infinite list of square numbers

ลองออนไลน์!

C (gcc) , 67 63 60 59 ไบต์

-1 ไบต์ขอบคุณ @JonathanFrech

i,s;f(n){for(s=i=0;i++<n;)s+=n%i?0:i*i;n=sqrt(s);n=n*n==s;}

ลองออนไลน์!

Brachylogขนาด12 8 ไบต์

f^₂ᵐ+~^₂

-4 ไบต์ขอบคุณ Fatelize สาเหตุที่ฉันไม่ได้ตระหนักถึง brachylog มีฟังก์ชั่นปัจจัย

คำอธิบาย

f^₂ᵐ+~^₂            #   full code
f                   #       get divisors
 ^₂ᵐ                #           square each one
    +               #       added together
      ~^₂           #       is the result of squaring a number

ลองออนไลน์!

MathGolf , 5 4 ไบต์

─²Σ°

ลองออนไลน์!

คำอธิบาย

─     Get all divisors as list (implicit input)
 ²    Square (implicit map)
  Σ   Sum
   °  Is perfect square?

คล้ายกับคำตอบอื่น ๆ เมื่อเทียบกับ 05AB1E ฉันได้หนึ่งไบต์สำหรับตัวดำเนินการ "is perfect square" ของฉัน

MATL , 9 ไบต์

Z\UsX^tk=

ลองออนไลน์!

ง่ายเหมือนที่ได้รับ

Z\ % Divisors of (implicit) input
U  % Square
s  % Sum
X^ % Square root
t  % Duplicate this value
k= % Is it equal to its rounded value?

PowerShell , 68 56 ไบต์

param($n)1..$n|%{$a+=$_*$_*!($n%$_)};1..$a|?{$_*$_-eq$a}

ลองออนไลน์!

ดูเหมือนจะนาน ...
-12 ไบต์ต้องขอบคุณเขาที่บ้าคลั่ง

ทำสิ่งที่พูดบนกระป๋องอย่างแน่นอน ใช้เวลาช่วงจาก1การป้อนข้อมูล$nและคูณออกตารางเวลาไม่ว่าจะเป็นตัวหารหรือไม่$_*$_ !($n%$_)สิ่งนี้ทำให้ตัวหารเท่ากับจำนวนที่ไม่ใช่ศูนย์และตัวหารที่ไม่ใช่เท่ากับศูนย์ $aจากนั้นเราจะใช้ผลรวมของพวกเขาที่มีการสะสมของเรา ต่อไปเราวนซ้ำอีกครั้งจาก1ขึ้นไป$aและดึงออกหมายเลขเหล่านั้นที่|?{...}มันยกกำลังทางเพศที่จะ-eq $aที่เหลืออยู่บนไปป์ไลน์และเอาท์พุทเป็นนัย

ส่งออกจำนวนเต็มบวกสำหรับความจริงและไม่มีอะไรผิดพลาด

Japt , 11 9 7 ไบต์

-2 ไบต์จาก @Giuseppe และอีก -2 จาก @Shaggy

â x²¬v1

â x²¬v1             Full program. Implicity input U
â                   get all integer divisors of U
  x²                square each element and sum
    ¬               square root result
     v1           return true if divisible by 1

ลองออนไลน์!

APL (Dyalog Unicode)ขนาด 18 ไบต์

0=1|.5*⍨2+.*⍨∘∪⍳∨⊢

ลองออนไลน์!

แลมบ์ดานิรนาม ส่งคืน 1 สำหรับความจริงและ 0 สำหรับความเท็จ (กรณีทดสอบใน TIO ได้รับการกำหนดล่วงหน้า)

ส่งเสียงถึง @ H.PWiz นาน 4 ไบต์!

วิธี:

0=1|.5*⍨2+.*⍨∘∪⍳∨⊢   ⍝ Main function, argument ⍵ → 42
                ∨⊢   ⍝ Greatest common divisor (∨) between ⍵ (⊢)
               ⍳      ⍝ and the range (⍳) [1..⍵]
              ∪      ⍝ Get the unique items (all the divisors of 42; 1 2 3 6 7 14 21 42)
             ∘        ⍝ Then
            ⍨         ⍝ Swap arguments of
        2+.*          ⍝ dot product (.) of sum (+) and power (*) between the list and 2 
                      ⍝ (sums the result of each element in the vector squared)
       ⍨              ⍝ Use the result vector as base
    .5*               ⍝ Take the square root
  1|                  ⍝ Modulo 1
0=                    ⍝ Equals 0

K (oK) , 26 25 22 ไบต์

วิธีการแก้:

{~1!%+/x*x*~1!x%:1+!x}

ลองออนไลน์!

คำอธิบาย:

{~1!%+/x*x*~1!x%:1+!x} / the solution
{                    } / lambda taking x as input
                   !x  / range 0..x-1                        \
                 1+    / add 1                               |
              x%:      / x divided by and save result into x |
            1!         / modulo 1                            | get divisors
           ~           / not                                 |
         x*            / multiply by x                       /
       x*              / multiply by x (aka square)          > square
     +/                / sum up                              > sum up
    %                  / square root                         \  
  1!                   / modulo 1                            | check if a square
 ~                     / not                                 / 

หมายเหตุ:

• -1 ไบต์รับแรงบันดาลใจจากPowerShellโซลูชัน
• -3 ไบต์รับแรงบันดาลใจจากโซลูชันAPL

Pari / GP , 23 ไบต์

n->issquare(sigma(n,2))

ลองออนไลน์!

Matlab, 39 37 ไบต์

@(v)~mod(sqrt(sum(divisors(v).^2)),1)

น่าเสียดายที่มันใช้งานไม่ได้กับ Octave (บน tio) ดังนั้นจึงไม่มีลิงค์ของ tio

หมายเหตุตามที่ @LuisMendo ระบุไว้divisors()เป็นของ Symbolic Toolbox

Haskell , 78 64 53 ไบต์

-14 ไบต์ขอบคุณที่Orjan ฮันเซน -11 ไบต์ขอบคุณที่OVS

f x=sum[i^2|i<-[1..x],x`mod`i<1]`elem`map(^2)[1..x^2]

ลองออนไลน์!

เฮ้มันเป็นเวลานานแล้วที่ข้าได้ ... เขียนรหัสใด ๆดังนั้น Haskell และการเล่นกอล์ฟของฉันอาจเป็นสนิมเล็กน้อย ฉันลืมประเภทตัวเลข Haskell ที่ยุ่งยาก : P

Pyt , 7 ไบต์

ð²ƩĐř²∈

ลองออนไลน์!

คำอธิบาย

            Implicit input
ð           Get list of divisors
 ²          Square each element
  Ʃ         Sum the list [n]
   Đ        Duplicate the top of the stack
    ř²      Push the first n square numbers
      ∈     Is n in the list of square numbers?
            Implicit output

ð²Ʃ√ĐƖ=

ลองออนไลน์!

คำอธิบาย

            Implicit input
ð           Get list of divisors
 ²          Square each element
  Ʃ         Sum the list [n]
   √        Take the square root of n
    Đ       Duplicate the top of the stack
     Ɩ      Cast to an integer
      =     Are the top two elements on the stack equal to each other?
            Implicit output

ð²Ʃ√1%¬

ลองออนไลน์!

คำอธิบาย

            Implicit input
ð           Get list of divisors
 ²          Square each element
  Ʃ         Sum the list [n]
   √        Take the square root of n
    1%      Take the square root of n modulo 1
      ¬     Negate [python typecasting ftw :)]
            Implicit output

Husk , 6 ไบต์

£İ□ṁ□Ḋ

ลองออนไลน์!

คำอธิบาย

£İ□ṁ□Ḋ  -- example input 12
     Ḋ  -- divisors: [1,2,3,4,6,12]
   ṁ    -- map the following ..
    □   -- | square: [1,4,9,16,36,144]
        -- .. and sum: 210
£       -- is it element of (assumes sorted)
 İ□     -- | list of squares: [1,4,9,16..196,225,..

เยลลี่ 6 ไบต์

ÆD²SƲ

ลองออนไลน์! หรือดูการทดสอบในตัว

อย่างไร?

ÆD²SƲ - Main Link: integer
ÆD     - divisors
  ²    - square
   S   - sum
    Ʋ - is square?

โปรตอน , 41 ไบต์

a=>sum(q*q for q:1..a+1if a%q<1)**.5%1==0

ลองออนไลน์!

วิธีการคล้ายกับคำตอบของงูหลาม

Mathematica ขนาด 32 ไบต์

IntegerQ@Sqrt[2~DivisorSigma~#]&

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

ระดับแปดเสียง / MATLAB, 43 ไบต์

@(n)~mod(sqrt(sum(find(~mod(n,1:n)).^2)),1)

ลองออนไลน์!

สีแดง 67 ไบต์

func[n][s: 0 repeat d n[if n % d = 0[s: d * d + s]](sqrt s)% 1 = 0]

ลองออนไลน์!

สกาลา , 68 67 ไบต์

def j(s:Int)=Math.sqrt((1 to s).filter(s%_<1).map(a=>a*a).sum)%1==0

ลองออนไลน์!

Perl 6 , 34 ไบต์

-1 ไบต์ต้องขอบคุณ nwellnhof

{grep($_%%*,1..$_)>>².sum**.5%%1}

ลองออนไลน์!

F #, 111 ไบต์

let d n=Seq.where(fun v->n%v=0){1..n}
let u n=
 let m=d n|>Seq.sumBy(fun x->x*x)
 d m|>Seq.exists(fun x->x*x=m)

ลองออนไลน์!

ดังนั้น dได้รับหารสำหรับตัวเลขทั้งหมดระหว่าง 1 และnรวม ในฟังก์ชั่นหลักuบรรทัดแรกกำหนดผลรวมของตัวหาร Squared mทั้งหมดไปยัง บรรทัดที่สองได้รับหารสำหรับและกำหนดถ้าพวกเขากำลังสองเท่ากับmm

Perl 5, 47 ไบต์

$a+=$_*$_*!($n%$_)for 1..$n;$a=!($a**.5=~/\D/); 

ส่งคืน 1 สำหรับจริงและไม่มีอะไรที่เป็นเท็จ

คำอธิบาย:

$a+=              for 1..$n;                      sum over i=1 to n
    $_*$_                                         square each component of the sum
         *!($n%$_)                                multiply by 1 if i divides n.
                            $a=                   a equals
                                ($a**.5           whether the square root of a
                               !       =~/\D/);   does not contain a non-digit.

Groovy , 47 ไบต์

แลมบ์ดายอมรับอาร์กิวเมนต์ที่เป็นตัวเลข

n->s=(1..n).sum{i->n%i?0:i*i}
!(s%Math.sqrt(s))

คำอธิบาย

(1..n) สร้างอาร์เรย์ของค่า 1 ถึง n

n%iเป็นเท็จ (เป็น 0 เป็นเท็จ) หากiแบ่งnส่วนที่เหลือ

n%i ? 0 : i*iคือผลรวมของกำลังสองของค่าiถ้ามันหารnส่วนที่เหลือ, มิฉะนั้นคือ 0

sum{ i-> n%i ? 0 : i*i } สรุปผลก่อนหน้านี้ในทุกรายการ iแถว

s%Math.sqrt(s)เป็นเท็จ (เป็น 0 เป็นเท็จ) หาก sqrt ของการsหารsโดยไม่เหลือ

!(s%Math.sqrt(s))ผลตอบแทนจากแลมบ์ดา ( returnโดยนัยในคำสั่งสุดท้าย) !falseเมื่อ sqrt ของการsหารsโดยไม่เหลือ

ลองออนไลน์!

Java 8, 75 70 ไบต์

n->{int s=0,i=0;for(;++i<=n;)s+=n%i<1?i*i:0;return Math.sqrt(s)%1==0;}

-5 ไบต์ขอบคุณที่@ archangel.mjj

ลองออนไลน์

คำอธิบาย:

n->{             // Method with integer parameter and boolean return-type
  int s=0,       //  Sum-integer, starting at 0
      i=0;       //  Divisor integer, starting at 0
  for(;++i<=n;)  //  Loop `i` in the range [1, n]
    s+=n%i<1?    //   If `n` is divisible by `i`:
        i*i      //    Increase the sum by the square of `i`
       :         //   Else:
        0;       //    Leave the sum the same by adding 0
  return Math.sqrt(s)%1==0;}
                 //  Return whether the sum `s` is a perfect square