Wyzwanie

Biorąc pod uwagę sekwencję liczb całkowitych nieujemnych, utwórz funkcję, która generuje potomną piramidę, w której dzieci są sumą obu liczb nadrzędnych.

Wynik jest wyprowadzany jako ciąg przy użyciu tabulacji \t.

Uwaga: końcowe tabulatory w każdej linii nie są wymagane

1\t\t2\t\t3\n\t3\t\t5\t\n\t\t8\t\t results in 
1       2       3
    3       5   
        8       

Opcjonalnie wynik może być wyprowadzony jako tablica z wykorzystaniem pustej pozycji jako spacji.

[[1,,2,,3],
[,3,,5,],
[,,8,,]]

Przykład:

Dane 4,5,7,3,4,2wyjściowe:

4       5       7       3       4       2
    9       12      10      7       6
        21      22      17      13
            43      39      30
                82      69
                    151

Zasady

• Obowiązują standardowe zasady gry w golfa
• Dane wejściowe mogą być łańcuchem przy użyciu dowolnego separatora lub tablicy
• Wiodące / końcowe znaki nowej linii i tabulatory są dozwolone (ale nie są wymagane, o ile wynik jest odwróconą piramidą)

Przypadki testowe

Input: 1,3,5

1       3       5
    4       8
        12


Input: 9,8,7,6,5

9       8       7       6       5
    17      15      13      11
        32      28      24
            60      52
                112


Input: 5,5,2,5

[[5,,5,,2,,5],
[,10,,7,,7,],
[,,17,,14,,],
[,,,31,,,]]

Input: 3,3,3

[[3,,3,,3],
[,6,,6,],
[,,12,,]]

Kryterium wygranej jest kod-golf

Uwaga: To wyzwanie jest bardzo zbliżone do generowania trójkąta Pascala . Różnica polega na niestandardowej sekwencji początkowej (pascal przechodzi od 1 iw trybie wstępującym, to od wejścia i w trybie potomnym).

Post w piaskownicy

APL (Dyalog Unicode) , 31 28 bajtów ^SBCS

Funkcja ukrytego przedrostka. Używa pojedynczego miejsca jako znacznika pustego miejsca. Zwraca listę list liczb / spacji.

⍳∘≢{∊(⍺⍴''),,∘' '¨2+/⍣⍺⊢⍵}¨⊂

Wypróbuj online!

⍳∘≢{... }¨⊂ zastosować poniżej funkcji dla każdego z
⍳tych ɩ ndices  ∘z  ≢tym zgadzają z
⊂całego argumentu:

 ⊢⍵ podaj właściwy argument (oryginalne dane wejściowe)

 2+/⍣⍺ zastosuj sumę parowania tyle razy, ile wskazuje lewy argument

 ,∘' '¨ dodaj spację do każdego numeru

 (… ), Dołącz to do następujących elementów:

  ⍺⍴'' lewy argument elementów pustego łańcucha (wypełniony spacjami)

 ∊ ε nlist (spłaszczyć)

05AB1E , 15 bajtów

gFD„		ý'	N×ì,ü+

Wypróbuj online!

Wolfram Language (Mathematica) , 74 bajty

