다항식과 x 좌표의 방정식이 주어지면 곡선의 해당 x 좌표에서 점의 변화율을 찾습니다.

다항식의 형식은 ax ⁿ + ax ^n-1 + ... + ax ¹ + a입니다. 여기서 a ϵ Q 및 n ϵ W입니다. x가없는 특수한 경우 (상수)를 처리합니다.

x- 좌표에서 변화율을 찾기 위해 다항식의 미분을 구하고 x- 좌표를 꽂을 수 있습니다.

입력

다항식은 합리적인 형식으로 취할 수 있지만 해당 형식이 무엇인지 명시해야합니다. 예를 들어, 형식의 배열 [..[coefficient, exponent]..]이 허용됩니다.

산출

주어진 x 좌표에서 점의 변화율.

입니다 코드 골프 바이트의 승리에 너무 짧은 코드.

예

[[4, 3], [-2, 4], [5, 10]]   19    ->   16134384838410
                  [[0, 4]]  400    ->   0
           [[4, 0], [5,1]]  -13    ->   5
      [[4.14, 4], [48, 2]]   -3    ->   -735.12
         [[1, 3], [-5, 0]]    5.4  ->   87.48

Mathematica, 6 바이트

#'@#2&

(비트 , MATL 및 05AB1E)

첫 번째 인수는 #변수와 &끝에 다항식이어야합니다 (예 : 순수 함수 다항식, 예 :) 3 #^2 + # - 7 &. 두 번째 논점은 관심 지점의 x 좌표입니다.

설명

#'

첫 번째 인수의 미분을 취하십시오 ( 1내포 됨).

... @#2&

두 번째 인수를 연결하십시오.

용법

#'@#2&[4 #^3 - 2 #^4 + 5 #^10 &, 19] (* The first test case *)

16134384838410

MATL , 8 6 바이트

yq^**s

입력 값 : 지수 배열, 수, 계수 배열.

온라인으로 사용해보십시오! 또는 모든 테스트 사례를 확인하십시오 : 1 , 2 3 , 4 , 5 .

설명

예를 들어 입력을 고려 [3 4 10], 19, [4 -2 5].

y    % Take first two inputs implicitly and duplicate the first
     %   STACK: [3 4 10], 19, [3 4 10]
q    % Subtract 1, element-wise
     %   STACK: [3 4 10], 19, [2 3 9]
^    % Power, element-wise
     %   STACK: [3 4 10], [361 6859 322687697779]
*    % Multiply, element-wise
     %   STACK: [1083 27436 3226876977790]
*    % Take third input implicitly and multiply element-wise
     %   STACK: [4332 -54872 16134384888950]
s    % Sum of array
     %   STACK: 16134384838410

줄리아, 45 42 40 37 바이트

f(p,x)=sum(i->prod(i)x^abs(i[2]-1),p)

이것은 튜플과 숫자로 구성된 벡터를 가속하고 숫자를 반환하는 함수입니다. 절대 값은 지수가 음수가 아닌지 확인하는 것입니다. Julia Annoying DomainError은 정수를 음의 지수로 올릴 때 a를 던지기 때문에 필요 합니다.

온라인으로 사용해보십시오!(모든 테스트 케이스 포함)

몇 가지 수정 및 바이트를위한 Glen O에게 감사합니다.

05AB1E ,12 11 바이트

Adnan 덕분에 1 바이트를 절약했습니다.

vy¤<²smsP*O

v          For each [coefficient, power] in the input array
 y         Push [coefficient, power]
  ¤<       Compute (power-1)
   ²       Push x value (second input entry)
    sms    Push pow(x, power-1)
       P   Push coefficient * power ( = coefficient of derivative)
        *  Push coefficient * power * pow(x, power-1)
         O Sum everything and implicitly display the result

온라인으로 사용해보십시오!

부동 소수점 정밀도는 Python입니다. 나는 현재 스택 값을 두 번 교환합니다. 아마 피하고 바이트를 절약 할 수있는 방법이 있습니다.

파이썬 3, 41 바이트

@AndrasDeak 덕분에 6 바이트가 제거되었습니다 ! 사실,이 대답은 이제 내 것보다 더 그의 것입니다 ...

두 가지 수정 을 위해 @ 1Darco1 에 감사드립니다 !

lambda A,x:sum(a*b*x**(b-1) for a,b in A)

계수와 지수 (도전에서 설명한 것과 동일한 형식) 및 숫자가 포함 된 목록 목록을 허용하는 익명 함수입니다.

여기서 사용해보십시오 .

R, 31 바이트

function(a,n,x)sum(a*n*x^(n-1))

계수 a벡터, 지수 벡터 n및 x값 을 취하는 익명 함수입니다 .

Matlab, 27 바이트

이것은 계수 목록의 형태로 값 x과 다항식 을 받아들이는 익명 함수입니다 . p예를 들어 x^2 + 2로 나타낼 수 있습니다 [1,0,2].

@(x,p)polyval(polyder(p),x)

자바 스크립트 (ES7), 40 바이트

(a,n)=>a.reduce((t,c,i)=>t+i*c*n**--i,0)

a는 0을 포함한 오름차순 지수 순서로 계수의 배열입니다. 예를 들어 x ³-5는로 표시됩니다 [-5, 0, 0, 1].

Symbolic Math Toolbox를 사용한 MATLAB, 26 바이트

@(p,x)subs(diff(sym(p)),x)

이것은 익명 함수를 정의합니다. 입력은 다음과 같습니다

• p형식에서 다항식을 정의 하는 문자열'4*x^3-2*x^4+5*x^10'
• 숫자 x

사용 예 :

>> f = @(p,x)subs(diff(sym(p)),x)
f = 
    @(p,x)subs(diff(sym(p)),x)

>> f('4*x^3-2*x^4+5*x^10', 19)
ans =
16134384838410

R, 31 27 바이트

두 개의 입력을받는 명명되지 않은 함수 p및 x. p다항식의 R- 표현식으로 가정합니다 (아래 예 참조).x 단순히 평가 지점입니다.

function(p,x)eval(D(p,"x"))

그것은 D상징적 미분 wrt를 계산하는를 호출하여 작동 합니다.x 하고,은 식을 평가합니다 x.

출력 예

함수의 이름이 지정되었다고 가정하면 f다음과 같은 방식으로 호출 할 수 있습니다.

f(expression(4*x^3-2*x^4+5*x^10),19)
f(expression(0*x^4),400)
f(expression(4*x^0+5*x^1),-13)
f(expression(4.14*x^4+48*x^2),-3)
f(expression(1*x^3-5*x^0),5.4)

각각은 다음을 생성합니다.

[1] 1.613438e+13
[1] 0
[1] 5
[1] -735.12
[1] 87.48

PARI / GP , 20 바이트

a(f,n)=subst(f',x,n)

예를 들어 a(4*x^3-2*x^4+5*x^10,19)yields 16134384838410입니다.

C ++ 14 165 138 133 112 110 바이트

일반 Variadic Lambda가 많이 절약합니다. -2 바이트 #import전과 공백 삭제<

#import<cmath>
#define A auto
A f(A x){return 0;}A f(A x,A a,A b,A...p){return a*b*std::pow(x,b-1)+f(x,p...);}

언 골프 드 :

#include <cmath>

auto f(auto x){return 0;}

auto f(auto x,auto a,auto b,auto...p){
    return a*b*std::pow(x,b-1)+f(x,p...);
}

용법:

int main() {
 std::cout << f(19,4,3,-2,4,5,10) << std::endl;
 std::cout << f(400,0,4) << std::endl;
 std::cout << f(-13,4,0,5,1) << std::endl;
 std::cout << f(-3,4.14,4,48,2) << std::endl;
 std::cout << f(5.4,1,3,-5,0) << std::endl;
}

하스켈, 33 바이트

f x=sum.map(\[c,e]->c*e*x**(e-1))

용법:

> f 5.4 [[1, 3], [-5, 0]]
87.48000000000002

dc, 31 바이트

??sx0[snd1-lxr^**ln+z2<r]srlrxp

용법:

$ dc -e "??sx0[snd1-lxr^**ln+z2<r]srlrxp"
4.14 4 48 2
_3
-735.12

대시 , 33 바이트

@@sum(->@* ^#1- :1#0 1(sS *)#0)#1

용법:

(
  (
    @@sum(->@* ^#1- :1#0 1(sS *)#0)#1
  ) [[4;3];[_2;4];[5;10]]
) 19

설명

@@                             #. Curried 2-arg lambda
                               #. 1st arg -> X, 2nd arg -> Y
  sum                          #. Sum the following list:
    (map @                     #. Map over X
                               #. item list -> [A;B]
      * ^ #1 - :1#0 1(sS *)#0  #. This mess is just A*B*Y^(B-1)
    )#1                        #. X

스칼라, 46 바이트

s=>i=>s map{case(c,e)=>c*e*math.pow(i,e-1)}sum

용법:

val f:(Seq[(Double,Double)]=>Double=>Double)=
  s=>i=>s map{case(c,e)=>c*e*math.pow(i,e-1)}sum
print(f(Seq(4.0 → 3, -2.0 → 4, 5.0 → 10))(19))

설명:

s=>                        //define an anonymous function with a parameter s returning
  i=>                        //an anonymous function taking a paramater i and returning
    s map{                   //map each element of s:
      case(c,e)=>              //unpack the tuple and call the values c and e
        c*e*math.pow(i,e-1)    //calculate the value of the first derivate
    }sum                      //take the sum

공리 31 바이트

h(q,y)==eval(D(q,x),x,y)::Float

결과

 -> h(4*x^3-2*x^4+5*x^10, 19)
     161343 84838410.0

 -> h(4.14*x^4+48*x^2, -3)
     - 735.12

파이썬 2, 39 바이트

lambda p,x:sum(c*e*x**~-e for c,e in p)

lambda함수는 두 개의 입력을 소요 p하고 x. p질문에 주어진 예제 형식으로 주어진 다항식입니다. x변화율을 찾는 x 값입니다.

Pari / GP , 14 바이트

p->x->eval(p')

용법:

? (p->x->eval(p'))(4*x^3 - 2*x^4 + 5*x^10)(19)
%1 = 16134384838410

온라인으로 사용해보십시오!

C, 78 바이트

f(int*Q,int*W,int S,int x){return Q[--S]*W[S]*pow(x,W[S]-1)+(S?f(Q,W,S,x):0);}

클로저, 53 바이트

#(apply +(for[[c e]%](apply * c e(repeat(dec e)%2))))

다항식은 해시 맵으로 표현되며 키는 계수이며 값은 지수입니다.

카시오 베이직, 16 바이트

diff(a,x)|x=b

입력은의 다항식이어야합니다 x. 코드의 경우 13 바이트, +3 바이트 입력a,b 매개 변수

a에 대한 표현 을 간단하게 도출 x한 다음에을 포함 x=b합니다.

Dyalog APL, 26 25 23 바이트

{a←⍺⋄+/{×/⍵×a*2⌷⍵-1}¨⍵}

다항식을 오른쪽 인수로, 값을 왼쪽 인수로 사용합니다.