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,29 @@
+#include "fcpp.hh"
+
+// uebersetze Muenzart in Muenzwert
+int nennwert (int nr)
+{
+  return cond(nr==1, 1,
+	      cond(nr==2, 2,
+		   cond(nr==3, 5,
+			cond(nr==4, 10,
+			     cond(nr==5, 20,
+				  cond(nr==6, 50, 0))))));
+}
+
+int wg (int betrag, int muenzarten)
+{
+  return cond(betrag==0, 1,
+	      cond(betrag<0 || muenzarten==0, 0,
+		   wg(betrag,muenzarten-1) +
+		   wg(betrag-nennwert(muenzarten),muenzarten)));
+}
+
+int wechselgeld (int betrag) 
+{
+  return wg(betrag,6);
+}
+
+int main (int argc, char** argv) {
+  return print(wechselgeld(readarg_int(argc,argv,1)));
+}