Negatif olmayan bir sayı verildiğinde , iki tam sayı karesinin toplamı olarak nifade etme yollarının sayısını verin ( OEIS A004018 ). Not olduğunu ve pozitif, negatif veya sıfır, ve sıralarının konularda olabilir. En az bayt kazanır.nn == a^2 + b^2ab

Örneğin, n=25verir 12çünkü 25olarak ifade edilebilir

(5)^2  + (0)^2
(4)^2  + (3)^2
(3)^2  + (4)^2
(0)^2  + (5)^2
(-3)^2 + (4)^2
(-4)^2 + (3)^2
(-5)^2 + (0)^2
(-4)^2 + (-3)^2
(-3)^2 + (-4)^2
(0)^2  + (-5)^2
(3)^2  + (-4)^2
(4)^2  + (-3)^2

İşte değerlere kadar n=25. Kodunuzun çalıştığına dikkat edin n=0.

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

İşte n=100liste olarak değerlerdir .

[1, 4, 4, 0, 4, 8, 0, 0, 4, 4, 8, 0, 0, 8, 0, 0, 4, 8, 4, 0, 8, 0, 0, 0, 0, 12, 8, 0, 0, 8, 0, 0, 4, 0, 8, 0, 4, 8, 0, 0, 8, 8, 0, 0, 0, 8, 0, 0, 0, 4, 12, 0, 8, 8, 0, 0, 0, 0, 8, 0, 0, 8, 0, 0, 4, 16, 0, 0, 8, 0, 0, 0, 4, 8, 8, 0, 0, 0, 0, 0, 8, 4, 8, 0, 0, 16, 0, 0, 0, 8, 8, 0, 0, 0, 0, 0, 0, 8, 4, 0, 12]

Eğlenceli gerçekler: Dizi, keyfi yüksek olan terimleri içerir ve çalışma ortalamasının sınırı π'dir.

