/trunk/Examples/mzscheme/simple/example.c

 1/* Simple example from documentation */
 2/* File : example.c */
 3
 4#include <time.h>
 5
 6double My_variable = 3.0;
 7
 8/* Compute factorial of n */
 9int fact(int n) {
10  if (n <= 1) return 1;
11  else return n*fact(n-1);
12}
13
14/* Compute n mod m */
15int my_mod(int n, int m) {
16  return (n % m);
17}
18
19
20char *get_time() {
21    long            ltime;
22    time(&ltime);
23    return ctime(&ltime);
24}