görev

Senin görevin küp ile bir yapı inşa etmektir . Küplerin hacmi aşağıdaki sırayı izler (alt -> üst) $n$

$n^3, (n-1)^3, (n-2)^3,...,1^3$

giriş

Yapının toplam hacmi ( ). $V$

çıktı

değeri ( ), yani: Toplam küp sayısı. $n$

$V = n^3 + (n-1)^3 + .... + 1^3$

notlar

Giriş her zaman bir tamsayı olacaktır.
Bazen diziyi takip etmek mümkün değildir, yani: , için belirli bir değeri temsil etmez . Bu durumda -1 döndürür veya seçtiğiniz bir yanlış değer (tutarlılık gerekir). $V$ $n$
Bu kod golf her dil için bayt olarak en kısa cevap kazanır.
Yukarıda belirtilen nedenden dolayı hiçbir cevap kabul edilmeyecektir.

istekler

Bu, sitedeki ilk zorluğumdur, bu yüzden bana katlan ve yaptığım hataları affet (ve bana anlat).
Kodunuzun test edilebilmesi için lütfen bir bağlantı sağlayın.
Yapabiliyorsanız, lütfen kodunuzun nasıl çalıştığına dair bir açıklama yazın, böylece diğerleri çalışmanızı anlayabilir ve takdir edebilir.

örnekler

input  : 4183059834009
output : 2022

input  : 2391239120391902
output : -1

input  : 40539911473216
output : 3568

Bu bağlantı için @Arnauld'a teşekkürler:

Çok hoş değil.

Orignial bağlantısı : Link

code-golf math

— Herhangi bir kullanıcı
kaynak

2

Bu güzel yazılmış bir ilk meydan okuma. Ancak, birkaç test örneği eklemenizi şiddetle tavsiye ederim.

— Arnauld

1

@Arnauld, tamam şu anda üzerinde çalışıyor ve teşekkürler :)

— Any3nymous kullanıcı

OEIS A000537

— JayCe

Girişin nasıl çıktı 4183059834009verdiğini açıklayabilir misiniz 2022?

— DimChtz

2

@ SuperJedi224 AFAIK, varsayılan kural "dilinizin doğal tamsayı türüne sahip ne olursa olsun", elbette bir boşluk için küçük bir aralık kullanmadan - en azından cevabımda varsaydığım şey bu: o

— Felix Palmen

19

JavaScript (ES7), 31 bayt

Doğrudan formül. 0Çözüm yoksa döndürür .

v=>(r=(1+8*v**.5)**.5)%1?0:r>>1

Çevrimiçi deneyin!

Nasıl?

Toplam ilk küpleri ile verilir: $S_n$ $n$

S_{n} = {(\frac{n (n + 1)}{2})}^{2} = {(\frac{n^{2} + n}{2})}^{2}

$S_n = \left(\frac{n(n+1)}{2}\right)^2 = \left(\frac{n^2+n}{2}\right)^2$

(Bu A000537'dir . Bu formül indüksiyonla kolayca kanıtlanabilir . İşte güzel bir grafik gösterimi .) $S_5$

Karşılıklı olarak, eğer ilk küpün toplamı ise , aşağıdaki denklem pozitif, tamsayı bir çözümü kabul eder: $v$ $x$

{(\frac{x^{2} + x}{2})}^{2} = v

$\left(\frac{x^2+x}{2}\right)^2=v$

Çünkü pozitiftir bu kurşunları: $(x^2+x)/2$

x^{2} + x - 2 \sqrt{v} = 0

$x^2+x-2\sqrt{v}=0$

Olumlu çözümü kim tarafından verilir:

Δ = 1 + 8 \sqrt{v} x = \frac{- 1 + \sqrt{Δ}}{2}

$\Delta=1+8\sqrt{v}\\ x=\frac{-1+\sqrt{\Delta}}{2}$

Eğer bir tamsayıdır, tek olması garanti edilir, çünkükendisi tuhaftır. Bu nedenle, çözüm şu şekilde ifade edilebilir: $r=\sqrt{\Delta}$ $\Delta$

x = ⌊ \frac{r}{2} ⌋

$x=\left\lfloor\frac{r}{2}\right\rfloor$

Yorumlananlar

v =>                    // v = input
  ( r =                 //
    (1 + 8 * v ** .5)   // delta = 1 + 8.sqrt(v)
    ** .5               // r = sqrt(delta)
  ) % 1 ?               // if r is not an integer:
    0                   //   return 0
  :                     // else:
    r >> 1              //   return floor(r / 2)

Özyinelemeli sürüm, 36 35 bayt

NaNÇözüm yoksa döndürür .

f=(v,k=1)=>v>0?1+f(v-k**3,k+1):0/!v

Çevrimiçi deneyin!

Yorumlananlar

f = (v,                   // v = input
        k = 1) =>         // k = current value to cube
  v > 0 ?                 // if v is still positive:
    1 +                   //   add 1 to the final result
    f(                    //   do a recursive call with:
      v - k ** 3,         //     the current cube subtracted from v
      k + 1               //     the next value to cube
    )                     //   end of recursive call
  :                       // else:
    0 / !v                //   add either 0/1 = 0 if v is zero, or 0/0 = NaN if v is
                          //   non-zero (i.e. negative); NaN will propagate all the
                          //   way to the final output

— Arnauld
kaynak

Merhaba, bir cevap (kendi soruma) bağlantısı oluşturdum , ilk yayınladığınızdan beri sormak istedim aynı dilde iki kez yayınlamak uygun mu?

— Any3nymous kullanıcı

@ Any3nymoususer Aynı dilde birkaç cevap göndermek son derece iyi. Kendi meydan okumasını cevaplamak birkaç gün önce yapılmamalıdır, ancak sanırım şimdi sorun değil.

— Arnauld

Oh, bu durumda bana söylemek için thnx :)

