Question

我想使用assert / 1和retract / 1生成一个5位数的随机数。我已经有以下代码，但我不知道如何生成一个5位数的数字。

    draw :-
   % length(X, 5),
   random_between(0, 99999, X),
   assert(rnumber(X)),
   write(X).

谢谢！

Answer 1

你可以做5次随机谓词，然后把它放在一个列表中。像这样：

code(X):-
    random(0,9,Elem1),
    random(0,9,Elem2),
    random(0,9,Elem3),
    random(0,9,Elem4),
    random(0,9,Elem5),
    X = [Elem1, Elem2, Elem3, Elem4, Elem5],
    retractall(rnummer(_)),
      asserta(rnummer(X).

然后，您可以稍后使用例如write(Elem1), write(Elem2), ...等

将列表转换为字符串

在Prolog中生成5位数的随机数

1 个答案: