X-Git-Url: http://svarog.pmf.uns.ac.rs/gitweb/?p=mjc2wsl.git;a=blobdiff_plain;f=samples%2Falpha-mj%2FRekFib.mj;fp=samples%2Falpha-mj%2FRekFib.mj;h=d3a59a50b519ae85b39f7841797d48a3e9332a7a;hp=0000000000000000000000000000000000000000;hb=77e39fac55f1a366814d35e75659cb6d88cca4e1;hpb=306587b78e421a7221952e44adde831723748e4c

diff --git a/samples/alpha-mj/RekFib.mj b/samples/alpha-mj/RekFib.mj
new file mode 100644
index 0000000..d3a59a5
--- /dev/null
+++ b/samples/alpha-mj/RekFib.mj
@@ -0,0 +1,18 @@
+program RekFib{
+
+	int fib(int f)
+	{
+		if (f==0) 
+			return 0;
+		if (f==1) 
+			return 1;
+		return fib(f-2)+fib(f-1) ;
+	}
+	
+	void main()
+	{
+		print(fib(0),3);
+		print(fib(2),3);
+		print(fib(7),3);
+	}
+}
\ No newline at end of file