fork(1) download 
  1. type 'a nested
  2. 	= Cons of 'a * ('a list) nested
  3. 	| Nil
  4. (*
  5. let rec length x = match x with
  6. 	| Nil -> 0
  7. 	| Cons (_, tail) -> 1 + length tail
  8. *)
  9. let nest = Cons (1, Cons ([2;3;4], Cons ([[5;6];[7];[8;9]], Nil)))
  10.  
  11. let () =
  12. 	print_endline "Hello"
  13.  
Success #stdin #stdout 0s 4216KB
comments (?)
stdin 
Standard input is empty
stdout 
Hello
https://ideone.com/7RuUpR
language:
OCaml (ocamlopt 4.05.0)
created:
10 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!