/prog/ - C in the style of Scheme

Name: Anonymous 2013-04-14 15:50

#include <stdio.h>

#include <math.h>



#define e (double)2.71828182846



typedef double number;

typedef number (*lambda)(number, number);



number gamma();

number integrate(lambda, number, number);

number __1(number, number);

number __2(number, number);

number forloop(lambda, number, number, number, number);

number __3(number, number);



number __3(number a, number b)

{return gamma(a);}



number forloop(lambda __4, number a, number b, number t, lambda __5)

     {if(a < b){__4(a,__5(a,0)); return forloop(__4,a+t,b,t,__5);}

     {return 0.00;} }



number __2(number t, number x)

     {return printf("%d - %f\n",(int)t,(float)x);}



number __1(number t, number x)

     {return pow(t,x) / pow(e,t);}



number integrate(lambda __4, number t, number x)

     {if(t > 0){return (__4(t,x) + integrate(__4,(t - 0.05),x));}

     {return 0.00;} }



number gamma(number x)

     {return integrate(__1,100,x) / 20;}



int main(void)

     {return (int)forloop(__2,0,10,1,__3);}

C in the style of Scheme

1 Name: Anonymous 2013-04-14 15:50

Name: Anonymous 2013-04-14 15:50