lgallet/epicours
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

vault backup: 2023-09-07 15:20:06

Browse Source
This commit is contained in:
Louis Gallet 2023-09-07 15:20:06 +02:00
parent b6db041ec7
commit 3f91501d0c
Signed by: lgallet
SSH Key Fingerprint: SHA256:qnW7pk4EoMRR0UftZLZQKSMUImbEFsiruLC7jbCHJAY
1 changed files with 18 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
Algo/Séminaire/Exercices sémaines.md
View File

@ -107,14 +107,24 @@ val or_if: bool -> bool -> bool = <fun>
(*logical implication*)
if a && b then
true
else if not a && b then
true
else if not a && not b then
true
else
false
# let imply_if a b =
if a then b
else true;;
val imply_if: bool -> bool -> bool = <fun>
(*logical exclusive or*)
let xor a b =
if a then
if b then false else true
else
if b then true else false
(*logical equivalence = a b*)
let equiv a b =
if a then b
else
if b then false else true (*not b*)
```
### Exercise 3.3