langs a-z

2013-04-10 22:43:41 -07:00 · 2013-04-10 22:43:41 -07:00 · d066446780
commit d066446780
parent db842d013d
11389 changed files with 98361 additions and 1020 deletions
--- a/Task/Anonymous-recursion/XPL0/anonymous-recursion.xpl0
+++ b/Task/Anonymous-recursion/XPL0/anonymous-recursion.xpl0
@ -0,0 +1,17 @@
+include c:\cxpl\codes;
+
+func Fib(X);
+int X;
+        func ActualFib(N);
+        int N;
+        [if N<2 then return N
+        else return ActualFib(N-1) + ActualFib(N-2);
+        ]; \ActualFib;
+
+[if X<0 then [Text(0, "Error "); return 0]
+else return ActualFib(X);
+]; \Fib;
+
+[IntOut(0, Fib(8));  CrLf(0);
+ IntOut(0, Fib(-2)); CrLf(0);
+]