Prolog,条件式

我和prolog(gprolog)一起工作很辛苦。我的问题是,我有下一个谓词:

prob(factA,factB,X,first):-   X=<50.
prob(factA,factB,X,second):-  X>50,X=<80.
prob(factA,factB,X,none):-  X>80,X=<100.

即facta有50%的发生概率,factb有30%,最后20%的非事实发生。另外,我还有其他谓词,其中更改factb而不是facta,也更改x间隔。

现在我有函子:

result(X,Y,N):- random(1,100,I),
  prob(X,Y,I,N).

这个谓词告诉prob中x和y的n是什么。这个谓词处理大小写:

result(factA,factB,N).

但现在我必须处理:

result(factB,factA,N).

它会返回一个有效的结果,有什么想法吗?我做了这样的事情:

result(X,Y,N):- Y = factA,
     random(1,100,I),
     prob(Y,X,I,N).
            J is 100-I,
     prob(Y,X,J,N).

但这并不能很好地处理“无”结果。

有人知道吗?

谢谢!