Misalkan (Input)$n=42$

Maka pembagi adalah: 1, 2, 3, 6, 7, 14, 21, 42

Mengkuadratkan setiap pembagi: 1, 4, 9, 36, 49, 196, 441, 1764

Mengambil jumlah (menambahkan): 2500

Karena maka kami mengembalikan nilai kebenaran. Jika itu bukan kuadrat sempurna, kembalikan nilai falsy.$50\times 50=2500$

contoh:

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

Ini adalah kode-golf sehingga kode terpendek dalam byte untuk setiap bahasa menang

Terima kasih kepada @Arnauld karena menunjukkan urutannya: A046655

R , 39 37 byte

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

Cobalah online!

Menggunakan pendekatan "test if perfect square" klasik, mengambil bagian non-integral dari akar kuadrat S^.5%%1dan mengambil negasi logis dari itu, karena memetakan nol (kuadrat sempurna) ke TRUEdan bukan nol ke FALSE.

Terima kasih kepada Robert S karena telah menghemat beberapa byte!

JavaScript (ES7),  46 44  42 byte

Disimpan 1 byte berkat @Hedi

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

Cobalah online!

Berkomentar

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 byte

ÑnOŲ

Cobalah online!

Bagaimana?

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

Bahasa Pemrograman Shakespeare , 434 428 415 byte

,.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

Cobalah online!

-13 byte terima kasih kepada Jo King!

Keluaran 1untuk hasil benar, keluaran 0untuk hasil salah.

Python 2 , 55 byte

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

Cobalah online!

Neim , 5 byte

𝐅ᛦ𝐬q𝕚

Penjelasan:

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

Cobalah online!

C (gcc) , 67 63 60 59 byte

-1 byte, terima kasih kepada @JonathanFrech

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

Cobalah online!

Brachylog , 12 8 byte

f^₂ᵐ+~^₂

-4 Bytes berkat Fatelize karena saya tidak menyadari brachylog memiliki fungsi faktor

penjelasan

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

Cobalah online!

MathGolf , 5 4 byte

─²Σ°

Cobalah online!

Penjelasan

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

Sangat mirip dengan jawaban lain, dibandingkan dengan 05AB1E saya mendapatkan satu byte untuk operator "is perfect square" saya.

MATL , 9 byte

Z\UsX^tk=

Cobalah online!

Sesederhana itu

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 byte

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

Cobalah online!

Tampak panjang ...
-12 byte berkat mazzy

Melakukan persis apa yang tertulis di kaleng. Membawa rentang dari 1ke input $ndan mengalikan kuadrat $_*$_kali apakah itu pembagi atau tidak !($n%$_). Ini membuat pembagi sama dengan angka bukan nol dan pembagi tidak sama dengan nol. Kami kemudian mengambil jumlah dari mereka dengan akumulator kami $a. Selanjutnya, kita loop lagi dari 1atas ke $adan menarik angka-angka di mana |?{...}itu -eqkuadratkan ke $a. Yang tersisa di pipa dan output tersirat.

Menghasilkan bilangan bulat positif untuk kebenaran, dan tidak ada untuk falsey.

Japt , 11 9 7 byte

-2 byte dari @Giuseppe dan -2 dari @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

Cobalah online!

APL (Dyalog Unicode) , 18 byte

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

Cobalah online!

Lambda anonim Mengembalikan 1 untuk truey dan 0 untuk falsy (kasus uji di TIO sudah dipraih).

Shoutouts to @ H.PWiz selama 4 byte!

Bagaimana:

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 byte

Larutan:

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

Cobalah online!

Penjelasan:

{~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                                 / 

Catatan:

• -1 byte mengambil inspirasi dari PowerShell solusi
• -3 byte mengambil inspirasi dari solusi APL

Pari / GP , 23 byte

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

Cobalah online!

Matlab, 39 37 byte

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

Sayangnya, itu tidak berfungsi pada Oktaf (pada tio) jadi tidak ada tautan tio.

Catatan Seperti yang dikatakan @LuisMendo, divisors()milik Symbolic Toolbox.

Haskell , 78 64 53 byte

-14 byte terima kasih Ørjan Johansen . -11 byte berkat ovs .

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

Cobalah online!

Hei, sudah lama sejak saya ... menulis apa pun kode , sehingga Haskell dan golf saya mungkin agak berkarat. Saya lupa tipe numerik Haskell yang merepotkan. : P

Pyt , 7 byte

ð²ƩĐř²∈

Cobalah online!

Penjelasan

            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

ð²Ʃ√ĐƖ=

Cobalah online!

Penjelasan

            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%¬

Cobalah online!

Penjelasan

            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

Sekam , 6 byte

£İ□ṁ□Ḋ

Cobalah online!

Penjelasan

£İ□ṁ□Ḋ  -- 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,..

Jelly , 6 byte

ÆD²SƲ

Cobalah online! Atau lihat test-suite .

Bagaimana?

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

Proton , 41 byte

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

Cobalah online!

Pendekatan serupa dengan jawaban Python.

Mathematica, 32 byte

IntegerQ@Sqrt[2~DivisorSigma~#]&

Fungsi murni. Mengambil angka sebagai input dan mengembalikan Trueatau Falsesebagai output. Tidak sepenuhnya yakin apakah ada metode yang lebih pendek untuk memeriksa kuadrat sempurna.

Oktaf / MATLAB, 43 byte

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

Cobalah online!

Merah , 67 byte

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

Cobalah online!

Scala , 68 67 byte

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

Cobalah online!

Perl 6 , 34 byte

-1 byte terima kasih kepada nwellnhof

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

Cobalah online!

F #, 111 byte

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)

Cobalah online!

Jadi ddapatkan pembagi untuk semua angka antara 1 dan ninklusif. Dalam fungsi utama u, baris pertama menetapkan jumlah semua pembagi kuadrat m. Baris kedua mendapatkan pembagi untuk mdan menentukan apakah ada yang kuadrat sama m.

Perl 5, 47 byte

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

Mengembalikan 1 untuk true dan nothing for false.

Penjelasan:

$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.

Asyik , 47 byte

Seorang lambda menerima argumen numerik.

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

Penjelasan

(1..n) menciptakan larik nilai 1 hingga n

n%isalah (seperti 0 adalah salah) jika imembaginya ntanpa sisa

n%i ? 0 : i*iadalah jumlah kuadrat dari nilai ijika ia membagi ntanpa sisa, jika tidak adalah 0

sum{ i-> n%i ? 0 : i*i }menjumlahkan hasil sebelumnya di semua idalam array.

s%Math.sqrt(s)salah (seperti 0 adalah salah) jika sqrt dari smembagi stanpa sisa

!(s%Math.sqrt(s))kembali dari lambda ( returntersirat pada pernyataan terakhir) !falseketika sqrt dari smembagis tanpa sisa

Cobalah online!

Java 8, 75 70 byte

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

-5 byte terima kasih kepada @ archangel.mjj .

Cobalah online.

Penjelasan:

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