restructure and add ipi texs

2019-11-06 18:24:04 +01:00
parent e21da561fc
commit 8fd8d2a485
155 changed files with 129 additions and 0 deletions
@@ -0,0 +1,11 @@
+#include "fcpp.hh"
+
+int fakIter (int produkt, int zaehler, int ende) 
+{
+  return cond( zaehler>ende,produkt,
+	  print("Fak:",zaehler,produkt*zaehler,
+	    fakIter(produkt*zaehler,zaehler+1,ende)));
+}
+
+int fakultaet (int n) {return fakIter(1,1,n);}
+int main () { return dump(fakultaet(10));}