Name: Anonymous 2009-06-15 15:56
for(int a1=1,a2=1,i=scanf_s("%d",&i)+i-1;(i--)>2; a1=(a2+=a1)-a1,(i==2)?printf_s("Result=%d\n",a2):NULL)
fact x = if x == 0 then 1 else x * fact(x-1)fact x = if x == 0 then 1 else x * fact(x-1);main=readLn >>= print.fact
f@(_:fs) = 0 : 1 : zipWith (+) f fs
from IntroductoryExercises import Fibonacci;
main = fib;