Ver el código de «Interferencia de haplotipos 1I» - Lógica computacional y teoría de modelos (2019-20)

<source lang = "prolog">
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Instancia 1: Problema de la interferencia de haplotipos.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% Máximo número de haplotipos.

% Genotipos.

geno(1;2).
site(1..3).

g(1,1,2).    g(1,2,1).     g(1,3,2).
g(2,1,1).    g(2,2,2).     g(2,3,1).
</source>