প্রোগ্রামেমেটিকভাবে "জেব্রা মালিকানাধীন" কে সমাধান করছেন?


128

সম্পাদনা করুন: এই ধাঁধাটি "আইনস্টাইনের ধাঁধা" নামেও পরিচিত

কে জেব্রা মালিক (আপনি পারেন এখানে অনলাইন সংস্করণ চেষ্টা ) পাজল -এর এটা একটা ধ্রুপদী সেট একটি উদাহরণ এবং আমি বাজি ধরে বলতে পারি স্ট্যাক ওভারফ্লো উপর অধিকাংশ লোক কলম এবং কাগজ সঙ্গে এটি সমাধান করতে পারে। তবে কোন প্রোগ্রামেটিক সমাধানটি দেখতে কেমন হবে?

নীচে তালিকাভুক্ত ক্লুগুলির উপর ভিত্তি করে ...

  • পাঁচটি বাড়ি রয়েছে।
  • প্রতিটি বাড়ির নিজস্ব বর্ণ রয়েছে।
  • সমস্ত বাড়ির মালিকরা বিভিন্ন জাতীয়তার।
  • তাদের সবার পোষা প্রাণী রয়েছে।
  • তারা সকলেই বিভিন্ন পানীয় পান করে।
  • তারা সবাই বিভিন্ন সিগারেট ধূমপান করে।
  • ইংরেজ লোকটি লাল বাড়িতে থাকে।
  • সুইডেনের একটি কুকুর রয়েছে।
  • ডেন চা পান করে।
  • সবুজ বাড়ি সাদা ঘরের বাম দিকে।
  • গ্রিন হাউসে তারা কফি পান করে।
  • যে ব্যক্তি পল মলে ধূমপান করে তার পাখি রয়েছে।
  • হলুদ ঘরে তারা ডানহিল ধূমপান করে।
  • মাঝের বাড়িতে তারা দুধ পান করে।
  • নরওয়েজিয়ানরা প্রথম বাড়িতে থাকে।
  • যে ব্যক্তি ব্লেন্ডকে ধূমপান করে সে বিড়াল নিয়ে বাড়ির পাশের বাড়িতে থাকে।
  • যে বাড়ির ঘোড়া রয়েছে তার পাশের বাড়িতে তারা ডানহিল পান করে।
  • যে ব্যক্তি ব্লু মাস্টারকে ধূমপান করে সে বিয়ার পান করে।
  • জার্মান যুবরাজ ধূমপান।
  • নরওয়েজিয়ানরা নীল বাড়ির পাশে বাস করে।
  • তারা যে বাড়ির মিশ্রণে ধূমপান করে তার পাশের বাড়িতে তারা জল পান করে।

... কে জেব্রার মালিক?


37
জেব্রাগুলিকে কখনই তথ্যের (ক্লুজ) তালিকায় উল্লেখ করা হয়নি তাই নির্দিষ্টকরণটি নির্দিষ্ট করা আছে। ঠিকাদার হিসাবে আমি তখন সমাধানে যে কোনও জেব্রাগুলির অস্তিত্ব উপেক্ষা করার জন্য নির্দ্বিধায় মুক্ত, তাই আমার উত্তরটি কেবল এই যে কোনও জেব্রা মালিক নয়, কারণ জেব্রা নেই। : ডি
পিটার এম

10
@ পিটার এম: উত্তরটি ছিল 42.
মোস্টলিহারহলেস

2
@ পিটার এম: হ্যাঁ, জেব্রা থাকার বিষয়টিও একটি সূত্র, তবে এটি এর তালিকাভুক্ত নয়।
activout.se

1
স্যাট সলভারের জন্য ভাল ব্যবহারের ক্ষেত্রে মনে হচ্ছে।
asmeurer

উত্তর:


162

সীমাবদ্ধ-প্রোগ্রামিংয়ের ভিত্তিতে পাইথনে একটি সমাধান এখানে দেওয়া হয়েছে:

from constraint import AllDifferentConstraint, InSetConstraint, Problem

# variables
colors        = "blue red green white yellow".split()
nationalities = "Norwegian German Dane Swede English".split()
pets          = "birds dog cats horse zebra".split()
drinks        = "tea coffee milk beer water".split()
cigarettes    = "Blend, Prince, Blue Master, Dunhill, Pall Mall".split(", ")

# There are five houses.
minn, maxn = 1, 5
problem = Problem()
# value of a variable is the number of a house with corresponding property
variables = colors + nationalities + pets + drinks + cigarettes
problem.addVariables(variables, range(minn, maxn+1))

# Each house has its own unique color.
# All house owners are of different nationalities.
# They all have different pets.
# They all drink different drinks.
# They all smoke different cigarettes.
for vars_ in (colors, nationalities, pets, drinks, cigarettes):
    problem.addConstraint(AllDifferentConstraint(), vars_)

