Return Styles: Pseud0ch, Terminal, Valhalla, NES, Geocities, Blue Moon.

Pages: 1-

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);}

Name: Anonymous 2013-04-14 16:06

number forloop(lambda, number, number, number, number);
number forloop(lambda __4, number a, number b, number t, lambda __5)
That prototype....

Name: Anonymous 2013-04-14 17:31

Scheme (read: Racket) in the style of scheme

(define (forloop funct start stop step)(let loop ([t start]) (unless (> t stop)(funct t)(loop (+ t step)))))
(define (integrate funct var)(cond [(> var 0) (+ (func var) (sum funct (- var 0.05))))][else 0]))
(define (gamma x)(* (integrate (lambda (t) (/ (expt t x) (expt 2.71828182846 t)))100.00) (/ 1 20)))
(forloop (lambda (x) (printf "~a - ~a\n" x (gamma x))) 0 10 1)

Name: Anonymous 2013-04-14 23:01

>>1 YAINT RED DA FUCKIN STANDARD.
Don't change these.
Name: Email:
Entire Thread Thread List
All trademarks and copyrights on this site are owned by their respective parties. All comments and posts are the responsibility of their own posters.
- Tinychan + 2ch Mode -