gitweb on Svarog

projekti pod git sistemom za održavanje verzija -- projects under the git version control system
new sample - RekFib
[mjc2wsl.git] / samples / RekFib.mj
diff --git a/samples/RekFib.mj b/samples/RekFib.mj
new file mode 100644 (file)
index 0000000..1c297e5
--- /dev/null
@@ -0,0 +1,16 @@
+program RekFib{
+
+       int fib(int f)
+       {
+               if (f==0) return 0;
+               if (f==1) return 1;
+               return fib(f-1)+fib(f-2) ;
+       }
+       
+       void main()
+       int i;
+       {
+               print(fib(0));
+               print(fib(7));
+       }
+}
\ No newline at end of file
Svarog.pmf.uns.ac.rs/gitweb maintanance Doni Pracner