# In the middle house they drink milk.
#NOTE: interpret "middle" in a numerical sense (not geometrical)
problem.addConstraint(InSetConstraint([(minn + maxn) // 2]), ["milk"])
# The Norwegian lives in the first house.
#NOTE: interpret "the first" as a house number
problem.addConstraint(InSetConstraint([minn]), ["Norwegian"])
# The green house is on the left side of the white house.
#XXX: what is "the left side"? (linear, circular, two sides, 2D house arrangment)
#NOTE: interpret it as 'green house number' + 1 == 'white house number'
problem.addConstraint(lambda a,b: a+1 == b, ["green", "white"])

def add_constraints(constraint, statements, variables=variables, problem=problem):
    for stmt in (line for line in statements if line.strip()):
        problem.addConstraint(constraint, [v for v in variables if v in stmt])

and_statements = """
They drink coffee in the green house.
The man who smokes Pall Mall has birds.
The English man lives in the red house.
The Dane drinks tea.
In the yellow house they smoke Dunhill.
The man who smokes Blue Master drinks beer.
The German smokes Prince.
The Swede has a dog.
""".split("\n")
add_constraints(lambda a,b: a == b, and_statements)

nextto_statements = """
The man who smokes Blend lives in the house next to the house with cats.
In the house next to the house where they have a horse, they smoke Dunhill.
The Norwegian lives next to the blue house.
They drink water in the house next to the house where they smoke Blend.
""".split("\n")
#XXX: what is "next to"? (linear, circular, two sides, 2D house arrangment)
add_constraints(lambda a,b: abs(a - b) == 1, nextto_statements)

def solve(variables=variables, problem=problem):
    from itertools  import groupby
    from operator   import itemgetter

    # find & print solutions
    for solution in problem.getSolutionIter():
        for key, group in groupby(sorted(solution.iteritems(), key=itemgetter(1)), key=itemgetter(1)):
            print key, 
            for v in sorted(dict(group).keys(), key=variables.index):
                print v.ljust(9),
            print

if __name__ == '__main__':
    solve()

আউটপুট:

1 yellow    Norwegian cats      water     Dunhill  
2 blue      Dane      horse     tea       Blend    
3 red       English   birds     milk      Pall Mall
4 green     German    zebra     coffee    Prince   
5 white     Swede     dog       beer      Blue Master

সমাধানটি পেতে 0.6 সেকেন্ড (সিপিইউ 1.5GHz) লাগে।
উত্তরটি "জার্মান জেব্রার মালিক own"


constraintমডিউলটির মাধ্যমে ইনস্টল করতে pip: পাইপ ইনস্টল পাইথন-সীমাবদ্ধতা

ম্যানুয়ালি ইনস্টল করতে:

  • ডাউনলোড করুন:

    $ Wget হয় https://pypi.python.org/packages/source/p/python-constraint/python-constraint-1.2.tar.bz2#md5=d58de49c85992493db53fcb59b9a0a45

  • এক্সট্রাক্ট (লিনাক্স / ম্যাক / বিএসডি):

    z bzip2 -cd পাইথন-সীমাবদ্ধতা- 1.2.tar.bz2 | টার এক্সভিএফ -

  • নিষ্কাশন (উইন্ডোজ, 7 জিপ সহ ):

    > 7z ই পাইথন-সীমাবদ্ধতা-1.2.tar.bz2
    > 7z ই পাইথন-সীমাবদ্ধতা -১.২.২০

  • ইনস্টল:

    $ সিডি পাইথন-সীমাবদ্ধতা
    -১.২ $ পাইথন সেটআপ.পিপি ইনস্টল করুন


3
আমি এটিকে ভুল বলব না। এটি কেবলমাত্র প্রতিবন্ধকতাগুলি লঙ্ঘন করে তা হ'ল গ্রিন হাউস হোয়াইট হাউস ছেড়ে যায় না। তবে আপনি সেই সীমাবদ্ধতার সংজ্ঞাটি দিয়েছেন এবং সহজেই তা সংশোধন করা যায়। প্রশ্নের লিঙ্কটি এমনকি "বামদিকে" সংকীর্ণ সংজ্ঞা দেওয়া আপনার সমাধানকে মঞ্জুরি দেয়।
মেরেটর

4
@ এলএফএসআর পরামর্শ: '//' সর্বদা একটি পূর্ণসংখ্যা বিভাগ: '3 // 2 == 1'। '/' ফ্লোট বিভাগ হতে পারে '3/2 == 1.5' (পাইথন 3.0.০ বা ' ভবিষ্যতের আমদানি বিভাগ থেকে' এর উপস্থিতিতে ) বা একটি পূর্ণসংখ্যা বিভাগ হতে পারে (সি এর মতো) '3/2 == 1' অন ' ভবিষ্যতের আমদানি বিভাগ থেকে' ছাড়া পুরানো পাইথন সংস্করণ ।
jfs

4
এটি আমি দেখেছি প্রথম সীমাবদ্ধতা প্রোগ্রাম। আপনার অজগর বাস্তবায়ন চিত্তাকর্ষক হিসাবে অনেক। আপনি কীভাবে add_constraints (), এবং_ স্টেটমেন্টস এবং নেক্সট_স্টেটমেন্ট ব্যবহার করে সীমাবদ্ধতাগুলিকে কোডিংয়ে হাত এড়িয়ে গেছেন তা খুব সুন্দর।
আরপট্টবী

1
না করার কোন কারণ আছে কি pip install python-constraint? আমি কিছুক্ষণ আগে এটি করেছি এবং এটি প্রত্যাশিত আউটপুট দেবে বলে মনে হচ্ছে।
বেন বার্নস

1
@ بینবার্নস: কোন কারণ নেই। উত্তরটি ২০০৮ সালে লেখা হয়েছিল If এটি সম্পাদনা করতে)।
jfs

46

প্রোলগে, আমরা কেবলমাত্র এর থেকে উপাদানগুলি নির্বাচন করে ডোমেনটি ইনস্ট্যান্ট করতে পারি :) ( দক্ষতার জন্য পারস্পরিক-একচেটিয়া পছন্দগুলি তৈরি করা )। এসডাব্লুআই-প্রোলগ ব্যবহার করে,

select([A|As],S):- select(A,S,S1),select(As,S1).
select([],_). 

left_of(A,B,C):- append(_,[A,B|_],C).  
next_to(A,B,C):- left_of(A,B,C) ; left_of(B,A,C).

zebra(Owns, HS):-     % house: color,nation,pet,drink,smokes
  HS   = [ h(_,norwegian,_,_,_),    h(blue,_,_,_,_),   h(_,_,_,milk,_), _, _], 
  select([ h(red,brit,_,_,_),       h(_,swede,dog,_,_), 
           h(_,dane,_,tea,_),       h(_,german,_,_,prince)], HS),
  select([ h(_,_,birds,_,pallmall), h(yellow,_,_,_,dunhill),
           h(_,_,_,beer,bluemaster)],                        HS), 
  left_of( h(green,_,_,coffee,_),   h(white,_,_,_,_),        HS),
  next_to( h(_,_,_,_,dunhill),      h(_,_,horse,_,_),        HS),
  next_to( h(_,_,_,_,blend),        h(_,_,cats, _,_),        HS),
  next_to( h(_,_,_,_,blend),        h(_,_,_,water,_),        HS),
  member(  h(_,Owns,zebra,_,_),                              HS).

তাত্ক্ষণিকভাবে চলে:

?- time( (zebra(Who,HS), writeln(Who), nl, maplist(writeln,HS), nl, false 
          ; writeln('no more solutions!') )).
german

h( yellow, norwegian, cats,   water,  dunhill   )
h( blue,   dane,      horse,  tea,    blend     )
h( red,    brit,      birds,  milk,   pallmall  )
h( green,  german,    zebra,  coffee, prince    )     % formatted by hand
h( white,  swede,     dog,    beer,   bluemaster)

no more solutions!
% 1,706 inferences, 0.000 CPU in 0.070 seconds (0% CPU, Infinite Lips)
true.

16

একটি পোস্টার ইতিমধ্যে উল্লেখ করেছে যে প্রোলোগ একটি সম্ভাব্য সমাধান। এটি সত্য, এবং এটিই আমি ব্যবহার করব solution আরও সাধারণ শব্দে, এটি একটি স্বয়ংক্রিয় অনুমিত সিস্টেমের জন্য একটি নিখুঁত সমস্যা। প্রোলোগ হ'ল লজিক প্রোগ্রামিং ল্যাঙ্গুয়েজ (এবং সম্পর্কিত দোভাষী) যা এই জাতীয় সিস্টেম গঠন করে। এটি মূলত প্রথম আদেশ যুক্তি ব্যবহার করে দেওয়া বিবৃতিগুলি থেকে তথ্য উপসংহারের অনুমতি দেয় । FOL মূলত প্রস্তাবিত যুক্তির আরও উন্নত রূপ। আপনি যদি সিদ্ধান্ত নেন যে আপনি প্রোলগটি ব্যবহার করতে চান না, আপনি সিদ্ধান্তটি আঁকতে মোডাস পোনেন্সের মতো প্রযুক্তি ব্যবহার করে নিজের তৈরির অনুরূপ একটি সিস্টেম ব্যবহার করতে পারেন ।

অবশ্যই, আপনাকে জেব্রা সম্পর্কে কিছু বিধি যুক্ত করতে হবে, যেহেতু এটি কোথাও উল্লেখ করা হয়নি ... আমি বিশ্বাস করি অভিপ্রায়টি হ'ল আপনি অন্য 4 পোষা প্রাণীকে খুঁজে বের করতে পারেন এবং এইভাবে শেষটিটি জেব্রা হ্রাস করতে পারেন? আপনি এমন নিয়ম যুক্ত করতে চাইবেন যে পোষাগুলির মধ্যে একটি জেব্রা অন্যতম, এবং প্রতিটি ঘরে একটি করে পোষা প্রাণী থাকতে পারে state এই ধরণের "সাধারণ জ্ঞান" জ্ঞানকে একটি অনুমানের সিস্টেমে প্রাপ্তি প্রযুক্তিটিকে সত্যই এআই হিসাবে ব্যবহার করার ক্ষেত্রে প্রধান প্রতিবন্ধকতা। সাইকের মতো কিছু গবেষণা প্রকল্প রয়েছে, যারা ব্রুট ফোর্সের মাধ্যমে এ জাতীয় সাধারণ জ্ঞান দেওয়ার চেষ্টা করছে। তারা একটি সফল পরিমাণে সাফল্যের সাথে মিলিত হয়েছে।


"সাধারণ জ্ঞান" বিধি সম্পর্কে ভাল বক্তব্য। আমার মনে আছে বছরখানেক আগে " বাড়ির পাশের বাড়ি " এই বাক্যাংশটি ব্যাখ্যা করার সাথে আমি খুব জোট বেঁধেছিলাম - এর অর্থ কি এখানে কেবল একটি আছে? এটা সুস্পষ্ট নয়।
ক্রিস

ডুড সাইক কয়েক দশক ধরে কোনও ধরণের বিপ্লবী পদ্ধতি ছাড়াই চলে আসছে। কিন্ডা দু: খিত, সাহসী মডেলগুলির উপর জোরের বাহিনীকে পরাস্ত করতে দেখতে ঝরঝরে হবে।
জোশ

আমরা আমাদের এআই কোর্সে এই জাতীয় তথ্য হ্রাস করতে ইউনিতে ক্লিপ ব্যবহার করেছি used
জোশ স্মিটন

15

এসডাব্লুআই-প্রোলোগ সামঞ্জস্যপূর্ণ:

% NOTE - This may or may not be more efficent. A bit verbose, though.
left_side(L, R, [L, R, _, _, _]).
left_side(L, R, [_, L, R, _, _]).
left_side(L, R, [_, _, L, R, _]).
left_side(L, R, [_, _, _, L, R]).

next_to(X, Y, Street) :- left_side(X, Y, Street).
next_to(X, Y, Street) :- left_side(Y, X, Street).

m(X, Y) :- member(X, Y).

get_zebra(Street, Who) :- 
    Street = [[C1, N1, P1, D1, S1],
              [C2, N2, P2, D2, S2],
              [C3, N3, P3, D3, S3],
              [C4, N4, P4, D4, S4],
              [C5, N5, P5, D5, S5]],
    m([red, english, _, _, _], Street),
    m([_, swede, dog, _, _], Street),
    m([_, dane, _, tea, _], Street),
    left_side([green, _, _, _, _], [white, _, _, _, _], Street),
    m([green, _, _, coffee, _], Street),
    m([_, _, birds, _, pallmall], Street),
    m([yellow, _, _, _, dunhill], Street),
    D3 = milk,
    N1 = norwegian,
    next_to([_, _, _, _, blend], [_, _, cats, _, _], Street),
    next_to([_, _, horse, _, _], [_, _, _, _, dunhill], Street),
    m([_, _, _, beer, bluemaster], Street),
    m([_, german, _, _, prince], Street),
    next_to([_, norwegian, _, _, _], [blue, _, _, _, _], Street),
    next_to([_, _, _, water, _], [_, _, _, _, blend], Street),
    m([_, Who, zebra, _, _], Street).

দোভাষী:

?- get_zebra(Street, Who).
Street = ...
Who = german

13

আমি এটি সম্পর্কে কীভাবে যাব তা এখানে। প্রথমে আমি অর্ডার করা সমস্ত এন-টিপলস তৈরি করতাম

(housenumber, color, nationality, pet, drink, smoke)

এর মধ্যে 5 ^ 6, 15625, সহজেই পরিচালনাযোগ্য। তারপরে আমি সহজ বুলিয়ান শর্তগুলি ফিল্টার করব। তাদের মধ্যে দশটি রয়েছে এবং আপনি প্রত্যেকে ৮/২৫ শর্তের ফিল্টার করে ফেলতে পারবেন বলে আশা করছেন (শর্তের ১/২৫ কুকুরের সাথে সুইড থাকে, ১//২৫ একটি কুকুরবিহীন সুইড থাকে) । অবশ্যই তারা স্বাধীন নয় তবে এগুলি ফিল্টার করার পরে অনেকগুলি বাম হওয়া উচিত নয়।

এর পরে, আপনি একটি দুর্দান্ত গ্রাফ সমস্যা পেয়েছেন। প্রতিটি নোডের সাথে বাকি এন-টিপলগুলির মধ্যে একটি উপস্থাপন করে একটি গ্রাফ তৈরি করুন। গ্রাফটিতে প্রান্তগুলি যুক্ত করুন যদি দুটি প্রান্তে কিছু এন-টিপল অবস্থানে সদৃশ থাকে বা কোনও 'অবস্থানগত' সীমাবদ্ধতা লঙ্ঘন করে (এর মধ্যে পাঁচটি রয়েছে)। সেখান থেকে আপনি প্রায় বাড়িতে, পাঁচটি নোডের একটি স্বাধীন সেটের জন্য গ্রাফটি অনুসন্ধান করুন (কোনটি নোডের সাথে সংযুক্ত নয়)। যদি খুব বেশি পরিমাণ না থাকে তবে আপনি সম্ভবত নিঃসৃতভাবে সমস্ত 5 টি টিপলস এন-টিপলস তৈরি করতে পারেন এবং কেবল সেগুলি আবার ফিল্টার করতে পারেন।

এটি কোড গল্ফের জন্য ভাল প্রার্থী হতে পারে। কেউ সম্ভবত একটি লাইনে হ্যাশেল এর মতো কিছু দিয়ে সমাধান করতে পারে :)

চিন্তাভাবনা: প্রাথমিক ফিল্টার পাস অবস্থানগত সীমাবদ্ধতাগুলি থেকে তথ্যকেও দূর করতে পারে। বেশি নয় (1/25) তবে তাৎপর্যপূর্ণ।


কোড গল্ফের জন্য, কোনও সমাধান প্রযুক্তিগতভাবে কেবল উত্তরটি মুদ্রণ করতে পারে, এটি একটি "হ্যালো ওয়ার্ল্ড" কোড গল্ফের সমতুল্য করে তোলে। একটি আকর্ষণীয় কোড গল্ফ পেতে আপনাকে সমস্যাটি সাধারণীকরণ করতে হবে, এবং এটি তুচ্ছভাবে সাধারণকরণ করে না।
অ্যাডাম রোজেনফিল্ড

পয়েন্ট তোলা হয়েছে :) আমার হাস্কেলটি ভার্বোজ কিন্তু আমার স্কোরটি যাইহোক পার্কের বাইরে ছিল :)
ক্রিস

1
আমি মনে করি আপনার সম্ভাব্য সমাধানগুলির 5 ^ 6 মূল্যায়ন বন্ধ। আমি বিশ্বাস করি যে 'মি' বিভাগগুলির মধ্যে 'আই' আইটেমগুলির সম্ভাব্য সংমিশ্রণের সংখ্যাটি (i!) ^ (মি -1) হওয়া উচিত। উদাহরণস্বরূপ, রঙের জন্য পাঁচটি বিকল্পের ব্যবস্থা করা যেতে পারে 5! উপায়। বাড়ির নম্বর বিভাগ সরবরাহ করা একই ক্রমে থাকে, অন্যান্য 5 টি বিভাগের প্রতিটি একইভাবে সাজানো যেতে পারে, যার অর্থ সম্ভাব্য সংমিশ্রণগুলি (5!) ^ 5 বা 24,883,200,000; 15,625 এর চেয়ে বেশ খানিকটা বেশি এবং সামলানো আক্রমণটিকে মোকাবেলা করা আরও শক্ত করে তোলা।
মিডনাইটলাইটিং

1
15,625 তার সমাধান কৌশলটির ভিত্তিতে নির্ভুল। আপনি যদি সমস্ত ভেরিয়েবলের জন্য প্রতিটি সম্ভাব্য রাষ্ট্র অর্পণ করতে চেয়েছিলেন তবে এটি অনেক বড় হবে তবে তিনি কেবল আংশিক রাজ্য তৈরি করতে বেছে নিচ্ছেন, সেগুলি চিপ করে রেখেছেন, তারপরে চূড়ান্ত উত্তরটি একসাথে রাখার জন্য অন্য কৌশলটি ব্যবহার করুন।
নিক লারসেন

9

আর একটি পাইথন সমাধান, এবার পাইথনের পাইকেই (পাইথন নলেজ ইঞ্জিন) ব্যবহার করুন। মঞ্জুর, @ জেএসএফেসেস্টিয়ান দ্বারা সমাধানে পাইথনের "সীমাবদ্ধতা" মডিউলটি ব্যবহার করার চেয়ে এটি আরও ভার্জোজ, তবে এই ধরণের সমস্যার জন্য কাঁচা জ্ঞানের ইঞ্জিনের সন্ধানকারী যে কোনও ব্যক্তির জন্য এটি একটি আকর্ষণীয় তুলনা সরবরাহ করে।

clues.kfb

categories( POSITION, 1, 2, 3, 4, 5 )                                   # There are five houses.
categories( HOUSE_COLOR, blue, red, green, white, yellow )              # Each house has its own unique color.
categories( NATIONALITY, Norwegian, German, Dane, Swede, English )      # All house owners are of different nationalities.
categories( PET, birds, dog, cats, horse, zebra )                       # They all have different pets.
categories( DRINK, tea, coffee, milk, beer, water )                     # They all drink different drinks.
categories( SMOKE, Blend, Prince, 'Blue Master', Dunhill, 'Pall Mall' ) # They all smoke different cigarettes.

related( NATIONALITY, English, HOUSE_COLOR, red )    # The English man lives in the red house.
related( NATIONALITY, Swede, PET, dog )              # The Swede has a dog.
related( NATIONALITY, Dane, DRINK, tea )             # The Dane drinks tea.
left_of( HOUSE_COLOR, green, HOUSE_COLOR, white )    # The green house is on the left side of the white house.
related( DRINK, coffee, HOUSE_COLOR, green )         # They drink coffee in the green house.
related( SMOKE, 'Pall Mall', PET, birds )            # The man who smokes Pall Mall has birds.
related( SMOKE, Dunhill, HOUSE_COLOR, yellow )       # In the yellow house they smoke Dunhill.
related( POSITION, 3, DRINK, milk )                  # In the middle house they drink milk.
related( NATIONALITY, Norwegian, POSITION, 1 )       # The Norwegian lives in the first house.
next_to( SMOKE, Blend, PET, cats )                   # The man who smokes Blend lives in the house next to the house with cats.
next_to( SMOKE, Dunhill, PET, horse )                # In the house next to the house where they have a horse, they smoke Dunhill.
related( SMOKE, 'Blue Master', DRINK, beer )         # The man who smokes Blue Master drinks beer.
related( NATIONALITY, German, SMOKE, Prince )        # The German smokes Prince.
next_to( NATIONALITY, Norwegian, HOUSE_COLOR, blue ) # The Norwegian lives next to the blue house.
next_to( DRINK, water, SMOKE, Blend )                # They drink water in the house next to the house where they smoke Blend.

relations.krb

#############
# Categories

# Foreach set of categories, assert each type
categories
    foreach
        clues.categories($category, $thing1, $thing2, $thing3, $thing4, $thing5)
    assert
        clues.is_category($category, $thing1)
        clues.is_category($category, $thing2)
        clues.is_category($category, $thing3)
        clues.is_category($category, $thing4)
        clues.is_category($category, $thing5)


#########################
# Inverse Relationships

# Foreach A=1, assert 1=A
inverse_relationship_positive
    foreach
        clues.related($category1, $thing1, $category2, $thing2)
    assert
        clues.related($category2, $thing2, $category1, $thing1)

# Foreach A!1, assert 1!A
inverse_relationship_negative
    foreach
        clues.not_related($category1, $thing1, $category2, $thing2)
    assert
        clues.not_related($category2, $thing2, $category1, $thing1)

# Foreach "A beside B", assert "B beside A"
inverse_relationship_beside
    foreach
        clues.next_to($category1, $thing1, $category2, $thing2)
    assert
        clues.next_to($category2, $thing2, $category1, $thing1)


###########################
# Transitive Relationships

# Foreach A=1 and 1=a, assert A=a
transitive_positive
    foreach
        clues.related($category1, $thing1, $category2, $thing2)
        clues.related($category2, $thing2, $category3, $thing3)

        check unique($thing1, $thing2, $thing3) \
          and unique($category1, $category2, $category3)
    assert
        clues.related($category1, $thing1, $category3, $thing3)

# Foreach A=1 and 1!a, assert A!a
transitive_negative
    foreach
        clues.related($category1, $thing1, $category2, $thing2)
        clues.not_related($category2, $thing2, $category3, $thing3)

        check unique($thing1, $thing2, $thing3) \
          and unique($category1, $category2, $category3)
    assert
        clues.not_related($category1, $thing1, $category3, $thing3)


##########################
# Exclusive Relationships

# Foreach A=1, assert A!2 and A!3 and A!4 and A!5
if_one_related_then_others_unrelated
    foreach
        clues.related($category, $thing, $category_other, $thing_other)
        check unique($category, $category_other)

        clues.is_category($category_other, $thing_not_other)
        check unique($thing, $thing_other, $thing_not_other)
    assert
        clues.not_related($category, $thing, $category_other, $thing_not_other)

# Foreach A!1 and A!2 and A!3 and A!4, assert A=5
if_four_unrelated_then_other_is_related
    foreach
        clues.not_related($category, $thing, $category_other, $thingA)
        clues.not_related($category, $thing, $category_other, $thingB)
        check unique($thingA, $thingB)

        clues.not_related($category, $thing, $category_other, $thingC)
        check unique($thingA, $thingB, $thingC)

        clues.not_related($category, $thing, $category_other, $thingD)
        check unique($thingA, $thingB, $thingC, $thingD)

        # Find the fifth variation of category_other.
        clues.is_category($category_other, $thingE)
        check unique($thingA, $thingB, $thingC, $thingD, $thingE)
    assert
        clues.related($category, $thing, $category_other, $thingE)


###################
# Neighbors: Basic

# Foreach "A left of 1", assert "A beside 1"
expanded_relationship_beside_left
    foreach
        clues.left_of($category1, $thing1, $category2, $thing2)
    assert
        clues.next_to($category1, $thing1, $category2, $thing2)

# Foreach "A beside 1", assert A!1
unrelated_to_beside
    foreach
        clues.next_to($category1, $thing1, $category2, $thing2)
        check unique($category1, $category2)
    assert
        clues.not_related($category1, $thing1, $category2, $thing2)


###################################
# Neighbors: Spatial Relationships

# Foreach "A beside B" and "A=(at-edge)", assert "B=(near-edge)"
check_next_to_either_edge
    foreach
        clues.related(POSITION, $position_known, $category, $thing)
        check is_edge($position_known)

        clues.next_to($category, $thing, $category_other, $thing_other)

        clues.is_category(POSITION, $position_other)
        check is_beside($position_known, $position_other)
    assert
        clues.related(POSITION, $position_other, $category_other, $thing_other)

# Foreach "A beside B" and "A!(near-edge)" and "B!(near-edge)", assert "A!(at-edge)"
check_too_close_to_edge
    foreach
        clues.next_to($category, $thing, $category_other, $thing_other)

        clues.is_category(POSITION, $position_edge)
        clues.is_category(POSITION, $position_near_edge)
        check is_edge($position_edge) and is_beside($position_edge, $position_near_edge)

        clues.not_related(POSITION, $position_near_edge, $category, $thing)
        clues.not_related(POSITION, $position_near_edge, $category_other, $thing_other)
    assert
        clues.not_related(POSITION, $position_edge, $category, $thing)

# Foreach "A beside B" and "A!(one-side)", assert "A=(other-side)"
check_next_to_with_other_side_impossible
    foreach
        clues.next_to($category, $thing, $category_other, $thing_other)

        clues.related(POSITION, $position_known, $category_other, $thing_other)
        check not is_edge($position_known)

        clues.not_related($category, $thing, POSITION, $position_one_side)
        check is_beside($position_known, $position_one_side)

        clues.is_category(POSITION, $position_other_side)
        check is_beside($position_known, $position_other_side) \
          and unique($position_known, $position_one_side, $position_other_side)
    assert
        clues.related($category, $thing, POSITION, $position_other_side)

# Foreach "A left of B"...
#   ... and "C=(position1)" and "D=(position2)" and "E=(position3)"
# ~> assert "A=(other-position)" and "B=(other-position)+1"
left_of_and_only_two_slots_remaining
    foreach
        clues.left_of($category_left, $thing_left, $category_right, $thing_right)

        clues.related($category_left, $thing_left_other1, POSITION, $position1)
        clues.related($category_left, $thing_left_other2, POSITION, $position2)
        clues.related($category_left, $thing_left_other3, POSITION, $position3)
        check unique($thing_left, $thing_left_other1, $thing_left_other2, $thing_left_other3)

        clues.related($category_right, $thing_right_other1, POSITION, $position1)
        clues.related($category_right, $thing_right_other2, POSITION, $position2)
        clues.related($category_right, $thing_right_other3, POSITION, $position3)
        check unique($thing_right, $thing_right_other1, $thing_right_other2, $thing_right_other3)

        clues.is_category(POSITION, $position4)
        clues.is_category(POSITION, $position5)

        check is_left_right($position4, $position5) \
          and unique($position1, $position2, $position3, $position4, $position5)
    assert
        clues.related(POSITION, $position4, $category_left, $thing_left)
        clues.related(POSITION, $position5, $category_right, $thing_right)


#########################

fc_extras

    def unique(*args):
        return len(args) == len(set(args))

    def is_edge(pos):
        return (pos == 1) or (pos == 5)

    def is_beside(pos1, pos2):
        diff = (pos1 - pos2)
        return (diff == 1) or (diff == -1)

    def is_left_right(pos_left, pos_right):
        return (pos_right - pos_left == 1)

চালক.পি (আসলে আরও বড়, তবে এটি সারমর্ম)

from pyke import knowledge_engine

engine = knowledge_engine.engine(__file__)
engine.activate('relations')

try:
    natl = engine.prove_1_goal('clues.related(PET, zebra, NATIONALITY, $nationality)')[0].get('nationality')
except Exception, e:
    natl = "Unknown"
print "== Who owns the zebra? %s ==" % natl

নমুনা আউটপুট:

$ python driver.py

== Who owns the zebra? German ==

#   Color    Nationality    Pet    Drink       Smoke    
=======================================================
1   yellow   Norwegian     cats    water    Dunhill     
2   blue     Dane          horse   tea      Blend       
3   red      English       birds   milk     Pall Mall   
4   green    German        zebra   coffee   Prince      
5   white    Swede         dog     beer     Blue Master 

Calculated in 1.19 seconds.

সূত্র: https://github.com/DreadPirateSawn/pyke-who-owns-zebra


8

সি # তে আইনস্টাইনের ধাঁধাতে পোস্ট করা এনসলভার ব্যবহার করে সম্পূর্ণ সমাধানের একটি অংশ এখানে দেওয়া হয়েছে :

// The green house's owner drinks coffee
Post(greenHouse.Eq(coffee));
// The person who smokes Pall Mall rears birds 
Post(pallMall.Eq(birds));
// The owner of the yellow house smokes Dunhill 
Post(yellowHouse.Eq(dunhill));

5
এখানে টিনিআরএল ব্যবহার করার দরকার নেই, আছে কি? তারা সবাই আমার কাছে রিকারোলগুলির মতো দেখাচ্ছে।
কার্ল

1
আমি মেয়াদোত্তীর্ণ টিনিউরাল ঠিক করেছি।
jfs

@LamonteCristo Wayback মেশিন উদ্ধার করতে।
আনুমানিক

8

এখানে সিএলপি (এফডি) এর একটি সরল সমাধান রয়েছে (এটি দেখুন ):

:- use_module(library(clpfd)).

solve(ZebraOwner) :-
    maplist( init_dom(1..5), 
        [[British,  Swedish,  Danish,  Norwegian, German],     % Nationalities
         [Red,      Green,    Blue,    White,     Yellow],     % Houses
         [Tea,      Coffee,   Milk,    Beer,      Water],      % Beverages
         [PallMall, Blend,    Prince,  Dunhill,   BlueMaster], % Cigarettes
         [Dog,      Birds,    Cats,    Horse,     Zebra]]),    % Pets
    British #= Red,        % Hint 1
    Swedish #= Dog,        % Hint 2
    Danish #= Tea,         % Hint 3
    Green #= White - 1 ,   % Hint 4
    Green #= Coffee,       % Hint 5
    PallMall #= Birds,     % Hint 6
    Yellow #= Dunhill,     % Hint 7
    Milk #= 3,             % Hint 8
    Norwegian #= 1,        % Hint 9
    neighbor(Blend, Cats),     % Hint 10
    neighbor(Horse, Dunhill),  % Hint 11
    BlueMaster #= Beer,        % Hint 12
    German #= Prince,          % Hint 13
    neighbor(Norwegian, Blue), % Hint 14
    neighbor(Blend, Water),    % Hint 15
    memberchk(Zebra-ZebraOwner, [British-british, Swedish-swedish, Danish-danish,
                                 Norwegian-norwegian, German-german]).

init_dom(R, L) :-
    all_distinct(L),
    L ins R.

neighbor(X, Y) :-
    (X #= (Y - 1)) #\/ (X #= (Y + 1)).

এটি চালানো, উত্পাদন করে:

3? - সময় (সমাধান (জেড))।
% 111,798 অনুমান, 0.020 সেকেন্ডে 0.016 সিপিইউ (78% সিপিইউ, 7166493 ঠোঁট)
জেড = জার্মান।


neighbor(X,Y) :- abs(X-Y) #= 1.
ভুয়া


7

ES6 (জাভাস্ক্রিপ্ট) সমাধান

প্রচুর সঙ্গে ES6 জেনারেটর এবং একটি সামান্য বিট lodash । এটি চালানোর জন্য আপনার বাবেলের প্রয়োজন হবে ।

var _ = require('lodash');

function canBe(house, criteria) {
    for (const key of Object.keys(criteria))
        if (house[key] && house[key] !== criteria[key])
            return false;
    return true;
}

function* thereShouldBe(criteria, street) {
    for (const i of _.range(street.length))
        yield* thereShouldBeAtIndex(criteria, i, street);
}

function* thereShouldBeAtIndex(criteria, index, street) {
    if (canBe(street[index], criteria)) {
        const newStreet = _.cloneDeep(street);
        newStreet[index] = _.assign({}, street[index], criteria);
        yield newStreet;
    }
}

function* leftOf(critA, critB, street) {
    for (const i of _.range(street.length - 1)) {
        if (canBe(street[i], critA) && canBe(street[i+1], critB)) {
            const newStreet = _.cloneDeep(street);
            newStreet[i  ] = _.assign({}, street[i  ], critA);
            newStreet[i+1] = _.assign({}, street[i+1], critB);
            yield newStreet;
        }
    }
}
function* nextTo(critA, critB, street) {
    yield* leftOf(critA, critB, street);
    yield* leftOf(critB, critA, street);
}

const street = [{}, {}, {}, {}, {}]; // five houses

// Btw: it turns out we don't need uniqueness constraint.

const constraints = [
    s => thereShouldBe({nation: 'English', color: 'red'}, s),
    s => thereShouldBe({nation: 'Swede', animal: 'dog'}, s),
    s => thereShouldBe({nation: 'Dane', drink: 'tea'}, s),
    s => leftOf({color: 'green'}, {color: 'white'}, s),
    s => thereShouldBe({drink: 'coffee', color: 'green'}, s),
    s => thereShouldBe({cigarettes: 'PallMall', animal: 'birds'}, s),
    s => thereShouldBe({color: 'yellow', cigarettes: 'Dunhill'}, s),
    s => thereShouldBeAtIndex({drink: 'milk'}, 2, s),
    s => thereShouldBeAtIndex({nation: 'Norwegian'}, 0, s),
    s => nextTo({cigarettes: 'Blend'}, {animal: 'cats'}, s),
    s => nextTo({animal: 'horse'}, {cigarettes: 'Dunhill'}, s),
    s => thereShouldBe({cigarettes: 'BlueMaster', drink: 'beer'}, s),
    s => thereShouldBe({nation: 'German', cigarettes: 'Prince'}, s),
    s => nextTo({nation: 'Norwegian'}, {color: 'blue'}, s),
    s => nextTo({drink: 'water'}, {cigarettes: 'Blend'}, s),

    s => thereShouldBe({animal: 'zebra'}, s), // should be somewhere
];

function* findSolution(remainingConstraints, street) {
    if (remainingConstraints.length === 0)
        yield street;
    else
        for (const newStreet of _.head(remainingConstraints)(street))
            yield* findSolution(_.tail(remainingConstraints), newStreet);
}

for (const streetSolution of findSolution(constraints, street)) {
    console.log(streetSolution);
}

ফলাফল:

[ { color: 'yellow',
    cigarettes: 'Dunhill',
    nation: 'Norwegian',
    animal: 'cats',
    drink: 'water' },
  { nation: 'Dane',
    drink: 'tea',
    cigarettes: 'Blend',
    animal: 'horse',
    color: 'blue' },
  { nation: 'English',
    color: 'red',
    cigarettes: 'PallMall',
    animal: 'birds',
    drink: 'milk' },
  { color: 'green',
    drink: 'coffee',
    nation: 'German',
    cigarettes: 'Prince',
    animal: 'zebra' },
  { nation: 'Swede',
    animal: 'dog',
    color: 'white',
    cigarettes: 'BlueMaster',
    drink: 'beer' } ]

রান সময় আমার জন্য প্রায় 2.5s, তবে নিয়মের ক্রম পরিবর্তন করে এটি অনেক উন্নতি করা যেতে পারে। আমি পরিষ্কার করার জন্য মূল আদেশটি রাখার সিদ্ধান্ত নিয়েছি।

ধন্যবাদ, এটি একটি দুর্দান্ত চ্যালেঞ্জ ছিল!


4

এটি সত্যিই একটি সমস্যা সমাধানের সীমাবদ্ধতা। ভাষাগুলির মতো লজিক-প্রোগ্রামিংয়ে একটি সাধারণ ধরণের বাধা প্রচারের মাধ্যমে এটি করতে পারেন। এএলই (অ্যাট্রিবিউট লজিক ইঞ্জিন) সিস্টেমে জেব্রা সমস্যার জন্য আমাদের একটি ডেমো রয়েছে:

http://www.cs.toronto.edu/~gpenn/ale.html

সরলীকৃত জেব্রা ধাঁধাটির কোডিংয়ের লিঙ্কটি এখানে:

http://www.cs.toronto.edu/~gpenn/ale/files/grammars/baby.pl

দক্ষতার সাথে এটি করা অন্য বিষয়।


3

প্রোগ্রামিক্যালি এই জাতীয় সমস্যা সমাধানের সহজতম উপায় হ'ল সমস্ত অনুমোদনের উপরে নেস্টেড লুপগুলি ব্যবহার করা এবং ফলাফলটি প্রশ্নের পূর্বাভাসকে সন্তুষ্ট করে কিনা তা পরীক্ষা করে দেখুন। উত্তরকে যুক্তিসঙ্গত সময়ে গণনা করা না হওয়া পর্যন্ত গণনা সংক্রান্ত জটিলতা নাটকীয়ভাবে হ্রাস করার জন্য অনেকগুলি পূর্বাভাস অভ্যন্তরীণ লুপ থেকে বাইরের লুপগুলিতে তোলা যায়।

এফ # জার্নালের একটি নিবন্ধ থেকে প্রাপ্ত একটি সাধারণ F # সমাধান এখানে দেওয়া হয়েছে :

let rec distribute y xs =
  match xs with
  | [] -> [[y]]
  | x::xs -> (y::x::xs)::[for xs in distribute y xs -> x::xs]

let rec permute xs =
  match xs with
  | [] | [_] as xs -> [xs]
  | x::xs -> List.collect (distribute x) (permute xs)

let find xs x = List.findIndex ((=) x) xs + 1

let eq xs x ys y = find xs x = find ys y

let nextTo xs x ys y = abs(find xs x - find ys y) = 1

let nations = ["British"; "Swedish"; "Danish"; "Norwegian"; "German"]

let houses = ["Red"; "Green"; "Blue"; "White"; "Yellow"]

let drinks = ["Milk"; "Coffee"; "Water"; "Beer"; "Tea"]

let smokes = ["Blend"; "Prince"; "Blue Master"; "Dunhill"; "Pall Mall"]

let pets = ["Dog"; "Cat"; "Zebra"; "Horse"; "Bird"]

[ for nations in permute nations do
    if find nations "Norwegian" = 1 then
      for houses in permute houses do
        if eq nations "British" houses "Red" &&
           find houses "Green" = find houses "White"-1 &&
           nextTo nations "Norwegian" houses "Blue" then
          for drinks in permute drinks do
            if eq nations "Danish" drinks "Tea" &&
               eq houses "Green" drinks "Coffee" &&
               3 = find drinks "Milk" then
              for smokes in permute smokes do
                if eq houses "Yellow" smokes "Dunhill" &&
                   eq smokes "Blue Master" drinks "Beer" &&
                   eq nations "German" smokes "Prince" &&
                   nextTo smokes "Blend" drinks "Water" then
                  for pets in permute pets do
                    if eq nations "Swedish" pets "Dog" &&
                       eq smokes "Pall Mall" pets "Bird" &&
                       nextTo pets "Cat" smokes "Blend" &&
                       nextTo pets "Horse" smokes "Dunhill" then
                      yield nations, houses, drinks, smokes, pets ]

9 এমএস এ প্রাপ্ত আউটপুটটি হ'ল:

val it :
  (string list * string list * string list * string list * string list) list =
  [(["Norwegian"; "Danish"; "British"; "German"; "Swedish"],
    ["Yellow"; "Blue"; "Red"; "Green"; "White"],
    ["Water"; "Tea"; "Milk"; "Coffee"; "Beer"],
    ["Dunhill"; "Blend"; "Pall Mall"; "Prince"; "Blue Master"],
    ["Cat"; "Horse"; "Bird"; "Zebra"; "Dog"])]

আমি এই পছন্দ। আমি আশা করিনি যে এই সরাসরি আক্রমণটি সম্ভব হবে।
चमत्कार 173

1

মাইক্রোসফ্ট সলভার ফাউন্ডেশন উদাহরণ থেকে: https://msdn.microsoft.com/en-us/library/ff525831%28v=vs.93%29.aspx?f=255&MSPPError=-2147217396

delegate CspTerm NamedTerm(string name);

public static void Zebra() {
  ConstraintSystem S = ConstraintSystem.CreateSolver();
  var termList = new List<KeyValuePair<CspTerm, string>>();

  NamedTerm House = delegate(string name) {
    CspTerm x = S.CreateVariable(S.CreateIntegerInterval(1, 5), name);
    termList.Add(new KeyValuePair<CspTerm, string>(x, name));
    return x;
  };

  CspTerm English = House("English"), Spanish = House("Spanish"),
    Japanese = House("Japanese"), Italian = House("Italian"),
    Norwegian = House("Norwegian");
  CspTerm red = House("red"), green = House("green"),
    white = House("white"),
    blue = House("blue"), yellow = House("yellow");
  CspTerm dog = House("dog"), snails = House("snails"),
    fox = House("fox"),
    horse = House("horse"), zebra = House("zebra");
  CspTerm painter = House("painter"), sculptor = House("sculptor"),
    diplomat = House("diplomat"), violinist = House("violinist"),
    doctor = House("doctor");
  CspTerm tea = House("tea"), coffee = House("coffee"),
    milk = House("milk"),
    juice = House("juice"), water = House("water");

  S.AddConstraints(
    S.Unequal(English, Spanish, Japanese, Italian, Norwegian),
    S.Unequal(red, green, white, blue, yellow),
    S.Unequal(dog, snails, fox, horse, zebra),
    S.Unequal(painter, sculptor, diplomat, violinist, doctor),
    S.Unequal(tea, coffee, milk, juice, water),
    S.Equal(English, red),
    S.Equal(Spanish, dog),
    S.Equal(Japanese, painter),
    S.Equal(Italian, tea),
    S.Equal(1, Norwegian),
    S.Equal(green, coffee),
    S.Equal(1, green - white),
    S.Equal(sculptor, snails),
    S.Equal(diplomat, yellow),
    S.Equal(3, milk),
    S.Equal(1, S.Abs(Norwegian - blue)),
    S.Equal(violinist, juice),
    S.Equal(1, S.Abs(fox - doctor)),
    S.Equal(1, S.Abs(horse - diplomat))
  );
  bool unsolved = true;
  ConstraintSolverSolution soln = S.Solve();

  while (soln.HasFoundSolution) {
    unsolved = false;
    System.Console.WriteLine("solved.");
    StringBuilder[] houses = new StringBuilder[5];
    for (int i = 0; i < 5; i++)
      houses[i] = new StringBuilder(i.ToString());
    foreach (KeyValuePair<CspTerm, string> kvp in termList) {
      string item = kvp.Value;
      object house;
      if (!soln.TryGetValue(kvp.Key, out house))
        throw new InvalidProgramException(
                    "can't find a Term in the solution: " + item);
      houses[(int)house - 1].Append(", ");
      houses[(int)house - 1].Append(item);
    }
    foreach (StringBuilder house in houses) {
      System.Console.WriteLine(house);
    }
    soln.GetNext();
  }
  if (unsolved)
    System.Console.WriteLine("No solution found.");
  else
    System.Console.WriteLine(
"Expected: the Norwegian drinking water and the Japanese with the zebra.");
}

1

এটি উইকিপিডিয়াতে সংজ্ঞায়িত হিসাবে জেব্রা ধাঁধাটির একটি মিনিজিং সমাধান:

include "globals.mzn";

% Zebra puzzle
int: nc = 5;

% Colors
int: red = 1;
int: green = 2;
int: ivory = 3;
int: yellow = 4;
int: blue = 5;
array[1..nc] of var 1..nc:color;
constraint alldifferent([color[i] | i in 1..nc]);

% Nationalities
int: eng = 1;
int: spa = 2;
int: ukr = 3;
int: nor = 4;
int: jap = 5;
array[1..nc] of var 1..nc:nationality;
constraint alldifferent([nationality[i] | i in 1..nc]);

% Pets
int: dog = 1;
int: snail = 2;
int: fox = 3;
int: horse = 4;
int: zebra = 5;
array[1..nc] of var 1..nc:pet;
constraint alldifferent([pet[i] | i in 1..nc]);

% Drinks
int: coffee = 1;
int: tea = 2;
int: milk = 3;
int: orange = 4;
int: water = 5;
array[1..nc] of var 1..nc:drink;
constraint alldifferent([drink[i] | i in 1..nc]);

% Smokes
int: oldgold = 1;
int: kools = 2;
int: chesterfields = 3;
int: luckystrike = 4;
int: parliaments = 5;
array[1..nc] of var 1..nc:smoke;
constraint alldifferent([smoke[i] | i in 1..nc]);

% The Englishman lives in the red house.
constraint forall ([nationality[i] == eng <-> color[i] == red | i in 1..nc]);

% The Spaniard owns the dog.
constraint forall ([nationality[i] == spa <-> pet[i] == dog | i in 1..nc]);

% Coffee is drunk in the green house.
constraint forall ([color[i] == green <-> drink[i] == coffee | i in 1..nc]);

% The Ukrainian drinks tea.
constraint forall ([nationality[i] == ukr <-> drink[i] == tea | i in 1..nc]);

% The green house is immediately to the right of the ivory house.
constraint forall ([color[i] == ivory -> if i<nc then color[i+1] == green else false endif | i in 1..nc]);

% The Old Gold smoker owns snails.
constraint forall ([smoke[i] == oldgold <-> pet[i] == snail | i in 1..nc]);

% Kools are smoked in the yellow house.
constraint forall ([smoke[i] == kools <-> color[i] == yellow | i in 1..nc]);

% Milk is drunk in the middle house.
constraint drink[3] == milk;

% The Norwegian lives in the first house.
constraint nationality[1] == nor;

% The man who smokes Chesterfields lives in the house next to the man with the fox.
constraint forall ([smoke[i] == chesterfields -> (if i>1 then pet[i-1] == fox else false endif \/ if i<nc then pet[i+1] == fox else false endif) | i in 1..nc]);

% Kools are smoked in the house next to the house where the horse is kept.
constraint forall ([smoke[i] == kools -> (if i>1 then pet[i-1] == horse else false endif \/ if i<nc then pet[i+1] == horse else false endif)| i in 1..nc]);

%The Lucky Strike smoker drinks orange juice.
constraint forall ([smoke[i] == luckystrike <-> drink[i] == orange | i in 1..nc]);

% The Japanese smokes Parliaments.
constraint forall ([nationality[i] == jap <-> smoke[i] == parliaments | i in 1..nc]);

% The Norwegian lives next to the blue house.
constraint forall ([color[i] == blue -> (if i > 1 then nationality[i-1] == nor else false endif \/ if i<nc then nationality[i+1] == nor else false endif) | i in 1..nc]);

solve satisfy;

সমাধান:

Compiling zebra.mzn
Running zebra.mzn
color = array1d(1..5 ,[4, 5, 1, 3, 2]);
nationality = array1d(1..5 ,[4, 3, 1, 2, 5]);
pet = array1d(1..5 ,[3, 4, 2, 1, 5]);
drink = array1d(1..5 ,[5, 2, 3, 4, 1]);
smoke = array1d(1..5 ,[2, 3, 1, 4, 5]);
----------
Finished in 47msec
আমাদের সাইট ব্যবহার করে, আপনি স্বীকার করেছেন যে আপনি আমাদের কুকি নীতি এবং গোপনীয়তা নীতিটি পড়েছেন এবং বুঝতে পেরেছেন ।
Licensed under cc by-sa 3.0 with attribution required.