ArrayPad[Riffle[#,],k++,]&/@NestList[k=0;BlockMap[Tr,#,2,1]&,#,Tr[1^#]-1]&

Wypróbuj online!

Galaretka ,  14  13 bajtów

^{14 -> 13 zakłada, że ​​na wyjściu formatu listy dozwolony jest tylko znak spacji; jeśli nie, wrócę do 14 ( zapytany )}

+ƝƬK€z⁶Zṙ"JC$

Link monadyczny. Dane wyjściowe to lista list wykorzystujących spacje jako spacje (zawiera pojedynczy końcowy wpis tylko spacji).

Wypróbuj online! (zawiera stopkę pokazującą strukturę listy, ponieważ uruchomienie linku monadycznego, ponieważ pełny program niejawnie wydrukuje zniszczone dane wyjściowe).

Łuska , 22 bajty

zoΣ~+R"	"oJ"		"msNU¡Ẋ+

Wypróbuj online!

Wyjaśnienie

z(Σ~+R" "(J"  "ms))NU¡Ẋ+  -- example input: [1,2,3]
                     ¡    -- infinitely do and collect in list
                      Ẋ+  -- | sum adjacent
                          -- : [[1,2,3],[3,5],[8],[],[],...
                    U     -- keep up until first repetition: [[1,2,3],[3,5],[8],[]]
z(                )N      -- zip with natural numbers under (example on 1 [1,2,3])
   ~+    (       )        -- | join arguments modified by
     R" "                 -- | | replicate tab: " "
               ms         -- | | show each: ["1","2","3"]
          J"  "           -- | | join with 2 tabs: ["1","  ","2","  ","3"]
                          -- | : [" ","1","  ","2","  ","3"]
  Σ                       -- | concatenate: " 1  2  3"
                          -- : [" 1  2  3","  3  5","   8"]

JavaScript (ES6), 73 bajty

Dziwny kod źródłowy ... W każdym razie, to jest golf golfowy !

Obejmuje wiodące i końcowe białe znaki.

f=(a,p=`
`)=>p+a.join`		`+(1/(y=a.shift())?f(a.map(x=>y+(y=x)),p+`	`):'')

Wypróbuj online!

Perl 5 -a , 62 bajty

$,="\t\t";do{say"\t"x$i++,@F;map$_+=$F[++$q[@F]],@F}while$#F--

Wypróbuj online!

Python 3 , 101 93 80 bajtów

Zaoszczędziłem 7 bajtów ( map(str,x)zamiast for ini init as '') i pozbyłem się nowych linii ( x and[zamiast print() dzięki Jo Kingowi .

Zaoszczędzono 13 bajtów ( [*map(sum,zip(x,x[1:]))]zamiast [x[j]+x[j+1]for j in range(len(x)-1)]) dzięki ovs .

f=lambda x,y='':x and[y+'		'.join(map(str,x))]+f([*map(sum,zip(x,x[1:]))],y+'	')

Wypróbuj online!

Siatkówka , 35 bajtów

+¶<`\d+ *(?=(\d+)?)
    $#1*$.(*_$1*)   

Wypróbuj online! Wyjaśnienie:

+

Powtarzaj, aż bufor przestanie się zmieniać,

¶<`

Wydrukuj zawartość bufora przed podstawieniem, z końcowym znakiem nowej linii i

\d+ *(?=(\d+)?)
    $#1*$.(*_$1*)   

Zastąp pojedynczy numer parą tabulatorów, ale liczbą, po której następuje kolejny numer, tabulator, sumę i inną tabulator.

C (brzęk) , 112 bajtów

j,k;f(*i,c){for(j=c+1;--j;puts("")){for(k=c-j;k--;)printf("\t");for(;++k<j;i[k]+=i[k+1])printf("%d\t\t",i[k]);}}

Wypróbuj online!

Czerwony , 151 bajtów

func[b][m: length? b repeat n m[loop n - 1[prin"^-"]print replace/all
form b" ""^-^-"c: copy[]repeat i -1 + length? b[append c b/(i) + b/(i + 1)]b: c]]

Wypróbuj online!

Bardziej czytelny:

f: func [ b ] [
    m: length? b
    repeat n m [
        loop n - 1 [ prin tab ]
        print replace/all form b " " rejoin [ tab tab ]
        c: copy []
        repeat i (length? b) - 1 [
            append c b/(i) + b/(i + 1)
        ]
        b: c
    ]
]

Perl 6 , 50 48 bajtów

{$_,{say "	"x$++~.join("		");$_[1..*]Z+@$_}...0}

Wypróbuj online!

Anonimowy blok kodu, który pobiera listę liczb całkowitych i drukuje odwróconą piramidę.

C # (kompilator Visual C #) , 163 bajty

b=>{var s="";var c=b.Length;for(int i=0;i<c;i++){for(int z=0;z<i;z++)s+="\t";for(int x=0;x<c-i;x++){s+=b[x]+"\t\t";b[x]=x==c-i-1?0:b[x]+b[x+1];}s+="\n";}return s;}

Wypróbuj online!

Czytelny:

b =>    {
            var s = "";
            var c = b.Length;
            for (int i = 0; i < c; i++)
            {
                for (int z = 0; z < i; z++)
                    s += "\t";
                for (int x = 0; x < c - i; x++)
                {
                    s += b[x] + "\t\t";
                    b[x] = x == c - i - 1 ? 0 : b[x] + b[x + 1];
                }
                s += "\n";
            }
            return s;
        }

Japt -Rx , 20 18 bajtów

Drugi wiersz zawiera tabulator końcowy.

Nc¡=ä+
Ëq' ² iEç'  

Spróbuj

Wyjaśnienie

                  :Implicit input of array U
N                 :The array of inputs (NOT the input array)
 c                :Concatenate
  ¡               :  Map U
    ä+            :    Consecutive sums of U
   =              :    Reassign to U for next iteration
\n                :Reassign the resulting 2D-array to U
Ë                 :Map each array at index E
 q                :  Join with
  '\t             :   Tab
     ²            :   Repeated twice
       i          :  Prepend
          '\t     :   Tab
         ç        :   Repeated
        E         :   E times
                  :Implicitly join with newlines, trim (not strictly necessary) and output.