Liderler Sıralaması:

    var QUESTION_ID=64812,OVERRIDE_USER=20260;function answersUrl(e){return"https://api.stackexchange.com/2.2/questions/64812/answers?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+ANSWER_FILTER}function commentUrl(e,s){return"https://api.stackexchange.com/2.2/answers/"+s.join(";")+"/comments?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+COMMENT_FILTER}function getAnswers(){jQuery.ajax({url:answersUrl(answer_page++),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){answers.push.apply(answers,e.items),answers_hash=[],answer_ids=[],e.items.forEach(function(e){e.comments=[];var s=+e.share_link.match(/\d+/);answer_ids.push(s),answers_hash[s]=e}),e.has_more||(more_answers=!1),comment_page=1,getComments()}})}function getComments(){jQuery.ajax({url:commentUrl(comment_page++,answer_ids),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){e.items.forEach(function(e){e.owner.user_id===OVERRIDE_USER&&answers_hash[e.post_id].comments.push(e)}),e.has_more?getComments():more_answers?getAnswers():process()}})}function getAuthorName(e){return e.owner.display_name}function process(){var e=[];answers.forEach(function(s){var r=s.body;s.comments.forEach(function(e){OVERRIDE_REG.test(e.body)&&(r="<h1>"+e.body.replace(OVERRIDE_REG,"")+"</h1>")});var a=r.match(SCORE_REG);a&&e.push({user:getAuthorName(s),size:+a[2],language:a[1],link:s.share_link})}),e.sort(function(e,s){var r=e.size,a=s.size;return r-a});var s={},r=1,a=null,n=1;e.forEach(function(e){e.size!=a&&(n=r),a=e.size,++r;var t=jQuery("#answer-template").html();t=t.replace("{{PLACE}}",n+".").replace("{{NAME}}",e.user).replace("{{LANGUAGE}}",e.language).replace("{{SIZE}}",e.size).replace("{{LINK}}",e.link),t=jQuery(t),jQuery("#answers").append(t);var o=e.language;/<a/.test(o)&&(o=jQuery(o).text()),s[o]=s[o]||{lang:e.language,user:e.user,size:e.size,link:e.link}});var t=[];for(var o in s)s.hasOwnProperty(o)&&t.push(s[o]);t.sort(function(e,s){return e.lang>s.lang?1:e.lang<s.lang?-1:0});for(var c=0;c<t.length;++c){var i=jQuery("#language-template").html(),o=t[c];i=i.replace("{{LANGUAGE}}",o.lang).replace("{{NAME}}",o.user).replace("{{SIZE}}",o.size).replace("{{LINK}}",o.link),i=jQuery(i),jQuery("#languages").append(i)}}var ANSWER_FILTER="!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe",COMMENT_FILTER="!)Q2B_A2kjfAiU78X(md6BoYk",answers=[],answers_hash,answer_ids,answer_page=1,more_answers=!0,comment_page;getAnswers();var SCORE_REG=/<h\d>\s*([^\n,]*[^\s,]),.*?(\d+)(?=[^\n\d<>]*(?:<(?:s>[^\n<>]*<\/s>|[^\n<>]+>)[^\n\d<>]*)*<\/h\d>)/,OVERRIDE_REG=/^Override\s*header:\s*/i;

    body{text-align:left!important}#answer-list,#language-list{padding:10px;width:290px;float:left}table thead{font-weight:700}table td{padding:5px}

    <script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script> <link rel="stylesheet" type="text/css" href="//cdn.sstatic.net/codegolf/all.css?v=83c949450c8b"> <div id="answer-list"> <h2>Leaderboard</h2> <table class="answer-list"> <thead> <tr><td></td><td>Author</td><td>Language</td><td>Size</td></tr></thead> <tbody id="answers"> </tbody> </table> </div><div id="language-list"> <h2>Winners by Language</h2> <table class="language-list"> <thead> <tr><td>Language</td><td>User</td><td>Score</td></tr></thead> <tbody id="languages"> </tbody> </table> </div><table style="display: none"> <tbody id="answer-template"> <tr><td>{{PLACE}}</td><td>{{NAME}}</td><td>{{LANGUAGE}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table> <table style="display: none"> <tbody id="language-template"> <tr><td>{{LANGUAGE}}</td><td>{{NAME}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table>

Python ( 59 57 56 bayt)

lambda n:0**n+sum((-(n%(x-~x)<1))**x*4for x in range(n))

Çevrimiçi demo

CJam cevabımda olduğu gibi, bu da Möbius inversiyonunu kullanıyor ve sözde quasilinearear zamanda çalışıyor.

Sayesinde SP3000 2 bayt tasarruf için ve feersum 1 için.

Mathematica, 13 bayt

Yerleşiklere izin verilirse, Mathematica'da nasıl yapılır.

2~SquaresR~#&

0 için <= n <= 100

2~SquaresR~# & /@ Range[0, 100]

{1, 4, 4, 0, 4, 8, 0, 0, 4, 4, 8, 0, 0, 8, 0, 0, 4, 8, 4, 0, 8, 0, 0, 0 , 12, 8, 0, 0, 8, 0, 0, 4, 0, 8, 0, 4, 8, 0, 0, 8, 8, 0, 0, 0, 0, 8, 0, 0, 4 , 12, 0, 8, 8, 0, 0, 0, 0, 8, 0, 0, 8, 0, 0, 4, 16, 0, 0, 8, 0, 0, 0, 4, 8, 8 , 0, 0, 0, 0, 0, 8, 4, 8, 0, 0, 16, 0, 0, 0, 8, 8, 0, 0, 0, 0, 0, 0, 8, 4, 0 , 12}

Python 2,44 bayt

f=lambda n,x=1:+(x>n)or(n%x<1)-f(n,x+2)/4<<2

Bu xsot en hemen hemen aynıdır solüsyon (Peter Taylor'ın dayanmaktadır çözümü ), ancak işaretler ele alışını basitleştirerek 8 bayt kaydeder.

Tam bir program için, fonksiyonun dışında bir maliyet ödemeden fonksiyonda 2 byte tasarruf sağlayabileceğimize dikkat edin:

f=lambda n,x=1:x>n or(n%x<1)-f(n,x+2)/4<<2
print+f(input())

Bu şekilde tam bir program için iki ek bayt:

n=input()
f=lambda x:x>n or(n%x<1)-f(x+2)/4<<2
print+f(1)

Çünkü n > 0çok okunaklı 40 baytlık bir çözüm var:

f=lambda n,x=1:n/x and(n%x<1)*4-f(n,x+2)

Pyth, 13 bayt

/sM^^R2}_QQ2Q

Test odası

/sM^^R2}_QQ2Q
                 Q = eval(input())
       }_QQ      Inclusive range from -Q to Q (all possible a and b)
    ^R2          Map to their squares
   ^       2     Form all pairs
 sM              Sum pairs
/           Q    Count occurances of Q

J, 16 bayt

+/@,@:=+&*:/~@i:

Bu monadik bir fiildir (başka bir deyişle, tekdüze bir işlev). Çevrimiçi deneyin veya tüm test senaryolarını geçtiğini görün .

açıklama

+/@,@:=+&*:/~@i:  Denote input by n
              i:  The array of integers from -n to n
           /~@    Take outer product wrt the following function:
       +           the sum of
        &*:        squares of both inputs
                  This results in a 2D array of a^2+b^2 for all a, b between -n and n
      =           Replace by 1 those entries that are equal to n, and others by 0
   ,@:            Flatten the binary matrix
+/@               Take its sum

Python 2, 69 55 53 52 bayt

f=lambda n,x=1:+(x>n)or(2-x%4)*(n%x<1)+f(n,x+2)/4<<2

Bu, Peter Taylor'ın mükemmel çözümüne dayanan özyinelemeli bir işlevdir .

Julia, 40 bayt

n->n>0?4sum(i->(n-i^2)^.5%1==0,1:n^.5):1

Ungolfed:

function f(n)
  if n==0
    return 1           # Handle special case of n=0
  else
    m=0                # Start the counter at zero
    for i=1:sqrt(n)    # Loop over the values (i) whose squares are
                       # less than n (except zero)
      k=sqrt(n-i^2)    # Find k such that n=k^2+i^2
      if k==floor(k)   # if k is an integer, we've found a pair
        m+=4           # Add one for each of k^2+i^2, (-k)^2+(-i)^2, and the other two
      end
    end
    return m           # Return the resulting count
  end
end

Döngünün içermediğine dikkat edin i==0, çünkü nbir kare olduğunda , zaten tarafından i=sqrt(n)eklenir ve bu form için yalnızca sekiz değil, dört ( 0^2+k^2, 0^2+(-k)^2, k^2+0^2, (-k)^2+0^2) vardır.

CJam, 25 23 bayt

Zri:R#Ym*{Rf-Yf#:+R=},,

Bu gerektiren bir teorik çözüm O (9 ^{, n} ) giriş için zaman ve bellek n .

Bir ekstra bayt pahasına - toplam 24 bayt için - karmaşıklığı O (n ² ) seviyesine indirebiliriz :

ri:R)Y*Ym*{Rf-Yf#:+R=},,

Çevrimiçi deneyin!

Nasıl çalışır

ya

Z                  Push 3.
 ri:R              Read an integer from STDIN and save it in R.
     #             Compute 3**R.

veya

ri:R               Read an integer from STDIN and save it in R.
    )Y*            Add 1 and multiply by 2.

