好的。这是我第二次发布这个问题，最后一次我的问题被少数管理员关闭，因为他们说“我没有做足够的努力来解决它”所以现在我解决了大约 70% 的问题。我希望这次有人能给我一个完成我的代码的答案。
这个问题是作为（Prolog 语言编程）的作业交给我的。
工作分配。N 项工作将使用 N 台不同的机器完成。下表给出了使用机器 i 完成工作 j 的成本。
1 2 3 4 ____________ 1| 6 5 3 6 2| 5 6 8 12 3| 8 6 8 9 4| 3 6 5 8
\\ 上面的 ( 1 2 3 4 ) 属于 (Jobs) 类别
\\左侧（1 2 3 4）属于（机器）类
编写一个声明式 Prolog 程序来确定应将哪些作业分配给哪些机器，以最小化总成本。
我做的第一步是从(Jobs) 的第一条垂直线中选择最低值的数字，然后在同一行中的所有其余数字上减去它 (3-8)、(3-6)、(3-5 ) ... 其余的垂直线以此类推。
这是我的代码（它还没有完成，所以基本上我正在寻找能够在下周一上午 12 月 23 日之前完成它的人）。
>> initial:- M1=[6,5,3,6],
M2=[5,6,8,12],
M3=[8,6,8,9],
M4=[3,6,5,8],
write('M1= ['),
printlist(M1),
write('M2= ['),
printlist(M2),
write('M3= ['),
printlist(M3),
write('M4= ['),
printlist(M4),nl,nl,
redrow(M1,L1),
redrow(M2,L2),
redrow(M3,L3),
redrow(M4,L4),
write('L1= ['),
printlist(L1),
write('L2= ['),
printlist(L2),
write('L3= ['),
printlist(L3),
write('L4= ['),
printlist(L4),nl,nl,
/*Lc1=[],
Lc2=[],
Lc3=[],
Lc4=[],*/
col1(L1,L2,L3,L4,Lc1),
col2(L1,L2,L3,L4,Lc2),
col3(L1,L2,L3,L4,Lc3),
col4(L1,L2,L3,L4,Lc4),
write('Lc1= ['),
printlist(Lc1),
write('Lc2= ['),
printlist(Lc2),
write('Lc3= ['),
printlist(Lc3),
write('Lc4= ['),
printlist(Lc4),nl,nl,
redrow(Lc1,Lx1),
redrow(Lc2,Lx2),
redrow(Lc3,Lx3),
redrow(Lc4,Lx4),
write('Lx1= ['),
printlist(Lx1),
write('Lx2= ['),
printlist(Lx2),
write('Lx3= ['),
printlist(Lx3),
write('Lx4= ['),
printlist(Lx4),nl,nl,
col1(Lx1,Lx2,Lx3,Lx4,Ly1),
col2(Lx1,Lx2,Lx3,Lx4,Ly2),
col3(Lx1,Lx2,Lx3,Lx4,Ly3),
col4(Lx1,Lx2,Lx3,Lx4,Ly4),
write('Ly1= ['),
printlist(Ly1),
write('Ly2= ['),
printlist(Ly2),
write('Ly3= ['),
printlist(Ly3),
write('Ly4= ['),
printlist(Ly4),nl,nl.
redrow(M1,L1):- minimo(M1,Min), redcopy(M1,L1,Min).
minimo([X], X) :- !.
minimo([X,Y|Tail], N):-
( X > Y ->
minimo([Y|Tail], N)
;
minimo([X|Tail], N)
).
min1(X,Y,X):- X<Y, write('in min1 X= '), write(X), nl.
min1(X,Y,Y):- X>Y,write('in min1 Y= '), write(Y), nl.
min1(X,Y,Y).
redcopy(L,R,V) :- accCp(L,R,V).
accCp([],[],_).
accCp([H|T1],[M|T2],V) :- M is H-V, accCp(T1,T2,V).
col1([H1|T1],[H2|T2],[H3|T3],[H4|T4],[H1,H2,H3,H4]).
col2([H11,H12|T1],[H21,H22|T2],[H31,H32|T3],[H41,H42|T4],[H12,H22,H32,H42]).
col3([H11,H12,H13|T1],[H21,H22,H23|T2],[H31,H32,H33|T3],[H41,H42,H43|T4],[H13,H23,H33,H43]).
col4([H11,H12,H13,H14|T1],[H21,H22,H23,H24|T2],[H31,H32,H33,H34|T3],[H41,H42,H43,H44|T4],[H14,H24,H34,H44]).
/*redcopy([],[],_).
redcopy(Ls,Ld,R):- Ls=[X|Lst],Ld=[X-R|Ld], redcopy(Lst,Ld,R).*/
printlist([]):- write(']'),nl.
printlist(L):- L=[X|Lt], write(X), write(' , '), printlist(Lt).
最后我需要知道什么问题要问计算机给我一个输出（是，否）。先感谢您 。
注意：如果我的代码或问题不清楚（请我向您解释）不要关闭我的问题，因为可能有人已经得到了答案。