Articles au hasard dans le Prologue

Je sais que je peux faire X is random(10). pour obtenir un nombre aléatoire de 0 à 10, mais est-il une commande similaire pour obtenir un random article correspondant?

OriginalL'auteur Pieter | 2010-02-14

  1. 4

    Vous pouvez la mettre en œuvre. Voici une version:

    %% choose(List, Elt) - chooses a random element
%% in List and unifies it with Elt.
choose([], []).
choose(List, Elt) :-
        length(List, Length),
        random(0, Length, Index),
        nth0(Index, List, Elt).

    De http://ozone.wordpress.com/2006/02/22/little-prolog-challenge/

    Oh là là, la première clause de choisir/2 n'est pas ce que vous voulez. Si la liste est vide, vous devez produire aucune des solutions au lieu de l'unifier Elt avec la liste vide. "choisir([],_) :- !, un échec." serait-il fixer. Aussi, cela génère un nombre infini de solutions qui est généralement indésirable.

    OriginalL'auteur Juanjo Conti

  2. 6

    SWI-Prolog v6 a random_member/2 définie comme ceci:

    ?- listing(random_member).
random:random_member(D, A) :-
    length(A, B),
    C is random(B),
    nth0(C, A, D).

    Exemple d'utilisation:

    ?- random_member(a(N), [a(1), a(2), b(3)]).
N = 1.

?- random_member(a(N), [a(1), a(2), b(3)]).
N = 1.

?- random_member(a(N), [a(1), a(2), b(3)]).
N = 2.

?- random_member(a(N), [a(1), a(2), b(3)]).
false.

?- random_member(a(N), [a(1), a(2), b(3)]).
false.

?- random_member(a(N), [a(1), a(2), b(3)]).
N = 2.

    Vous voulez probablement pour l'utiliser dans la (-,+) mode.

    OriginalL'auteur Kaarel