SHARE
TWEET

DrugiMax

zzloss May 8th, 2019 90 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  
  2. let rec drugimax l drugi =
  3. ( match l with
  4.     | [x] -> if(maxel l > x && drugi < x) then x else drugi
  5.     | h::t -> if(maxel l > h && drugi < h) then drugimax t h else drugimax t drugi
  6. );;
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top