├── README
├── clambda0.c
├── clambda1.c
└── clambda2.c


/README:
--------------------------------------------------------------------------------
1 | Simple examples of "lambdas" for C -- while there are some limitations,
2 | they work well enough.
3 | 


--------------------------------------------------------------------------------
/clambda0.c:
--------------------------------------------------------------------------------
 1 | // Example without lambda
 2 | #include <stdio.h>
 3 | 
 4 | 
 5 | float thelist[]={ 3.141, 6.02, 42.0, 0.7 };
 6 | 
 7 | // Find average of 2X
 8 | float average2x(void)
 9 | {
10 |   int i,n=sizeof(thelist)/sizeof(thelist[0]);
11 |   float avg=0.0;
12 |   for (i=0;i<n;i++)
13 |     {
14 |       avg+=2*thelist[i];
15 |       printf("Running sum=%f\n", avg);
16 |     }
17 |   return avg/n;
18 | }
19 |   
20 | // Find avarege of x/3
21 | float averagethird(void)
22 | {
23 |   int i,n=sizeof(thelist)/sizeof(thelist[0]);
24 |   float avg=0.0;
25 |   for (i=0;i<n;i++)
26 |     {
27 |       avg+=thelist[i]/3;
28 |       printf("Running sum=%f\n", avg);
29 |     }
30 |   return avg/n;
31 | }
32 | 
33 | 
34 | int main(int argc, char *argv[])
35 | {
36 |   printf("%f\n",average2x());
37 |   printf("%f\n",averagethird());
38 |   return 0;
39 | }
40 | 


--------------------------------------------------------------------------------
/clambda1.c:
--------------------------------------------------------------------------------
 1 | // Example without lambda, but closer
 2 | #include <stdio.h>
 3 | 
 4 | 
 5 | float thelist[]={ 3.141, 6.02, 42.0, 0.7 };
 6 | 
 7 | 
 8 | float average_apply(float (*fn)(float inp))
 9 | {
10 |     int i,n=sizeof(thelist)/sizeof(thelist[0]);
11 |     float avg=0.0;
12 |     for (i=0;i<n;i++)
13 |     {
14 |         avg+=fn(thelist[i]);
15 |         printf("Running sum=%f\n", avg);
16 |     }
17 | 
18 |     return avg/n;
19 | }
20 | 
21 | 
22 | float twox(float x) { return 2*x; }
23 | float xdiv3(float x) { return x/3; }
24 | 
25 | 
26 | int main(int argc, char *argv[])
27 | {
28 |   printf("%f\n",average_apply(twox));
29 |   printf("%f\n",average_apply(xdiv3));
30 |   return 0;
31 | }
32 | 
33 | 
34 | 


--------------------------------------------------------------------------------
/clambda2.c:
--------------------------------------------------------------------------------
 1 | // Example with lambda  (needs --std=gnu99)
 2 | #include <stdio.h>
 3 | 
 4 | 
 5 | float thelist[]={ 3.141, 6.02, 42.0, 0.7 };
 6 | 
 7 | #define lambda(lambda$_ret, lambda$_args, lambda$_body)\
 8 |   ({\
 9 |     lambda$_ret lambda$__anon$ lambda$_args\
10 |       lambda$_body\
11 |     &lambda$__anon$;\
12 |   })
13 | 
14 | 
15 | float average_apply(float (*fn)(float inp))
16 | {
17 |     int i,n=sizeof(thelist)/sizeof(thelist[0]);
18 |     float avg=0.0;
19 |     for (i=0;i<n;i++)
20 |     {
21 |         avg+=fn(thelist[i]);
22 |         printf("Running sum=%f\n", avg);
23 |     }
24 | 
25 |     return avg/n;
26 | }
27 | 
28 | int main(int argc, char *argv[])
29 | {
30 |     printf("%f\n",average_apply(lambda(float,(float x),{ return 2*x; })));
31 |     printf("%f\n",average_apply(lambda(float,(float x),{ return x/3.0; })));
32 | 
33 |     return 0;
34 | }
35 | 
36 | 
37 | 


--------------------------------------------------------------------------------