trunk/Examples/guile/simple/example.c

/* Simple example from documentation */
/* File : example.c */

#include <time.h>

double My_variable = 3.0;

int fact(int n) {
  if (n <= 1) return 1;
  else return n*fact(n-1);
}

int mod(int n, int m) {
  return (n % m);
}

char *get_time() {
  long ltime;
  time(&ltime);
  return ctime(&ltime);
}