— Any3nymous kullanıcı

7

05AB1E , 6 bayt

ÝÝOnIk

Çevrimiçi deneyin!

Bağlantı noktası Jonathan'ın Jelly cevabı. [0 ... n] kümülatif toplamını alın, her birinin karesini alın ve V indeksini bulun .

05AB1E , 7 bayt

ÝÝ3mOIk

Çevrimiçi deneyin!

Nasıl çalışır

ÝÝ3mOIk – Full program.
ÝÝ      – Yield [[0], [0, 1], [0, 1, 2], ... [0, 1, 2, ... V]].
  3mO   – Raise to the 3rd power.
     Ik – And find the index of the input therein. Outputs -1 if not found.

8 baytlık bir alternatif: ÝÝÅΔ3mOQ.

— Bay Xcoder
kaynak

Hiçbir fikrim neden ikisine de sahip 3mOve nOmuhtemelen de söz ... çalışmalarını -1 falsy değerdir.

— Sihirli Ahtapot Urn

6

R , 42 40 bayt

Giuseppe sayesinde -2 bayt

function(v,n=((1+8*v^.5)^.5-1)/2)n*!n%%1

Çevrimiçi deneyin!

Arnauld Limanı'nın JavaScript yanıtı . Ayrıca bir çözüm yoksa 0 döndürür.

— duckmayr
kaynak

İyi yakalama @Giuseppe!

— duckmayr

1

ayın dili olarak R'ye oy verin!

— Giuseppe

@Giuseppe bitti!

— duckmayr

5

Jöle , 5 4 bayt

RÄ²i

Monadik bir bağlantı 0mümkün değilse verim verir .

Çevrimiçi deneyin! Test senaryoları için çok yetersiz! (O (V) boşluk: p)

Burada , V'yi küp yapmak için 8 baytlık bir sürüm var, bunun yerine O (V ^ (1/3)). Bu 8 baytlık sürümü burada bir test takımı

Nasıl?

Σ_{ben = 1}^{ben = n} {ben}^{3} = {(Σ_{ben = 1}^{ben = n} ben)}^{2}

$\sum_{i=1}^{i=n}i^3=\left(\sum_{i=1}^{i=n}i\right)^2$

RÄ²i - Link: integer, V
R    - range of v -> [1,2,3,...,V]
 Ä   - cumulative sums -> [1,3,6,...,(1+2+3+...+V)]
  ²  - square -> [1,9,36,...,(1+2+3++...+V)²] ( =[1³,1³+2³,1³+2³+3³,...,(1³+2³+3³+...+V³)] )
   i - first 1-based index of v? (0 if not found)

— Jonathan Allan
kaynak

Bu geçerli mi? test durumlarında gösterilen girdileri işleyemediği için? (Herhangi bir fikrim yok)

— Any3nymous kullanıcı

1

Bu geçerlidir, sadece bu test senaryoları için bir bellek hatası veren aralıktır. Gibi daha küçük değerler deneyin36

— Sn Xcoder

1

@ FiveCrayFish973 evet, kod golfde bayt sayısı için kullanılabilirlik / verimlilik / vb. Feda etmek oldukça normaldir (spesifikasyon bazı sınırları zorlamadığı sürece). Test durumlarınız için çalışan 9 baytlık sürüme bakın.

— Jonathan Allan

@JonathanAllan harika, bu topluluğun kurallarının ne önerdiğinin farkında değildim. Geçerliyse geçerlidir. Şerefe

— Any3nymous kullanıcı

Çok kötü Ä²idavranıyor ²⁼( Ịbaşka bir deyişle).

— Outgolfer Erik

4

İksir , 53 bayt

&Enum.find_index 0..&1,fn n->&1*4==n*n*(n+1)*(n+1)end

Çevrimiçi deneyin!

Bağlantı noktası Jonathan'ın Jelly cevabı.

İksir , 74 bayt

fn v->Enum.find_index 0..v,&v==Enum.sum Enum.map(0..&1,fn u->u*u*u end)end

Çevrimiçi deneyin!

Kesinlikle alt optimal. Ama ben sadece bir İksir acemi oldum! :) öğesinin nil"geçersiz" değerlerini döndürür V.

— Bay Xcoder
kaynak

3

Japt, 7 bayt

o³å+ bU

Dene

açıklama

            :Implicit input of integer U
o           :Range [0,U)
 ³          :Cube each
  å+        :Cumulatively reduce by addition
     bU     :0-based index of U

Alternatif

Çõ³xÃbU

Dene

— kaba tüylü
kaynak

3

Cubix , 27 bayt (veya hacim 27?)

Bu dil için doğru yer gibi görünüyor.

I@.1OW30pWpP<s)s;;q\.>s-.?/

Çevrimiçi deneyin!

Bu, aşağıdaki gibi bir 3x3x3 küp üzerine sarılır

      I @ .
      1 O W
      3 0 p
W p P < s ) s ; ; q \ .
> s - . ? / . . . . . .
. . . . . . . . . . . .
      . . .
      . . .
      . . .

Koşmasını izle

Artan küpleri girdiden uzaklaştırarak kaba kuvvetler oluşturur. nSıfırla sonuçlanırsa, aksi takdirde negatif sonuç varsa çıktı alın , 0 basın ve çıkın.

— MickyT
kaynak

2

Perl 6 , 30 29 26 bayt

Jo King sayesinde -4 bayt

{first :k,.sqrt,[\+] ^1e4}

Çevrimiçi deneyin!

N <10000 için kaba kuvvet çözümü. Jonathan Allan'ın cevabındaki denklemi kullanır. 37 Daha büyük n için 36 bayt çözüm ( Jo King sayesinde -1 bayt ):

{!.[*-1]&&$_-2}o{{$_,*-$++³...1>*}}

Çevrimiçi deneyin!

FalseÇözüm yoksa döndürür .

açıklama

               o  # Combination of two anonymous Blocks
                {                 }  # 1st Block
                 {               }   # Reset anonymous state variable $
                  $_,*-$++³...1>*    # Sequence n,n,n-1³,n-1³-2³,... while positive
{             }  # 2nd Block
 !.[*-1]&&       # Return False if last element is non-zero
          $_-2   # Return length of sequence minus two otherwise

— nwellnhof
kaynak

Kaba kuvvet 0..$_için, daha büyük olanlarda zaman aşımına uğramış olsa bile, tüm sayılar için geçerli olabilirsiniz . Normal golf için, kaldırabilirsiniz .birincisinden ve ikinciye değiştirmek 0>=*için1>*

— Jo Kral

26 bayt

— Jo King

2

JavaScript (Node.js) , 28 bayt

a=>a**.5%1?0:(2*a**.5)**.5|0

Çevrimiçi deneyin!

Bu benim kendi sorum ve her şeyin olduğunu biliyorum, ama daha iyi bir cevabım vardı (bu dil için) o zaman mevcut, bu yüzden gönderdim. Umarım sorun olmaz

— Herhangi bir kullanıcı
kaynak

1

APL (Dyalog) , 18 bayt

{o×⍵≥o←⍵⍳⍨+\3*⍨⍳⍵}

Çevrimiçi deneyin!

— Uriel
kaynak

1

Matlab, 27 bayt

@(v)find(cumsum(1:v).^2==v)

nVarsa veya boş bir matrisi döndürür .

Nasıl çalışır

            1:v            % Creates a 1xV matrix with values [1..V]
     cumsum(   )           % Cumulative sum
                .^2        % Power of 2 for each matrix element
                   ==v     % Returns a 1xV matrix with ones where equal to V
find(                 )    % Returns a base-1 index of the first non-zero element

Çevrimiçi deneyin!

Notv Bellek sınırlamaları nedeniyle büyük ölçüde başarısız olur .

— DimChtz
kaynak

1

Python 3 , 60 bayt

lambda V:[*[(n*-~n/2)**2for n in range(V+1)],V].index(V)%-~V

Çevrimiçi deneyin!

-6 Bay Xcoder'a teşekkürler .

$n$ $V$

lambda V:[(n*-~n/2)**2for n in range(V+1)].index(V)

Çevrimiçi deneyin!

— Outgolfer Erik
kaynak

1

Perl 6 , 33 bayt

{$!+>1 if ($!=sqrt 1+8*.sqrt)%%1}

Çevrimiçi deneyin!

Bu Arnauld'un yöntemini kullanır . Sayı geçerli değilse Boş bir nesne döndürür .

— Jo King
kaynak

1

dc , 19 bayt

4*dvvdddk*+d*-0r^K*

Girdi ve çıktı yığından gelir, çözüm yoksa 0 döndürür.

Çevrimiçi deneyin!

açıklama

Bir çözüm n varsa, giriş olur ((n^2+n)^2)/4. Biz bir deneme çözümü hesaplarız Yani n=sqrt(sqrt(4*input))karekök için dc varsayılan 0 ondalık basamak hassasiyet kullanarak, daha sonra karşılaştırmak (n^2+n)^2için 4*inputaslında bir çözüm olup olmadığını görmek için.

4*dvv         Calculate a trial solution n (making a copy of 4*input for later use)
dddk          Store the trial solution in the precision and make a couple copies of it
*+d*          Calculate (n^2+n)^2
-             Subtract from our saved copy of 4*input - now we have 0 iff n is a solution
0r^           Raise 0 to that power - we now have 1 if n is a solution, 0 if not
K*            Multiply by our saved trial solution

Sondan bir önceki çizgi, 0^x=0tüm sıfır olmayanlar için x(hatta negatif x!) Dc'ye açık olduğu gerçeğine dayanmaktadır 0^0=1.

— Sophia Lechner
kaynak

1

Python 3 , 53 48 bayt

f=lambda V,n=1:V>0and f(V-n**3,n+1)or(not V)*n-1

Çevrimiçi deneyin!

Jo King'den -3 bayt

İade -1hiçbir cevap.

Yalnızca n=997varsayılan özyineleme sınırlarıyla çalışır.

Sıfırdan (başarı, kaldırılan küplerin dönüş sayısı) veya negatif bir sayıya (yanıt yok) gelinceye kadar hacimden daha büyük ve daha büyük küpleri tekrar tekrar alır.

Açıklama:

f=lambda V,n=1: # f is a recursive lambda taking the volume and the cube size (defaulting to 1)

               V>0and               # if the volume is positive
                      f(V-n**3,n+1) # then we are not to the right cube size yet, try again with n+1, removing the volume of the nth cube

                                   or # if V is not positive
                                     (not V)*n-1
                         # case V == 0:
                         # (not V)*n == n; return n-1, the number of cubes
                         # case V < 0:
                         # (not V)*n == 0; return -1, no answer

— pizzapants184
kaynak

and/orveya listeler genellikle daha kısadır if/else. 50 bayt

— Jo King

@JoKing Teşekkürler! İki bayt daha aldım.

— pizzapants184

not V=> V==0veyaV>-1

— Jo King

0

gvm (taahhüt 2612106 ) bayt kodu, 70 59 bayt

(İki kez çarpmak için kodu yazmak yerine bir döngüde çarparak -11 bayt)

HexDump:

> hexdump -C cubes.bin
00000000  e1 0a 00 10 00 1a 03 d3  8a 00 f6 2a fe 25 c8 d3  |...........*.%..|
00000010  20 02 2a 04 0a 01 1a 02  00 00 20 08 4a 01 fc 03  | .*....... .J...|
00000020  d1 6a 02 52 02 cb f8 f4  82 04 f4 e8 d1 6a 03 0a  |.j.R.........j..|
00000030  03 fc d5 a8 ff c0 1a 00  a2 00 c0                 |...........|
0000003b

Test çalıştırmaları:

> echo 0 | ./gvm cubes.bin
0
> echo 1 | ./gvm cubes.bin
1
> echo 2 | ./gvm cubes.bin
-1
> echo 8 | ./gvm cubes.bin
-1
> echo 9 | ./gvm cubes.bin
2
> echo 224 | ./gvm cubes.bin
-1
> echo 225 | ./gvm cubes.bin
5

Gerçekten düşük bir puan değil, sadece gvmburada test için bu güzel soruyu kullanarak ;) Taahhüt elbette sorudan daha eski. Not böylece sadece doğal işaretsiz sayı aralığını işleme bazı kod kullanarak, bu 8bit sanal makinedir 0-255söz olmaz eser verilen test durumları.

Manuel olarak monte edilir:

0100  e1         rud                     ; read unsigned decimal
0101  0a 00      sta     $00             ; store to $00 (target sum to reach)
0103  10 00      ldx     #$00            ; start searching with n = #0
0105  1a 03      stx     $03             ; store to $03 (current cube sum)
0107  d3         txa                     ; X to A
                   loop:
0108  8a 00      cmp     $00             ; compare with target sum
010a  f6 2a      beq     result          ; equal -> print result
010c  fe 25      bcs     error           ; larger -> no solution, print -1
010e  c8         inx                     ; increment n
010f  d3         txa                     ; as first factor for power
0110  20 02      ldy     #$02            ; multiply #02 times for ...
0112  2a 04      sty     $04             ; ... power (count in $04)
                   ploop:
0114  0a 01      sta     $01             ; store first factor to $01 ...
0116  1a 02      stx     $02             ; ... and second to $02 for multiplying
0118  00 00      lda     #$00            ; init product to #0
011a  20 08      ldy     #$08            ; loop over 8 bits
                   mloop1:
011c  4a 01      lsr     $01             ; shift right first factor
011e  fc 03      bcc     noadd1          ; shifted bit 0 -> skip adding
0120  d1         clc                     ; 
0121  6a 02      adc     $02             ; add second factor to product
                   noadd1:
0123  52 02      asl     $02             ; shift left second factor
0125  cb         dey                     ; next bit
0126  f8 f4      bpl     mloop1          ; more bits -> repeat
0128  82 04      dec     $04             ; dec "multiply counter" for power
012a  f4 e8      bne     ploop           ; not 0 yet -> multiply again
012c  d1         clc
012d  6a 03      adc     $03             ; add power to ...
012f  0a 03      sta     $03             ; ... current cube sum
0131  fc d5      bcc     loop            ; repeat unless adding overflowed
                   error:
0133  a8 ff      wsd     #$ff            ; write signed #$ff (-1)
0135  c0         hlt                     ; 
                   result:
0136  1a 00      stx     $00             ; store current n to $00
0138  a2 00      wud     $00             ; write $00 as unsigned decimal
013a  c0         hlt

Düzenle : Sadece bir hata düzeltildi içinde gvm; Bu düzeltme olmadan, metin modundagvm ikili programları okumaya çalışabilir , bu da kırılabilir (yukarıdaki kod herhangi bir 0xdbayt içermez, bu nedenle bu düzeltme olmadan pencerelerde kırılmaz).

— Felix Palmen
kaynak

0

K (ok) , 21 bayt

{(,_r%2)@1!r:%1+8*%x}

Çevrimiçi deneyin!

Arnauld Limanı'nın JS cevabı .

Nasıl:

{(,_r%2)@1!r:%1+8*%x} # Main function, argument x
             %1+8*%x  # sqrt(1+(8*(sqrt(x)))
           r:         # Assign to r
         1!           # r modulo 1
        @             # index the list:
 (,_r%2)              # enlist (,) the floor (_) of r modulo 2.

işlev (_r%2)iff değerini döndürür 1!r == 0, aksi halde null ( 0N) döndürür . Bu, listedeki tek bir öğenin dizin 0'a sahip olmasından kaynaklanır ve bu listeyi 0 dışında bir sayı ile dizine eklemeye çalışmak null değerini döndürür.

— J. Sallé
kaynak

Kaç tane küp inşa edilebilir

görev

n3, ( n - 1 )3, ( n - 2 )3, . .. , 13n3,(n-1)3,(n-2)3,...,13n^3, (n-1)^3, (n-2)^3,...,1^3

giriş

çıktı

notlar

istekler

örnekler

JavaScript (ES7), 31 bayt

Nasıl?

Yorumlananlar

Özyinelemeli sürüm, 36 35 bayt

Yorumlananlar

05AB1E , 6 bayt

05AB1E , 7 bayt

Nasıl çalışır

R , 42 40 bayt

Jöle , 5 4 bayt

Nasıl?

İksir , 53 bayt

İksir , 74 bayt

Japt, 7 bayt

açıklama

Alternatif

Cubix , 27 bayt (veya hacim 27?)

Perl 6 , 30 29 26 bayt

açıklama

JavaScript (Node.js) , 28 bayt

APL (Dyalog) , 18 bayt

Matlab, 27 bayt

Python 3 , 60 bayt

Perl 6 , 33 bayt

dc , 19 bayt

açıklama

Python 3 , 53 48 bayt

gvm (taahhüt 2612106 ) bayt kodu, 70 59 bayt

K (ok) , 21 bayt

Nasıl:

$n^3, (n-1)^3, (n-2)^3,...,1^3$