X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;f=gesamt_ppc%2Fold_abgabe_cf.0;fp=gesamt_ppc%2Fold_abgabe_cf.0;h=5404a0934dac77e05c71ae167527a17cfa0bfd16;hb=4efb64bb228c31bf3d1701e0f0ec28f2c05ed451;hp=0000000000000000000000000000000000000000;hpb=70aa500ad5f5643fa386027158bf774a8195f604;p=testub10.git

diff --git a/gesamt_ppc/old_abgabe_cf.0 b/gesamt_ppc/old_abgabe_cf.0
new file mode 100644
index 0000000..5404a09
--- /dev/null
+++ b/gesamt_ppc/old_abgabe_cf.0
@@ -0,0 +1,15 @@
+method a(m n)
+  if m=0 then
+    return n-(-1);
+  else
+	if (0<m) then
+		if (n=0) then
+		    return a(m-1,1);
+		else
+    		return a(m-1,a(m,n-1));
+		end;
+	else
+   		return a(m-1,a(m,n-1));
+	end;		
+  end;
+end;