Sonra

Ym*                Take the second Cartesian power, i.e., compute all pairs.
   {          },   Filter the pairs:
    Rf-              Subtract R from each.
       Yf#           Square the differences.
          :+         Add the squares.
            R=       Compare with R.
                   If = pushed 1, keep the pair.
                ,  Count the kept pairs.

CJam ( 25 24 22 21 bayt)

{:X!X{X\2*)%!4*\-}/z}

Çevrimiçi demo

Bu, sözde quasilinearear * süresinde çalışır ve OEIS’ten gelen ifadeyi kullanır.

Moebius dönüşümü 4. dönem dizisidir [4, 0, -4, 0, ...]. - Michael Somos, 17 Eylül 2007

Girdi 0açık bir şekilde özel bir durum (Möbius tranforms ve yok ediciler birlikte iyi gitmiyor), ancak sadece bir karaktere mal oldu.

* Sözde - çünkü girişin değerinde değil, girişin değerinde kuasilindir; quasi Theta(n)sırasıyla büyüklükteki tamsayılar üzerinde işlem yaptığı için n; Bir b-bit mod işlemi b lg bzaman almalıdır , bu yüzden genel olarak bu Theta(n lg n lg lg n)zaman alır .

Japt , 42 37 33 bayt

Japt kısaltılmış versiyonudur Ja vaScri nk . yorumlayıcı

V=Un oU+1;Vr@X+(Vf_p2 +Y*Y¥U)l ,0

