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

vault backup: 2023-09-21 10:04:37

Browse Source
This commit is contained in:
Louis Gallet 2023-09-21 10:04:37 +02:00
parent 7053cff735
commit f06bbb39d8
Signed by: lgallet
SSH Key Fingerprint: SHA256:qnW7pk4EoMRR0UftZLZQKSMUImbEFsiruLC7jbCHJAY
2 changed files with 43 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
.obsidian/workspace.json vendored
View File

@ -13,7 +13,7 @@
"state": {
"type": "markdown",
"state": {
"file": "Methodologie/Gestion.md",
"file": "Algo/Séminaire/Remediation.md",
"mode": "source",
"source": false
}
@ -97,7 +97,7 @@
"state": {
"type": "backlink",
"state": {
"file": "Methodologie/Gestion.md",
"file": "Algo/Séminaire/Remediation.md",
"collapseAll": false,
"extraContext": false,
"sortOrder": "alphabetical",
@ -114,7 +114,7 @@
"state": {
"type": "outgoing-link",
"state": {
"file": "Methodologie/Gestion.md",
"file": "Algo/Séminaire/Remediation.md",
"linksCollapsed": false,
"unlinkedCollapsed": true
}
@ -137,7 +137,7 @@
"state": {
"type": "outline",
"state": {
"file": "Methodologie/Gestion.md"
"file": "Algo/Séminaire/Remediation.md"
}
}
},
@ -170,12 +170,13 @@
},
"active": "0d2d422aa24bb900",
"lastOpenFiles": [
"Algo/Séminaire/Exercices seminaire.md",
"Algo/Séminaire/Remediation.md",
"Algo/Séminaire/Chapter 5 - Recursivity.md",
"Methodologie/Gestion.md",
"Methodologie",
"Algo/Séminaire/Chapter 4 - A bit of imperative.md",
"Algo/Séminaire/Chapter 3 - Case analysis.md",
"Algo/Séminaire/Exercices seminaire.md",
"Algo/Séminaire/Introduction.md",
"Algo/Séminaire/Chapter 2 - Functions.md",
"Algo/Séminaire/Chapter 1 - CAML basics.md",

37
Algo/Séminaire/Remediation.md Normal file
View File

@ -0,0 +1,37 @@
```Ocaml
let rec search n d =
if n = 0 then
false
else if n mod 10 = d then
true
else search (n/10) d
let rec chiffre_maximal n =
  if n < 10 && n > 0 then
    n
  else
    let dernier_chiffre = n mod 10 in
    let reste = n / 10 in
    let max_reste = chiffre_maximal reste in
    if dernier_chiffre > max_reste then
      dernier_chiffre
    else
      max_reste
```