2005-04-24 08:51:33 +00:00

17 lines
300 B
C

#include <stdio.h>
#include "EvalHaskell.h"
int main(int argc, char *argv[])
{
char *p;
hs_init(&argc, &argv);
p = hs_eval_s("show $ let fibs = 1:1:zipWith (+) fibs (tail fibs) in fibs !! 20");
if (p == NULL)
printf("failed!\n");
else
printf("%s\n",p);
hs_exit();
return 0;
}