OCaml

Programovací jazyky odvozené od ML jsou známé pro své staticky orientované typové systémy a typy odvozující kompilátory. OCaml sjednocuje pod ML typově orientované systémy funkcionální, imperativní a objektově orientované programování.

OCaml, jakožto jazyk se statickým typovým systémem, eliminuje velké množství programátorských chyb, které se jinak mohou objevovat až při běhu programu. Nutí programátora brát ohled na omezení typově orientovaného systému. Kompilátor s typovým odvozováním značně redukuje potřebu deklarace datového typu (obvykle není potřeba deklarace proměnných jako je to u jiných programovacích jazyků, například v jazyce Java).

OCaml je možná nejvýznamnější z vedlejších programovacích jazyků vzniklých na akademické půdě, s ohledem na výkonnost. Díky tomu, že je to staticky orientovaný typový systém, není možný výskyt typových chyb za běhu. Další výhodou je, že zabraňuje^[kdo?] typování za běhu programu, které snižuje výkonnost dynamických jazyků, přičemž je stále zaručen (pouze) typově bezpečný chod programu.

OCaml distribuce obsahuje:

• Rozšířitelný parser a makro jazyk jménem Camlp4, který umožňuje OCaml syntaxi rozšířit nebo dokonce nahradit
• Scanner a parser nástroje nazvané ocamllex a ocamlyacc
• Debugger, který podporuje zpětné krokování pro zkoumání chyb
• Generátor dokumentace
• Profilování – pro měření výkonnosti

Kompilátor nativního kódu je dostupný pro mnohé platformy, včetně Unix, Microsoft Windows a  Apple Mac OS X.

OCaml bytecode a nativní kód programu může být napsán ve vláknech. Nicméně garbage kolektor není navržen pro běh ve vláknech, symetrický multiprocessing není podporován.

Základní příkaz ocaml vypíše verzi programu:

  $ ocaml
       Objective Caml version 3.09.0

  #

Kód může být zapsán na # řádku. Například pro výpočet 1 + 2 * 3:

  # 1 + 2 * 3;;
  - : int = 7

OCaml odvozuje datový typ z výrazu jako int (integer) a vrací výsledek „7“.

 print_endline "Bonjour Monde!";;

$ ocamlc bonjour.ml -o bonjour

$ ./bonjour
Bonjour Monde!
$

let rec sum xs =
  match xs with
    | [] -> 0
    | x :: xs' -> x + sum xs'

 # sum [1;2;3;4;5];;
 - : int = 15

 let rec quicksort = function
   | [] -> []
   | pivot :: rest ->
       let is_less x = x < pivot in
       let left, right = List.partition is_less rest in
       quicksort left @ [pivot] @ quicksort right

• Obrázky, zvuky či videa k tématu OCaml na Wikimedia Commons