vault backup: 2023-10-16 14:54:09
This commit is contained in:
parent
4aab4c46ec
commit
7eaa933e99
@ -251,4 +251,6 @@ let assos k l =
|
||||
invalid_arg "k not natural"
|
||||
else
|
||||
match l with
|
||||
| e::t ->
|
||||
| -> failwith "not found"
|
||||
| (k,y)::t -> y
|
||||
| _ -> assos k t
|
||||
|
Loading…
x
Reference in New Issue
Block a user