Bonjour,

Je suis entrain de coder des Skip Lists (William Pugh 1990, 1994) qui
est une structure de données populaire outre-Atlantique et consiste en
une liste circulaire chaînée dont tout élément de hauteur h pointe en
outre vers son 2^k successeur avec k < h (le tout à la sauce random
américaine)

M'inspirant des listes circulaires chaînées (Cousineau et Mauny,
Pottier) j'ai écrit :

type 'a cell = { next : 'a cell array ; content : 'a }
type 'a skipList = int * 'a cell

Random.self_init ();;
let max_height = 10;;

let rec single = function x ->
  let h = Random.int max_height in
  let rec s = { next = Array.make h s ; next = x }
in (1, s)

Le compilateur répond : This kind of expression is not allowed as
right-hand side of 'let rec', me forçant à me rabattre sur un type
union

 type 'a cell = E | C of 'a cell array * 'a

Pourquoi son comportement est-il différent du cas des listes
circulaires simplement chaînées ? 

 type 'a cell = { next : 'a cell ; content ; 'a }

        Diego Olivier

note : si l'on pouvait avoir un affichage un peu plus réduit pour les
enregistrements qui pointent sur eux-mêmes ?

-------------------
To unsubscribe, mail caml-list-request@inria.fr Archives: http://caml.inria.fr
Bug reports: http://caml.inria.fr/bin/caml-bugs FAQ: http://caml.inria.fr/FAQ/
Beginner's list: http://groups.yahoo.com/group/ocaml_beginners