move samples to 'alpha-mj' subfolder

[mjc2wsl.git] / samples / alpha-mj / RekFib.mj

diff --git a/samples/alpha-mj/RekFib.mj b/samples/alpha-mj/RekFib.mj
new file mode 100644 (file)
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