Skip to content

Instantly share code, notes, and snippets.

@cohalz

cohalz/PiOC5.2.9.ml

Created January 26, 2014 09:19
Show Gist options
  • Save cohalz/8630486 to your computer and use it in GitHub Desktop.
Save cohalz/8630486 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
PiOC5.2.9.ml
let rec max_list = function
| [] -> 0
| x::xs -> let max = max_list xs in if x >= max then x else max
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment