Biz terimi "kare alma" için kullanılır n hesaplanması anlamına n ² . Ayrıca terim "cubing" için kullanılır n anlamında n ³ . Olduğu söyleniyor, neden bir de üçgeni üçe çeviremiyoruz?

Sayı nasıl üçgenlenir?

• İlk önce, bir numara seçelim 53716.

• Yan uzunluğu sayının rakam sayısına eşit olan ve aşağıda gösterildiği gibi çapraz olarak konumlandırılmış iki tarafa sahip olan bir paralelkenaride yerleştirin.

      53716
     53716
    53716
   53716
  53716
  

• Şimdi, onu istiyoruz, değil mi? Bunu yapmak için, dik açılı bir üçgene uymayan tarafları kırpın:

      5
     53
    537
   5371
  53716
  

• Bu satır için, her satırın toplamını alın [5, 8, 15, 16, 22]:

      5 -> 5
     53 -> 8
    537 -> 15
   5371 -> 16
  53716 -> 22
  

• [5, 8, 15, 16, 22]Sonuçta ortaya çıkan listeyi toplayın 66. Bu, bu sayının üçgeni!

Özellikleri ve kuralları

• Giriş, negatif olmayan bir tamsayı olacaktır n ( n ≥ 0, n ∈ Z ).

• Herhangi bir izin verilen yoldan girdi alabilir ve çıktı alabilirsiniz .

• Giriş, bir tamsayı, bir tamsayı dizgi gösterimi veya basamak listesi olarak biçimlendirilebilir.

• Varsayılan boşluklara izin verilmez.

• Bu kod-golf , yani bayttaki en kısa kod kazanır!

Daha Test Kılıfları

Giriş -> Çıkış

0 -> 0
1 -> 1
12 -> 4
123 -> 10
999 -> 54 
100000 -> 6
654321 -> 91

İlham. Açıklamalar teşvik edilir!

Haskell , 13 bayt

sum.scanl1(+)

Çevrimiçi deneyin!

Girdiyi basamak listesi olarak alır. Kümülatif toplamları hesaplar ve sonra bunları toplamlar.

Kabuk , 4 2 bayt

Baytlar için teşekkürler @ H.PWiz -2!

Σ∫

Çevrimiçi deneyin!

"Ungolfed" / Açıklaması

Σ    -- sum all
 ∫   -- prefix sums

Brain-Flak , 65, 50, 36 bayt

([])({<{}>{<({}[()])>[]}{}<([])>}{})

Çevrimiçi deneyin!

Çok revize ettikten sonra, şimdi bu cevapla gurur duyuyorum. Algoritmayı ve beyin-flakta ne kadar güzel ifade edilebileceğini seviyorum.

Bayt sayısının çoğu, girdideki 0'ları işlemden gelir. Aslında, girişte 0 olmadığını varsayabilirsek, 20 baytlık bir cevap güzel olurdu:

({{<({}[()])>[]}{}})

Çevrimiçi deneyin!

Ancak ne yazık ki, beyin-lapa, kenar vakalarının kötü ele alınmasıyla ünlüdür.

açıklama

İlk önce, benim bir gözlemim:

Girdi n rakam uzunsa, ilk hane n kez üçgeni görünecek , ikinci hane n-1 kez görünecek ve böylece bir kez görünecek olan son haneye gelecek. Bundan faydalanabiliriz, çünkü beyin-flakta kaç tane girdi kaldığını hesaplamak gerçekten kolay, yani

[]

İşte kod böyle çalışıyor.

# Push the size of the input (to account for 0's)
([])

# Push...
(

    # While True
    {

        # Pop the stack height (evaluates to 0)
        <{}>

        # For each digit *D*...

        # While true
        {

            # Decrement the counter (the current digit we're evaluating), 
            # but evaluate to 0
            <({}[()])>

            # Evaluate the number of digits left in the input
            []

        # Endwhile
        }

        # This whole block evaluates to D * len(remaining_digits), but 
        # without affecting the stack

        # Since we looped D times, D is now 0 and there is one less digit.
        # Pop D (now 0)
        {}

        # Push the stack height (again, evaluating it as 0)
        <([])>

    # End while
    }

    # Pop a 0 off (handles edge case of 0)
    {}

# end push
)

