Prolog arithmetic syntax

前端 未结 3 1595
清酒与你
清酒与你 2021-01-14 01:32

How to define a as a integer/float number ?

I want to find the results of a+b+c+d=10 where a,b,c,d is integer and >=0

3条回答
  •  被撕碎了的回忆
    2021-01-14 02:27

    with SWI-Prolog you can use CLP(FD) library

    1 ?- use_module(library(clpfd)).
    %  library(error) compiled into error 0.00 sec, 9,764 bytes
    % library(clpfd) compiled into clpfd 0.05 sec, 227,496 bytes
    true.
    
    2 ?- Vars=[A,B,C,D],Vars ins 0..10,sum(Vars,#=,10),label(Vars).
    Vars = [0, 0, 0, 10],
    A = 0,
    B = 0,
    C = 0,
    D = 10 ;
    Vars = [0, 0, 1, 9],
    A = 0,
    B = 0,
    C = 1,
    D = 9 ;
    Vars = [0, 0, 2, 8],
    A = 0,
    B = 0,
    C = 2,
    D = 8 ;
    Vars = [0, 0, 3, 7],
    A = 0,
    B = 0,
    C = 3,
    D = 7 ;
    ...
    

提交回复
热议问题