%%%
%%%      Pour faciliter l'utilisation du hasard en
%%%      génération via les DCG
%%%          fichier "hasarddcg.pro"
%%%
:- consult('hasard.pro'), consult('listes.pro').

:- op(900,fy,'?').

%   ? X ne réussit qu'avec probabilité 1/X 
?X :- hasard(Y),!,Y=<1/X.
%   version DCG pour faciliter l'utilisation directe dans la grammaire
?X --> {?X}.

%   choisir un élément au hasard d'une liste
:- op(600,yfx,'?').

?(L,E):-
    longueur(L,Long),
    hasard(Long,N),
    nieme(L,N,E),!.