Pyth - 6 4 bayt

ss._

Burada çevrimiçi deneyin .

Önek yerleşikini kullanmayan hoş 6 bayt:

s*V_Sl

MATL , 3 bayt

Yss

Çevrimiçi deneyin!

Girdiyi basamak listesi olarak alır.

Jöle , 3 bayt

+\S

Çevrimiçi deneyin! Japt cevabımla aynı tekniği kullanıyor: kümülatif toplama, sonra toplamı.

Haskell , 25 bayt

Girdiyi basamak listesi olarak alır

f[]=0
f x=sum x+f(init x)

Çevrimiçi deneyin!

Haskell , 41 bayt

Dize gösterimi olarak girdi alır

f[]=0
f x=sum(map(read.(:[]))x)+f(init x)

Çevrimiçi deneyin!

Japt , 7 6 4 bayt

å+ x

Çevrimiçi deneyin!

açıklama

å+ x    Implicit: input = digit list
å+      Cumulative reduce by addition. Gives the sum of each prefix.
   x    Sum.

Eski çözüm:

å+ ¬¬x

Çevrimiçi deneyin!

açıklama

å+ ¬¬x   Implicit: input = string
å+       Cumulative reduce by concatenation. Gives the list of prefixes.
   ¬     Join into a single string of digits.
    ¬    Split back into digits.
     x   Sum.
         Implicit: output result of last expression

Brain-Flak , 28 bayt

(([]){[{}]({}<>{})<>([])}{})

Çevrimiçi deneyin!

Sıfırları desteklememiz gerekmiyorsa 14 bayt (ki yapıyoruz)

({({}<>{})<>})

Çevrimiçi deneyin!

DJMcMayhem burada kontrol etmeniz gereken harika bir cevap var . Maalesef onun için kendi dilinde kazanmasına izin vermeyecektim: P

O nasıl çalışır?

Basit versiyonla başlayalım.

({({}<>{})<>})

Buradaki ana eylem ({}<>{})<>, sol yığının tepesini alan ve sağ yığının tepesine ekleyen eylemdir . Bu işlemi ilmekleyerek mevcut yığını toplar (sıfıra gelene kadar) toplamı kapalı yığına yerleştiririz. Bu oldukça sıradan, ilginç olan kısım, tüm bu koşuların sonuçlarını sonuç olarak özetlememiz. Bu istenen değeri hesaplar. Niye ya? Peki bir örneğe bakalım 123. İlk kavramada sadece 1 alıyoruz, yani değerimiz 1

1

Bir sonraki kavramada 1 artı 2 değerini döndürürüz

1
1+2

Son seferde üçümüz de beraberiz.

1
1+2
1+2+3

Üçgeni görüyor musun? Tüm çalışmaların toplamı listenin "üçgeni" dir.

Tamam, ama şimdi sıfırlar için çalışmamıza gerek var, işte DJMcMayhem ile aynı numarayı kullandım, ayrıca biraz süslü ayak işi. Dönene kadar sıfıra çarpıncaya kadar döngü boşalıncaya kadar döngü yaparız.

([])({<{}>({}<>{})<><([])>}{})

Daha sonra bu ipucunu sizinkinden başkası tarafından yazılmayan bir başka 2 byte'ı atmak için kullandım.

(([]){[{}]({}<>{})<>([])}{})

Ve işte orada. Daha kısa bir çözüm olsaydı şaşırırdım, ama sonra yine garip şeyler oldu.

JavaScript (ES6), 28 bayt

a=>a.map(d=>t+=c+=d,t=c=0)|t

Girdiyi basamak listesi olarak alır.

Python 3 , 37 bayt

f=lambda n:len(n)and sum(n)+f(n[:-1])

Çevrimiçi deneyin!

C # (.NET Çekirdeği) , 59 bayt

using System.Linq;N=>N.Reverse().Select((d,i)=>i*d+d).Sum()

Çevrimiçi deneyin!

Diğer C # cevaplarından önemli ölçüde farklı. Giriş, basamakların bir listesidir. Tüm test vakaları TIO bağlantısına dahil edilmiştir.

Girdiyi, 0 önceli hanelerin geriye doğru bir listesi olarak kabul etmesine izin verilirse bir demet bayt kaydedilebilir.

Python 3 , 35 bayt

Sadece farkettim ki bu sadece sonunda Business Cat'in cevabının hafif bir golfü !

f=lambda a:a>[]and sum(a)+f(a[:-1])

Çevrimiçi deneyin!

J , 7 bayt

[:+/+/\

Çevrimiçi deneyin!Gibi rakamların bir listesini alır f 6 5 4 3 2 1.

açıklama

[:+/+/\    (for explanation, input = 6 5 4 3 2 1)
      \    over the prefixes of the input:
     /         reduce:
    +              addition (summation)
           this gives is the cumulative sum of the input:  6 11 15 18 20 21
[:         apply to the result:
  +/           summation
           this gives the desired result:   90

Özgün sorun için biraz daha doğru [:+/@,]/olan " giriş" ( ) girişinin +/flattened ( ,) önekleri olacaktır ]\.

Vim , 60 59 32 tuş vuruşlarını

Özyinelemeli makro ve hhile ile bahşiş için çok @CowsQuack teşekkürler , bu beni 27 bayt kurtardı!

qqYp$xh@qq@qVHJ:s/./&+/g⏎
C<C-r>=<C-r>"0⏎

Çevrimiçi deneyin!

Ungolfed / Açıklaması

Bu, tanımlandığı şekilde üçgeni oluşturacaktır (yalnızca sola hizalı tutması için):

qq       q    " record the macro q:
  Yp          "   duplicate the line
    $x        "   remove last character
      h       "   move to the left (this is solely that the recursive macro calls stop)
       @q     "   run the macro recursively
          @q  " run the macro

Tampon şimdi şuna benziyor:

53716
5371
537
53
5

Tüm çizgileri bir araya getirin ve ondan değerlendirilebilir bir ifade oluşturun:

VH             " mark everything
  J            " join into one line
   :s/./&+/g⏎  " insert a + between all the characters

"Şimdi kaydol şu dizeyi (not 0 kayıp) içerir:

5+3+7+1+6+ +5+3+7+1+ +5+3+7+ +5+3+ +5+ +

Yani tek yapmamız gereken bir sıfır eklemek ve onu değerlendirmek:

 C                " delete line and store in " register
  <C-r>=       ⏎  " insert the evaluated expression from
        <C-r>"    " register "
              0   " append the missing 0

Python 2 , 49 45 bayt

Bay Xcoder sayesinde -4 bayt .

lambda n:sum(-~i*n[~i]for i in range(len(n)))

Çevrimiçi deneyin!

Girdiyi basamak listesi olarak alır.

Bash + GNU yardımcı programları, 32 24

tac|nl -s*|paste -sd+|bc

Giriş STDIN'den okunur.

Güncelleme: Girişin rakamların bir listesi olarak verilebileceğini görüyorum. Giriş listem yeni satırla ayrılmış.

Çevrimiçi deneyin .

açıklama

tac                       # reverse digit list
   |nl -s*                # prefix line numbers; separate with "*" operator
          |paste -sd+     # join lines onto one line, separated with "+" operator
                     |bc  # arithmetically evaluate

APL, 4 bayt

+/+\

Bu, girişi basamakların bir listesi olarak alır, örneğin:

      (+/+\) 5 3 7 1 6
66

açıklama

+/    sum of
  +\  partial sums of input

Taksi , 1478 bayt

Go to Post Office:w 1 l 1 r 1 l.Pickup a passenger going to Chop Suey.Go to Chop Suey:n 1 r 1 l 4 r 1 l.[a]Switch to plan "b" if no one is waiting.Pickup a passenger going to The Babelfishery.Go to Zoom Zoom:n 1 l 3 r.1 is waiting at Starchild Numerology.Go to Starchild Numerology:w 4 l 2 r.Pickup a passenger going to Addition Alley.Go to Addition Alley:w 1 r 3 r 1 r 1 r.Pickup a passenger going to Addition Alley.Go to The Babelfishery:n 1 r 1 r.Go to Chop Suey:n 6 r 1 l.Switch to plan "a".[b]Go to Addition Alley:n 1 l 2 l.Pickup a passenger going to Cyclone.[c]Go to Zoom Zoom:n 1 l 1 r.Go to Cyclone:w.Pickup a passenger going to The Underground.Pickup a passenger going to Multiplication Station.Go to The Babelfishery:s 1 l 2 r 1 r.Pickup a passenger going to Multiplication Station.Go to Multiplication Station:n 1 r 2 l.Pickup a passenger going to Addition Alley.Go to The Underground:n 2 l 1 r.Switch to plan "d" if no one is waiting.Pickup a passenger going to Cyclone.Go to Addition Alley:n 3 l 1 l.Switch to plan "c".[d]Go to Addition Alley:n 3 l 1 l.[e]Pickup a passenger going to Addition Alley.Go to Zoom Zoom:n 1 l 1 r.Go to Addition Alley:w 1 l 1 r.Pickup a passenger going to Addition Alley.Switch to plan "f" if no one is waiting.Switch to plan "e".[f]Go to Zoom Zoom:n 1 l 1 r.Go to Addition Alley:w 1 l 1 r.Pickup a passenger going to The Babelfishery.Go to The Babelfishery:n 1 r 1 r.Pickup a passenger going to Post Office.Go to Post Office:n 1 l 1 r.

Çevrimiçi deneyin!

Un-golfed:

[ Pickup stdin and split into digits ]
Go to Post Office: west 1st left 1st right 1st left.
Pickup a passenger going to Chop Suey.
Go to Chop Suey: north 1st right 1st left 4th right 1st left.
[a]
[ Count the digits ]
Switch to plan "b" if no one is waiting.
Pickup a passenger going to The Babelfishery.
Go to Zoom Zoom: north 1st left 3rd right.
1 is waiting at Starchild Numerology.
Go to Starchild Numerology: west 4th left 2nd right.
Pickup a passenger going to Addition Alley.
Go to Addition Alley: west 1st right 3rd right 1st right 1st right.
Pickup a passenger going to Addition Alley.
Go to The Babelfishery: north 1st right 1st right.
Go to Chop Suey: north 6th right 1st left.
Switch to plan "a".
[b]
Go to Addition Alley: north 1st left 2nd left.
Pickup a passenger going to Cyclone.
[c]
[ Multiply each digits by Len(stdin)-Position(digit) ]
Go to Zoom Zoom: north 1st left 1st right.
Go to Cyclone: west.
Pickup a passenger going to The Underground.
Pickup a passenger going to Multiplication Station.
Go to The Babelfishery: south 1st left 2nd right 1st right.
Pickup a passenger going to Multiplication Station.
Go to Multiplication Station: north 1st right 2nd left.
Pickup a passenger going to Addition Alley.
Go to The Underground: north 2nd left 1st right.
Switch to plan "d" if no one is waiting.
Pickup a passenger going to Cyclone.
Go to Addition Alley: north 3rd left 1st left.
Switch to plan "c".
[d]
Go to Addition Alley: north 3rd left 1st left.
[e]
[ Sum all the products ]
Pickup a passenger going to Addition Alley.
Go to Zoom Zoom: north 1st left 1st right.
Go to Addition Alley: west 1st left 1st right.
Pickup a passenger going to Addition Alley.
Switch to plan "f" if no one is waiting.
Switch to plan "e".
[f]
[ Output the results ]
Go to Zoom Zoom: north 1st left 1st right.
Go to Addition Alley: west 1st left 1st right.
Pickup a passenger going to The Babelfishery.
Go to The Babelfishery: north 1st right 1st right.
Pickup a passenger going to Post Office.
Go to Post Office: north 1st left 1st right.

Perl 5 , 19 + 1 ( -p) = 20 bayt

s/./$\+=$p+=$&/ge}{

Çevrimiçi deneyin!

Nasıl?

$ \ kümülatif toplamı tutar, $ p ise mevcut satırdaki rakamların toplamını tutar. Paralelkenarın her bir satırı, eklenmiş sayının bir sonraki hanesi ile sadece önceki satırdır. Bu nedenle, önceki satırın artı yeni rakamın toplamıdır. Bu işlem, tüm rakamları ilerledikçe, toplamları giderken hesaplar. Gerçek ikame ilgisizdir; bu sadece gerçek bir döngü oluşturmadan rakamları yinelemenin bir yoludur. Sonunda, $ \ -pseçenek tarafından örtük olarak basılır .

Python 2 , 56 bayt

lambda x:sum(i*int(`x`[-i])for i in range(1,1+len(`x`)))

Çevrimiçi deneyin!

Jöle ,  5  4 bayt

Ṛæ.J

Ondalık basamakların bir listesini alan ve listenin temsil ettiği sayının üçgenini döndüren tek renkli bir bağlantı.

Çevrimiçi deneyin!

Nasıl?

Ṛæ.J - Link: list of numbers (the decimal digits), d   e.g. [9,4,5,0]
Ṛ    - reverse d                                            [0,5,4,9]
   J - range(length(d))                                     [1,2,3,4]
 æ.  - dot-product            (0*1 + 5*2 + 4*3 + 9*4 = 58)  58

Retina , 13 bayt

.
$`$&
.
$*
1

Çevrimiçi deneyin! Link, test durumlarını içerir. Açıklama: İlk aşama orijinal sayının tüm öneklerini oluşturur, ikinci aşama her basamağı birliğe çevirir ve üçüncü aşama toplamı alır.

Mathematica, 49 bayt

Tr@Array[Tr@s[[;;#]]&,Length[s=IntegerDigits@#]]&

Neim , 3 bayt

𝐗𝐂𝐬

Açıklama:

𝐗        Get prefixes of input, including itself
 𝐂       Implicitly join elements together, and create an array with all the digits
  𝐬      Sum

Çevrimiçi deneyin!

Alternatif cevap:

𝐗𝐣𝐬

Açıklama:

𝐗       Get prefixes of input, including itself
 𝐣       Join
  𝐬      Implicitly convert to a digit array, and sum

Çevrimiçi deneyin!

Java 8, 53 bayt

Kabul edilebilir her giriş tipi için bir lambda kullandım. Her biri bir akümülatöre her birinin uygun katını ekleyerek sayının rakamlarını yineler.

Giriş olarak tamsayı (53 bayt)

Lambda Integeriçin Integer:

n->{int s=0,i=1;for(;n>0;n/=10)s+=n%10*i++;return s;}

Giriş olarak dize gösterimi (72 bayt)

Lambda Stringiçin Integer:

s->{int l=s.length(),n=0;for(int b:s.getBytes())n+=(b-48)*l--;return n;}

Giriş olarak rakam dizisi (54 bayt)

Lambda int[](sayılardan, ilk önce en büyük yer değeri) ile Integer:

a->{int l=a.length,s=0;for(int n:a)s+=n*l--;return s;}

• Olivier Grégoire sayesinde -7 bayt

Pyt , 9 6 bayt

ąĐŁř↔·

Açıklama:

                 Implicit input
ą                Convert to array of digits
 Đ               Duplicate digit array
   Łř↔           Create a new array [len(array),len(array)-1,...,1]
      ·          Dot product with digit array
                 Implicit output

Python 3, 94 58 54 bayt

Sayesinde Sn Xcoder oldukça uzun bir bayt tasarruf bana yardımcı olduğunuz için!

lambda n:sum(int(v)*(len(n)-i)for i,v in enumerate(n))

Çevrimiçi Deneyin!

Bir dize olarak girdi alır. Basitçe, her basamağı, eklenmesi gereken sayı ile çarparak toplamını döndürür.

SNOBOL4 (CSNOBOL4) , 79 bayt

	N =INPUT
D	N LEN(1) . D REM . N	:F(O)
	X =X + D
	Y =Y + X	:(D)
O	OUTPUT =Y
END

Çevrimiçi deneyin!

Stdin'den giriş, stdout'a çıkış.

Ortak Lisp, 53 52 bayt

(loop as(x . y)on(reverse(read))sum(+(reduce'+ y)x))

Rakam listesi olarak girin.

Çevrimiçi deneyin!

@Ceilingcat sayesinde -1 bayt.