fork download 
  1. let yoba_min x y z =
  2.   let min' = function
  3.     | 0, x | x, 0 -> x
  4.     | x, y -> min x y in
  5.   min' (x, min' (y, z))
  6.  
  7. let () =
  8.   Printf.printf "min %d %d %d -> %d" 0 1 2 (yoba_min 0 1 2)
Success #stdin #stdout 0s 4200KB
comments (?)
stdin 
Standard input is empty
stdout 
min 0 1 2 -> 1
https://ideone.com/4bWNr8
language:
OCaml (ocamlopt 4.05.0)
created:
9 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!