Repare & et |

eval-final-projet/input/eval20.l.d

@@ -0,0 +1,16 @@
+fact( entier $f ) 
+{
+  si $f = 1 | $f = 0 alors {
+    retour 1;
+  }
+  sinon {
+    retour fact( $f - 1 ) * $f ;
+  }
+}
+
+main() 
+entier $a;
+{
+  $a = lire();
+  ecrire( fact( $a ) );
+}