stehau

2022-05-15 12:54:29 +02:00
parent 383332077b
commit ba22cff91f
222 changed files with 23320 additions and 0 deletions
--- a/W2/fasto/tests/negate.fo
+++ b/W2/fasto/tests/negate.fo
@ -0,0 +1,11 @@
+fun bool write_nl(bool b) =
+  let res = write(b) in
+  let tmp = write("\n") in
+  res
+
+fun bool main() =
+  let x0 = write_nl(3 / 2 == 1) in
+  let x1 = write_nl(~3 / 2 == ~2) in
+  let x2 = write_nl(3 /~2 == ~2) in
+  let x3 = write_nl(~3 /~2 == 1) in
+  write_nl(x0 && x1 && x2 && x3)