Ngày tải lên :
14/07/2014, 01:21
... 1/Y1, 2/ Y2, 3/Y3, ] ) ?- model( S ), solution( S = [1/1, 2/ 1, 3/1, 4/1, S = [1/1, 2/ 8, 3/1, 4/1, S = [1 /2, 2/ 8, 3/1, 4/1, S = [1/1, 2/ 1, 3/7, 4/1, S = [1/3, 2/ 1, 3/7, 4/1, S = [1/1, 2/ 2, 3/7, ... 1/Y1, 2/ Y2, 3/Y3, 4/Y4, 5/Y5, 6/Y6, 7/Y7, 8/Y8 ] ) ?- model( S S = [1/4, S = [1/5, S = [1/3, S = [1/3, S = [1/5, S = [1/4, Yes ), solution( S 2/ 2, 3/7, 4/3, 2/ 2, 3/4, 4/7, 2/ 5, 3 /2, 4/8, 2/ 6, ... : gen( N1, N2, List ) t o m t danh sách s nguyên gi a N1 N2 : List = [ N1, N1 + 1, N1 + 2, …, N2 – 1, N2 ] Thân th t c sau : gen( N, N, [ N ] ) gen( N1, N2, [ N1 | List ] ) :N1 < N2, M is N1 +...