Cálculo de áreas.

O menor código que fornece a área entre a curva p (x) = a ₀ + a ₁ * x + a ₂ * x ² + ..., a linha y = 0, a linha x = 0 e a linha x = C

(ou seja, algo como isto:

)

Você pode assumir que p (x)> = 0 para x <C (pontos de bônus se o seu código funcionar com valores negativos de p (x)).

Entrada

C, a ₀ , a ₁ , ...

Resultado

um número real - a área

Exemplo 1:

input: 2, 0, 1
output: 2.0

Exemplo 2:

input: 3.0, 0, 0.0, 2
output: 18

ATUALIZAR:

• C> 0 também é assumido
• a área está entre a curva, y = 0, x = C ex = 0
• a entrada pode ser uma lista de qualquer forma; não necessariamente separado por vírgula.
• a saída pode ser real de qualquer forma (portanto, '18' é uma saída válida, assim como '18 .0 ')

Mathematica: 48 caracteres

.

Sum[#[[i+1]]#[[1]]^i/i,{i,Length@#-1}]&@Input[]

Python - 71 63 caracteres:

a=input()
print sum(1.*a[i]*a[0]**i/i for i in range(1,len(a)))

É uma integração simples de uma função polinomial entre 0e C. E não testei, mas tenho certeza de que funciona com valores negativos.

Haskell, 85 caracteres

f(c:l)=sum.map(\(i,x)->x*c**i/i)$zip[1..]l
main=getLine>>=print.f.read.('[':).(++"]")

J, 26 caracteres

f=:3 :'((1}.y)&p.d._1)0{y'

por exemplo

   f 2 0 1
2
   f 3 0 0 2
18

Ruby, 65 caracteres

i=s=0
c=gets(q=",").to_f
$<.each(q){|a|s+=a.to_f*c**(i+=1)/i}
p s

O código lê até o final da entrada, não no final da linha. Então você precisa pressionar Ctrl+ Dpara finalizar a entrada. (Insira a entrada usando echoou de um arquivo.)

C GCC 186 182 bytes

f(){i=0,l=1;float *d,s=0.0;d=malloc(sizeof(float)*50);scanf("%f",&d[0]);while(getchar()!='\n'){scanf("%f",&d[l]);l++;}for(i=0;i<l;i++)s+=d[i+1]*pow(d[0],(i+1))/(i+1);printf("%f",s);}

Este programa fornece uma saída (área) para qualquer curva entre a curva, y = 0, x = C ex = 0. Pode levar coeficientes ( floattambém) de ₀ a ₄₈ . A primeira entrada aceita é Cseguida por coeficientes. Pressione Ènterapós o último coeficiente.

void f()
{
  int i=0,l=1;
  float *d,s=0.0;
  const int sz=100;
  d=malloc(sizeof(float)*sz);

  scanf("%f",&d[0]);
  while(getchar()!='\n')
  {
    scanf("%f",&d[l]);
    l++;
  }

  for(i=0;i<l;i++)
    s+=d[i+1]*pow(d[0],(i+1))/(i+1);

   printf("%f",s);
}