Advertisement
Hinski2

Untitled

May 26th, 2024
14
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.21 KB | None | 0 0
  1. let min = fun x -> fun y -> if x < y then x else y in
  2. let max = fun x -> fun y -> if x > y then x else y in
  3.  
  4. fold_left
  5. (fun (a, b) x -> (min a x, max b x))
  6. ((100, -100))
  7. (Cons(5, Cons(3, Nil())))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement