ลำดับ Lehmer-Comtet

Funky Computer Man 09/14/2017. 10 answers, 1.093 views
code-golf sequence integer calculus

ลำดับ Lehmer-Comtet เป็นลำดับดังนี้ a(n) เป็นอนุพันธ์ n ของ f(x) = xx เทียบกับ x ตามที่ประเมินที่ x = 1

งาน

ใช้จำนวนเต็มที่ไม่ใช่เชิงลบเป็น input และส่งออกคำ n ของลำดับ Lehmer-Comtet

นี่เป็น ดังนั้นคุณควรลดขนาดไฟล์ของซอร์สโค้ด

กรณีทดสอบ

OEIS 5727

ต่อไปนี้คือคำคู่แรกที่เรียงตามลำดับ (คัดลอกจาก OEIS)

1, 1, 2, 3, 8, 10, 54, -42, 944, -5112, 47160, -419760, 4297512, -47607144, 575023344, -7500202920, 105180931200, -1578296510400, 25238664189504, -428528786243904, 7700297625889920, -146004847062359040, 2913398154375730560, -61031188196889482880 

10 Answers


Anders Kaseorg 07/03/2017.

Haskell , 77 75 ไบต์ไม่มี builtins ที่มีความแตกต่าง

 x@(a:b)&y@(c:d)=a*c:zipWith(+)(b&y)(x&d)
s=1:s&(1:scanl(*)1[-1,-2..])
(s!!) 

ทดลองใช้แบบออนไลน์!

มันทำงานอย่างไร

