Toggle navigation
?
users online
Logout
Open hangout
Open chat for current file
% Importing adequate modules for Constraint Logic Programming :- use_module(library(dif)). % Sound inequality :- use_module(library(clpfd)). % Finite domain constraints :- use_module(library(clpb)). % Boolean constraints :- use_module(library(chr)). % Constraint Handling Rules :- use_module(library(when)). % Coroutining :- use_module(library(clpq)). % Constraints over rational numbers %0 European Beech %1 European Larch %2 Norway Spruce %3 European Aspen %4 Scots Pine %5 Field maple %6 Common whitebeam %7 Common hornbeam %8 Gray dogwood %9 Silver birch planscore(Plan, Score, biodiversity) :- planscore_bd(Plan, Score). planscore_bd([],0). planscore_bd(Plan, Score) :- planscore_bd(Plan, 0, Score). planscore_bd([], Acc, Acc). planscore_bd([H_plan|T_plan], Acc, Score) :- biodiversity_score(H_plan, Tree_score), number(Tree_score), Acc_2 is Acc + Tree_score, planscore_bd(T_plan, Acc_2, Score). /*somlijst/2 slaagt desda L een lijst getallen is, * en S de som van de getallen in L is*/ somlijst([], 0). somlijst(L1, S) :- somlijst(L1, 0, S). somlijst([], A, A). somlijst([H1|B1], A, S) :- number(H1), biodiversity_score(H1, H1_value), A_2 is A + H1_value, somlijst(B1, A_2, S).