Pregled dvojiškega drevesa v globino/Implementacija (ocaml)

Iz MaFiRaWiki

Ta članek ali del članka je v delu. Veseli bomo, če ga boste dopolnili in popravili.

Kaj pomeni to opozorilo?

  1. type 'a drevo =
  2. | Prazno
  3. | Vozlisce of 'a * 'a drevo * 'a drevo
  4.  
  5. let preglej f g t =
  6. let rec preglej_poddrevo p = function
  7. | Prazno -> g p
  8. | Vozlisce (x,l,d) ->
  9. let q = x :: p in
  10. let a = preglej_poddrevo q l in
  11. let b = preglej_poddrevo q d in
  12. f p a b
  13. in
  14. preglej_poddrevo [] t
Osebna orodja