เราแสดงฟังก์ชันเป็นรายการอนันต์ของเทย์เลอร์สัมประสิทธิ์ชุดเกี่ยวกับ x = 1: f ( x ) = Σ n = 0 f ( n ) ( x - 1) n / n ! จะแสดงด้วย [f (1), f '(1), f "(1), ... ]

ตัวดำเนินการ & คูณสองฟังก์ชันดังกล่าวโดยใช้กฎผลิตภัณฑ์ นี้จะช่วยให้เราสามารถกำหนดฟังก์ชัน s ( x ) = x x ในแง่ของตัวเองโดยใช้สมการเชิงอนุพันธ์ s (1) = 1, s '( x ) = s ( x ) ⋅ (1 + ln x ) ที่ ln x = Σ n = 1 (-1) n - 1 ( n - 1)! ( x - 1) n / n


Jenny_mathy 07/03/2017.

Mathematica, 19 ไบต์

D[x^x,NO 

-18 bytes from @Not a tree

4 comments
9 Not a tree 07/03/2017
ถ้าไม่มีอะไรหายไปคุณจะได้รับข้อมูลสั้นมาก: D[x^x,NO , 19 bytes
Jenny_mathy 07/03/2017
จริง 21 bytes .. แต่ใช่! สั้นมาก!
Not a tree 07/03/2017
ฉันไม่คิดว่าคุณต้องการ -1 - ลำดับจาก OEIS เริ่มต้นที่ n = 0
1 Jenny_mathy 07/03/2017
โอเคถ้าอย่างนั้น! 19 ไบต์เป็น

Luis Mendo 07/02/2017.

Octave with Symbolic Package, 36 32 ไบต์

 syms x
@(n)subs(diff(x^x,n),x,1) 

รหัสกำหนดฟังก์ชันที่ไม่ระบุตัวตนซึ่งจะแสดงผลตัวแปรสัญลักษณ์พร้อมผลลัพธ์

Try it online!


Uriel 07/03/2017.

Python with SymPy , 77 75 58 57 ไบต์

1 byte saved thanks to @notjagan

17 bytes saved thanks to @AndersKaseorg

 from sympy import*
lambda n:diff('x^x','x',n).subs('x',1) 
5 comments
1 Anders Kaseorg 07/02/2017
lambda n:diff('x**x','x',10).subs('x',1) ไม่ต้องใช้ sympy.abc
Uriel 07/02/2017
@AndersKaseorg ขอบคุณ!
1 Zacharý 07/02/2017
Ummm ... คุณใช้ n ที่ไหน?
Uriel 07/02/2017
@ZacharyT ขอบคุณ! บังเอิญฉันทดสอบข้อเสนอของ anders ขวากับ n = 10 ดังนั้นจึงให้ผลลัพธ์เดียวกัน :) แก้ไขในขณะนี้
notjagan 07/03/2017
-1 ไบต์โดยแทนที่ x**x กับ x^x

xnor 07/03/2017.

Haskell 57 ไบต์

 f 0=1
f n=f(n-1)-foldl(\a k->f(k-1)/(1-n/k)-a*k)0[1..n-1] 

ทดลองใช้แบบออนไลน์!

ไม่มีตัวช่วยสร้างสำหรับความแตกต่างหรือพีชคณิต เอาท์พุตลอยตัว


Anders Kaseorg 07/03/2017.

SageMath 33 32 ไบต์

 lambda n:diff(x^x,x,n).subs(x=1) 

ลองใช้ SageMathCell


Leaky Nun 07/03/2017.

Python 3 , 150 bytes

 lambda n:0**n or sum(L(n-1,r)for r in range(n))
L=lambda n,r:0<=r<=n and(0**n or n*L(n-2,r-1)+L(~-n,r-1)+(r-~-n)*L(~-n,r)if r else n<2or-~-n*L(n-1,0)) 

ทดลองใช้แบบออนไลน์!

ความซับซ้อนรันไทม์ Exponential ใช้สูตรที่ระบุในหน้า OEIS


Bhav 07/03/2017.

Python3 + mpmath 52 ไบต์

from mpmath import*
lambda n:diff(lambda x:x**x,1,n) 

-3 bytes ขอบคุณ @Zachary T

2 comments
1 Funky Computer Man 07/02/2017
คุณควรเปลี่ยนภาษาเป็น python3 + mpmath เนื่องจาก mpmath ไม่ใช่ไลบรารีมาตรฐาน
2 Zacharý 07/02/2017
คุณสามารถเปลี่ยนบรรทัดแรก from mpmath import* และสองเป็น diff(lambda x:x**x,1,n) (เพียงลบช่องว่างที่ไม่จำเป็น)

alephalpha 07/03/2017.

Pari / GP ขนาด 35 ไบต์

n->n!*Pol((1+x+O(x*x^n))^(1+x))\x^n 

ทดลองใช้แบบออนไลน์!


Leaky Nun 07/03/2017.

Python 3 , 288 261 bytes

ความแตกต่างโดยไม่มีการสร้างความแตกต่างในตัว

 p=lambda a,n:lambda v:v and p(a*n,n-1)or a
l=lambda v:v and p(1,-1)
e=lambda v:v and m(e,a(p(1,0),l))or 1
a=lambda f,g:lambda v:v and a(f(1),g(1))or f(0)+g(0)
m=lambda f,g:lambda v:v and a(m(f(1),g),m(g(1),f))or f(0)*g(0)
L=lambda n,f=e:n and L(n-1,f(1))or f(0) 

ทดลองใช้แบบออนไลน์!

มันทำงานอย่างไร

บรรทัดแรกห้าบรรทัดแรกกำหนดฟังก์ชันและอนุพันธ์และผลลัพธ์ของพวกเขาเมื่อประเมินที่ 1 อนุพันธ์ของพวกเขายังมีหน้าที่

  • p คือพลังงานเช่น a*x^n
  • l คือลอการิทึมคือ ln(x)
  • e คือ exponential เช่น exp(x)
  • a คือบวกนั่นคือ f(x)+g(x)
  • m คือการคูณคือ f(x)*g(x)

การใช้งาน: ตัวอย่างเช่น exp(ln(x)+3x^2) จะแสดงเป็น e(l()+p(3,2)) ให้ x=e(l()+p(3,2)) หากต้องการหาอนุพันธ์ให้โทร x(1) เมื่อต้องการหาผลลัพธ์เมื่อประเมินที่ 1 ให้เรียก x(0)

โบนัส: ความแตกต่างของสัญลักษณ์

1 comments
Funky Computer Man 07/03/2017
คุณสามารถบันทึกจำนวนมากไบต์โดยใช้การบีบอัด exec ทดลองใช้แบบออนไลน์!

HighResolutionMusic.com - Download Hi-Res Songs

1 (G)I-DLE

POP/STARS flac

(G)I-DLE. 2018. Writer: Riot Music Team;Harloe.
2 Ariana Grande

​Thank U, Next flac

Ariana Grande. 2018. Writer: Crazy Mike;Scootie;Victoria Monét;Tayla Parx;TBHits;Ariana Grande.
3 Imagine Dragons

Bad Liar flac

Imagine Dragons. 2018. Writer: Jorgen Odegard;Daniel Platzman;Ben McKee;Wayne Sermon;Aja Volkman;Dan Reynolds.
4 Backstreet Boys

Chances flac

Backstreet Boys. 2018.
5 Clean Bandit

Baby flac

Clean Bandit. 2018. Writer: Jack Patterson;Kamille;Jason Evigan;Matthew Knott;Marina;Luis Fonsi.
6 BTS

Waste It On Me flac

BTS. 2018. Writer: Steve Aoki;Jeff Halavacs;Ryan Ogren;Michael Gazzo;Nate Cyphert;Sean Foreman;RM.
7 BlackPink

Kiss And Make Up flac

BlackPink. 2018. Writer: Soke;Kny Factory;Billboard;Chelcee Grimes;Teddy Park;Marc Vincent;Dua Lipa.
8 Lady Gaga

I'll Never Love Again flac

Lady Gaga. 2018. Writer: Benjamin Rice;Lady Gaga.
9 Kelly Clarkson

Never Enough flac

Kelly Clarkson. 2018. Writer: Benj Pasek;Justin Paul.
10 Fitz And The Tantrums

HandClap flac

Fitz And The Tantrums. 2017. Writer: Fitz And The Tantrums;Eric Frederic;Sam Hollander.
11 Little Mix

Told You So flac

Little Mix. 2018. Writer: Eyelar;MNEK;Raye.
12 Halsey

Without Me flac

Halsey. 2018. Writer: Halsey;Delacey;Louis Bell;Amy Allen;Justin Timberlake;Timbaland;Scott Storch.
13 Cher Lloyd

None Of My Business flac

Cher Lloyd. 2018. Writer: ​iamBADDLUCK;Alexsej Vlasenko;Kate Morgan;Henrik Meinke;Jonas Kalisch;Jeremy Chacon.
14 Bradley Cooper

Always Remember Us This Way flac

Bradley Cooper. 2018. Writer: Lady Gaga;Dave Cobb.
15 Calum Scott

No Matter What flac

Calum Scott. 2018. Writer: Toby Gad;Calum Scott.
16 Ashley Tisdale

Voices In My Head flac

Ashley Tisdale. 2018. Writer: John Feldmann;Ashley Tisdale.
17 Imagine Dragons

Machine flac

Imagine Dragons. 2018. Writer: Wayne Sermon;Daniel Platzman;Dan Reynolds;Ben McKee;Alex Da Kid.
18 Diplo

Close To Me flac

Diplo. 2018. Writer: Ellie Goulding;Savan Kotecha;Peter Svensson;Ilya;Swae Lee;Diplo.
19 Billie Eilish

When The Party's Over flac

Billie Eilish. 2018. Writer: Billie Eilish;FINNEAS.
20 Little Mix

Woman Like Me flac

Little Mix. 2018. Writer: Nicki Minaj;Steve Mac;Ed Sheeran;Jess Glynne.

Related questions

Hot questions

Language

Popular Tags