Nasıl çalışır

           // Implicit: U = input number
V=Un oU+1  // Set variable V to range(-U, U+1). Ends up like [-U,-U+1,...,U-1,U]
Vr@    ,0  // Reduce each item Y in V with this function, starting at 0:
X+(     l  //  Return the previous value X + the length of:
Vf_p2      //   V filtered by items Z where Z*Z
+Y*Y==U)   //    + Y*Y equals U.
           // This ends up as the combined length of all fitting pairs of squares.
           // Implicit: return last expression

Belki daha iyi bir teknik var; öneri bekliyoruz.

Python 3, 68 61 60 bayt

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

İki iç içe liste kavrama kullanmak çok pahalıdır. Bunun yerine, bu, yarıçap sqrt (n) çemberindeki her iki koordinatın da tamsayı olup olmadığını kontrol eder.

Peter Taylor bunu Moebius-inversiyon tabanlı bir yaklaşımla yendi .

Octave, 28 bayt

@(n)nnz((a=(-n:n).^2)'+a==n)

Haskell, 42 bayt

f n|q<-[-n..n]=sum[1|a<-q,b<-q,a*a+b*b==n]

Kullanım exapmle:

*Main> map f [0..25]
[1,4,4,0,4,8,0,0,4,4,8,0,0,8,0,0,4,8,4,0,8,0,0,0,0,12]
*Main> 

Julia, 89 79 63 bayt

g(x)=cos(π*x^.5)^2÷1
a(n)=(n==0)+4sum([g(i)g(n-i)for i=1:n])

Bu abir tamsayı kabul eden ve bir şamandıra döndüren adlandırılmış bir işlevdir . Bir yardımcı fonksiyon çağırır g.

Ungolfed:

function g(x::Integer)
    floor(cos(π*sqrt(x))^2)
end

function a(n::Integer)
    (n == 0) + 4*sum([g(i)*g(n-i) for i=1:n])
end

Buradaki yaklaşım Wesley Ivan Hurt'un OEIS'te listelenen formülünü basitleştiriyor. Sadeleştirme, bu cevabın 26 baytını tıraş eden aynı kişi olan Glen O tarafından bulundu!

Pyth, 16 15 bayt

lfqQs^R2T^}_QQ2

Pyth Compiler'da çevrimiçi olarak deneyin .

Nasıl çalışır

lfqQs^R2T^}_QQ2

          }_QQ   Compute the inclusive range from -Q to Q (input).
         ^    2  Take the second Cartesian power, i.e., compute all pairs.
 f               Filter; for each T in the list of pairs:
     ^R2T          Compute the squares of T's elements.
    s              Add the squares.
  qQ               Compare the sum with Q.
                 If q returned True, keep T.
l                Count the kept pairs.

TI-BASIC, 23 bayt

sum(seq(Σ(X²+Y²=Ans,X,-Ans,Ans),Y,-Ans,Ans

Oldukça basit. Σ(toplamıdır.

Garip bir şekilde, bir sum(seq(sum(seq(fırlatır ERR:ILLEGAL NESTve yapar Σ(Σ(, ama sum(seq(Σ(iyidir. Σ(İçine yakın bir pariteyi kurtarmak için koymayı seçtim .

JavaScript (ES6), 66 60 bayt

n=>eval("for(r=0,a=~n;a++<n;)for(b=~n;b++<n;)r+=a*a+b*b==n")

@ Edc65 sayesinde 6 bayt kurtarıldı !

açıklama

n=>eval(`              // use eval to allow for loops in an unparenthesised arrow function
  for(r=0,             // r = number of pairs
    a=~n;a++<n;        // a = first number to square
  )
      for(b=~n;b++<n;) // b = second number to square
        r+=a*a+b*b==n  // add one to the result if a^2 + b^2 == n
                       // implicit: return r
`)

Ölçek

n = <input type="number" oninput='result.innerHTML=(

n=>eval("for(r=0,a=~n;a++<n;)for(b=~n;b++<n;)r+=a*a+b*b==n")

)(+this.value)' /><pre id="result"></pre>

Python 3, 93 62 69 bayt

İtertools çalışmıyordu, bu yüzden tekrar iki aralık kullandım, ancak baytları kurtarmak için menzili dışarı çıkardım.

Düzenleme: Önceki kod aslında işe yaramadı, çünkü n tanımından önce n aralığını tanımladım.

lambda n:sum(i*i+j*j==n for i in range(-n,n+1)for j in range(-n,n+1))

APL, 23 20 19 bayt

{+/⍵=∊∘.+⍨×⍨0,,⍨⍳⍵}

Açıklama:

{+/⍵=∊∘.+⍨×⍨0,,⍨⍳⍵}        Monadic function:
                 ⍳⍵          1 2 3 ... ⍵
               ,⍨            Duplicate
             0,              Concatenate to 0
          ×⍨                 Square everything
      ∘.+⍨                   Make an addition table
     ∊                       Flatten
   ⍵=                        1s where equal to the input
 +/                          Sum up the 1s

APL'nin J'nin i:(-n - n arasındaki sayılar) işlevine sahip olmaması gerçeği dışında , bu J cevabı gibi çalışır.

Bir treni kullanamayız, çünkü üç byte'a mal olacak -\⍳2×⍵şekilde ayrıştırmamak (-\) ⍳ (2×⍵); benzer şekilde diğer üstteki çiftlerle. Tüm bu parantezler normal işlevi kısaltır.

Burada dene . Ortalama çıktısı 1tüm değerlerin eşleştiği anlamına gelir.

Matlab 41 bayt

Önceki cevaplardan daha küçük

@(n)nnz(~mod(sqrt(n-(1:n^.5).^2),1))*4+~n

Esasen Agawa001'in güç ve sqrt ile verdiği cevap değiştirildi

Şeker , 17 14 bayt

Giriş başlangıçta yığının üzerine itildi

~TbAT1C(sWs+Aeh)Z

~T0C(sWs+Aeh)Z

peekA    # copy arg from stack to register A
range2   # create double sided range on stack, -A, 1-A, ... A-1, A
digit0   # prefix argument to 'cart', 
cart     # cartesian product of current stack(0), and other stack(0)
while    # while stack not empty
  sqr    # pop and square and push
  swap   # swap two stack elements
  sqr    # pop and square and push
  add    # pop and pop and add and push
  pushA  # push original argument
  equal  # equality test 0/1
  popAddZ  # Z := Z + pop
endwhile
pushZ    # push Z onto stack, will be output to stdout on termination

CJam, 28

qi_mF{3a>},{~)\4%2-&}%4+:*1?

Çok kısa değil, ama verimli. Örneğin, 15625 için sonuç anında 28'dir. OEIS'ten faktoring temelli formülü kullanır.
Çevrimiçi deneyin

Açıklama:

qi       read input and convert to integer
_        make a copy (will be used to handle the 0 case at the end)
mF       factorize into [prime exponent] pairs
{…},     filter the array of pairs
  3a>    with the condition that the pair is greater than [3]
          which means the prime factor must be ⩾3
{…}%     transform each pair as follows:
  ~      dump the prime factor and exponent onto the stack
  )      increment the exponent
  \      swap with the prime
  4%     get the remainder mod 4 (it will be 1 or 3)
  2-     subtract 2 (resulting in -1 or 1)
  &      bitwise AND with the incremented exponent (see below)
4+       append a 4 to the array
:*       multiply all
1?       if the input was 0, use 1, else use the above result

Hesaplama ile ilgili bazı detaylar:

• üssü 1 mod 4 ise, kod hesaplar (exponent + 1) & -1;exponent + 1
• üssü 3 mod 4 ise, kod hesaplar (exponent + 1) & 1; üs, üstelik tuhaf ise 0 ve eşitse 1

Tüm bu değerler birlikte ve 4 ile çarpılarak tam olarak OEIS formülüdür.

Python 2,68 bayt

def x(n):r=range(-n,n+1);print sum(a*a+b*b==n for a in r for b in r)

x()N sayısını alan bir işlevi tanımlar .

Çevrimiçi deneyin. http://ideone.com/aRoxGF

Pyth, 41 35 33 30 27 bayt

Çevrimiçi deneyin.

Düzenleme: isaacg sayesinde aldım mve *Fçalışıyorum! EVET!

?Q*F+4m.&tt%ed4hhdr-PQ2 8 1
                                (implicit) Q = input()
?Q                              If Q != 0
      m                           Map to d (exponent, prime) from ...
                  r-PQ2 8         run-length-encoded(PQ with 2's removed)
       .&                           Bitwise and
           %ed4                       d[-1] % 4
         tt                           -2
                hd                  with d[0]
               h                      +1
    +4                            Append 4 to the resulting array
  *F                              Then multiply it all together
                          1     Else 1

Düzenleme: daha fazla bayt tasarrufu için bit yönünde ve geri yerleştirin! Ayrıca tüm "Eski" şeyleri kaldırdım. Dağınık olmaya başladı.

Sayesinde aditsu ve ve onun CJam çözüm maltysen ve onun ipuçları (Bir gün alacak m*Fdişe. Bir gün ...)

J4Vr-PQ2 8=J*J.&tt%eN4hhN;?QJ1
                                (implicit) Q=input()
J4                              J=4
    -PQ2                        Remove all 2's from the prime factorization of Q
   r     8                      run-length encode (exponent, prime factor)
  V                      ;      For N in range( the above ):
          =J*J                      J = J * ...
                tt%eN4                N[-1] mod 4 -2 
                      hhN             (exponent + 1)
              .&                    bitwise and
                          ?QJ1  if Q != 0 print(J) else print(1)

Bunu not et,

• asal 1 mod 4 -1 & (exponent + 1)ise,exponent + 1

• asal 3 mod 4 ise ancak biz almak 1 & (exponent + 1)olan 0üs tekse ve 1eğer hatta

Hepsini bir arada çarpın (başlangıçta 4 kez) ve girdilerimize ekleyen iki karenin toplam sayısını elde ederiz.

Python, 57 bayt

Güzel meydan okuma. Maalesef şu anda bundan daha kısa sürmüyorum.

lambda n:0**n+sum(2-d%4for d in range(1,n+1)if d%2>n%d)*4

PARI / GP, 34 28 bayt

Üretme işlevlerini kullanma:

Mitch Schwartz sayesinde 6 bayt kaydedildi .

n->sum(i=-n,n,x^i^2)^2\x^n%x

Dahili, 33 bayt ( Mitch Schwartz sayesinde 1 bayt kaydedildi .):

n->if(n,2*qfrep(matid(2),n)[n],1)

qfrep (q, B, {flag = 0}): integral ve kesin kuadratik form q için 1'den B'ye norm vektörlerinin sayısının (yarısı) vektörü. Bayrak 1 ise, 1 ila 2B arasındaki norm çiftlerini sayın.

Matlab, 72 bayt

n=input('');m=fix(sqrt(n));m=(-m:m).^2;disp(nnz(bsxfun(@plus,m,m')==n))

Matlab, 63 50 bayt

@(y)nnz(~mod(sqrt(y-power((1:sqrt(y)),2)),1))*4+~y

• Bu aynı haklı kodu yener, bu yüzden şunu koydum: D.

• Program pozitif tamsayı çözümlerini bulur ve ardından negatif olanları kapsayacak şekilde 4 ile çarpar.

• 25 ilk test durumunun tümünü gerçekleştirebilir

  for i=1:25 ans(i)
  end
  
     1
  
     4
  
     4
  
     0
  
     4
  
     8
  
     0
  
     0
  
     4
  
     4
  
     8
  
     0
  
     0
  
     8
  
     0
  
     0
  
     4
  
     8
  
     4
  
     0
  
     8
  
     0
  
     0
  
     0
  
     0
  
     12
  

JavaScript, 89 bayt

n=prompt()
p=Math.pow
for (x=c=(+n?0:1);x<=n;x++)if(x&&p(n-p(x,2),.5)%1===0)c+=4
alert(c)

G / Ç satırlarını kaldırsam bile bunun en kısa JavaScript yanıtı olmadığını biliyorum, ancak birkaç saniye içinde milyonlarca sonuç veren en iyi performans gösteren JS yanıtı olduğunu düşünüyorum (yaklaşık 10 milyon dolar aldı. dakika).

PHP, 70 bayt, rakip değil

for($x=-1;$x++<=$n=$argv[1];)$s+=(-($n%($x-~$x)<1))**$x*4;echo$n?$s:1;

Python cevaplarından birinden çalınan algoritma ... Hangisini unuttum; Ben göndermeden önce en azından ne olduğunu kısmen anlamak istedim.