โอเคฉันเพิ่งจะเตะสามเหลี่ยมได้ไม่นาน

Clark's Triangle เป็นรูปสามเหลี่ยมที่รายการทางซ้ายสุดของแต่ละแถวคือ 1 และรายการทางขวาสุดนั้นประกอบด้วยจำนวนทวีคูณ 6 ซึ่งเพิ่มขึ้นตามจำนวนแถวที่เพิ่มขึ้น นี่คือการสร้างภาพ

     1 6
    1 . 12
   1 . . 18
  1 . . . 24
 1 . . . . 30
1 . . . . . 36

เช่นเดียวกับสามเหลี่ยมของ Pascal รายการอื่น ๆ ทั้งหมดคือผลรวมของตัวเลขทางด้านขวาบนและซ้ายบน

นี่คือสองสามแถวแรกที่ถูกเติมเต็ม

          1   6
        1   7  12
      1   8  19  18
    1   9  27  37  24
  1  10  36  64  61  30
1  11  46  100 125 91  36

งาน

กำหนดหมายเลขแถว (เริ่มต้นจากด้านบน) และหมายเลขคอลัมน์ (เริ่มจากรายการที่ไม่ใช่ศูนย์แรกในแถวนั้น) ส่งออกค่าที่เซลล์นั้น ๆ อินพุตทั้งสองอาจเป็นดัชนี 1 หรือ 0 (คุณสามารถผสมและจับคู่หากคุณต้องการ) นอกขอบเขตของรูปสามเหลี่ยมไม่ได้ถูกกำหนดและคุณสามารถทำสิ่งที่คุณต้องการเมื่อสอบถามค่าเหล่านี้

นี่คือโค้ดกอล์ฟเป้าหมายคือลดจำนวนไบต์ในโซลูชันของคุณ

OEIS A046902

MATL , 15 ไบต์

[lBB]i:"TTY+]i)

อินพุตแรกคือแถวที่อิง 0 ที่สองคือคอลัมน์ที่ใช้ 1

ลองออนไลน์!

คำอธิบาย

[lBB]   % Push [1 6 6]
i       % Input: row number (0-based)
:"      % Repeat that many times
  TT    %   Push [1 1]
  Y+    %   Convolution, increasing size. This computes the sum of overlapping
        %   pairs, including the endpoints. So for example [1 6 6] becomes
        %   [1 7 12 6], which will later become [1 8 19 18 6], ...
]       % End
i       % Input: column number (1-based)
)       % Use as index. Implicit display

ปาสกาล 132 ไบต์

function f(n,k:integer):integer;begin if k=1 then f:=1 else if k>n then f:=6*n else if k<0 then f:=0 else f:=f(n-1,k-1)+f(n-1,k)end;

ลองออนไลน์!

1 การจัดทำดัชนี

CJam , 22 18 ไบต์

-4 ไบต์ขอบคุณ Martin Ender

X6_]ri{0X$+.+}*ri=

อินพุตคือ (0-based row) (0-based column)

ลองออนไลน์!

คำอธิบาย

X6_]  e# Push the list [1 6 6]. This is the first row, but each row will have an extra 6 at
      e# the end, which is out of bounds.
ri    e# Push the first input as an integer.
{     e# The following block calculates the next row given a row on top of the stack:
 0X$+ e#  Copy the top list on the stack and prepend 0.
 .+   e#  Element-wise addition with the list before prepending 0. This adds each element of
      e#  with the one to its left, except the initial 1 gets added to 0 and the final number
      e#  gets added to the out-of-bounds 6. The out-of-bounds 6 is unchanged since one list
      e#  is longer.
}*    e# Run this block (row index) times.
ri=   e# Get the (column index)th item of the final list.

C #, 157 ไบต์

using System.Linq;(b,c)=>{var f=new[]{1,6};for(;c>0;c--){int s=f.Length;f=new int[s+1].Select((e,i)=>i<1?1:i==s?f[s-1]+6:f[i-1]+f[i]).ToArray();}return f[b];

ลองออนไลน์

Python 2 , 67 ไบต์

a,b=input()
x=[1,6]
exec"x=map(sum,zip([0]+x,x+[6]));"*a
print x[b]

ลองออนไลน์!

วิธีการบังคับแบบเดรัจฉานคำนวณaแถว th จากนั้นพิมพ์bหมายเลข th ทั้งอินพุตเป็นแบบอิง 0

Python 3 , 64 60 52 ไบต์

f=lambda r,c:c<2or c>r and r*6or f(r-1,c-1)+f(r-1,c)

ลองออนไลน์!

โซลูชันแบบเรียกซ้ำโดยใช้ 1 การจัดทำดัชนี เอาท์พุท "True" แทน 1 เพื่อประโยชน์ในการเล่นกอล์ฟ

ขอบคุณที่:

• @tallyallyhuman สำหรับการบันทึก 4 ไบต์!
• @Rod สำหรับการบันทึก 8 ไบต์!

Haskell , 41 ไบต์

n#1=1
n#m|m>n=6*n
n#m=(n-1)#(m-1)+(n-1)#m

ลองออนไลน์!

เรียกใช้โดยn # mที่nเป็นหมายเลขแถวและmเป็นหมายเลขคอลัมน์ทั้ง 1 ดัชนี

Mathematica ขนาด 32 ไบต์

b=Binomial;b[#,#2-1]6+b[#-1,#2]&

อินพุต

[แถว, คอลัมน์]
[ดัชนี 1 ดัชนี, ดัชนี 0]

JavaScript (ES6), 38 ไบต์

f=(r,c)=>c?r>c?f(--r,c)+f(r,--c):r*6:1

เกิดปัญหากับคอลัมน์เชิงลบและส่งคืนผลคูณของหกสำหรับคอลัมน์เชิงลบหรือคอลัมน์ขนาดใหญ่

C # (. NET Core) 44 ไบต์

f=(c,r)=>c<=1?1:c>r?6*r:f(c-1,r-1)+f(c,r-1);

ใช้คอลัมน์จากนั้นแถวทั้ง 1 ดัชนี (r,c)สามารถใช้แถวแล้วคอลัมน์โดยการแลกเปลี่ยนปัจจัยการผลิต: จะส่งกลับค่าrow * 6พิกัดนอกขอบเขตด้านขวา (เช่นcolumn > row + 1) และ1สำหรับพิกัดนอกขอบเขตด้านซ้าย (เช่นcolumn < 1)

PHP , 64 ไบต์

ฟังก์ชั่นซ้ำ

แถว 1 การจัดทำดัชนีคอลัมน์ 0 การจัดทำดัชนี

เอาท์พุทสำหรับแถว = 0 และคอลัมน์ = 0 เป็น 0 เหมือนในลำดับ OEIS

function f($r,$c){return$c-$r?$c?f($r-=1,$c-1)+f($r,$c):1:$r*6;}

ลองออนไลน์!

PHP , 126 ไบต์

แถว 1 การจัดทำดัชนีคอลัมน์ 0 การจัดทำดัชนี

เอาท์พุทสำหรับแถว = 0 และคอลัมน์ = 0 เป็น 0 เหมือนในลำดับ OEIS

for(;$r<=$argv[1];$r++)for($z++,$c=~0;++$c<$z;)$t[+$r][$c]=$c<$r?$c?$t[$r-1][$c-1]+$t[$r-1][$c]:1:$r*6;echo$t[$r-1][$argv[2]];

ลองออนไลน์!

R , 77 ไบต์

Reduce(function(x,y)zoo::rollsum(c(0,x,6),2),double(scan()-1),c(1,6))[scan()]

ต้องการzooห้องสมุด อ่านจาก stdin (อินพุตคั่นด้วยสองบรรทัดใหม่) และส่งคืนค่าโดยNAไม่เลือกขอบเขต

ลองออนไลน์!

เยลลี่ 13 ไบต์

,"’U0¦c/x6,1S

ลิงก์ monadic ที่ใช้รายการ[row, entry](การทำดัชนี 0 รายการ, การจัดทำดัชนี 1 แถว) คืนค่า

ลองออนไลน์!

อย่างไร?

,"’U0¦c/x6,1S - Link: list of numbers, [row, entry]
  ’           - decrement     -> [row-1, entry-1]
 "            - zip with:
,             -   pair        -> [[row, row-1], [entry, entry-1]]
     ¦        - sparse application of:
   U          -   upend
    0         - for indexes: 0 -> [[row, row-1], [entry-1, entry]]
       /      - reduce by:
      c       -   choose       -> [(row choose entry-1), (row-1 choose entry)]
         6,1  - 6 paired with 1 = [6,1]
        x     - times        i.e. [a, a, a, a, a, a, a, b]
            S - sum            -> 6*(row choose entry-1) + (row-1 choose entry)