Php + प्रोलॉग वार्तालाप बॉट

परिचय

बहुत से लोग सोचते हैं कि छात्रों को पढ़ाने के लिए प्रोलॉग प्रोग्रामिंग भाषा एक विशुद्ध रूप से वैज्ञानिक और अप्रचलित भाषा है। विश्वविद्यालय में अधिकांश छात्र "तनावपूर्ण" थे, यह भाषा उन विषयों पर ठीक थी जो कृत्रिम बुद्धिमत्ता के विषय के कम से कम कुछ हद तक करीब थे, इस विषय ने मुझे या तो दरकिनार नहीं किया।

इस भाषा के लिए मैं जो मानक कार्य कर रहा था वह इतना उबाऊ और व्यापक था कि यह "पंजीकरण के बिना तैयार किए डाउनलोड करने" को लुभा रहा था, लेकिन मैंने इस पाठ्यक्रम से सबसे अधिक लाभ प्राप्त करने और कुछ व्यावहारिक और दिलचस्प लिखने के लिए प्रस्तावना के विषय को चालू करने का फैसला किया। प्रोलॉग के बारे में हैबर पर पोस्ट सहित, बहुत सारे अलग-अलग दस्तावेज़ों को पढ़ने के बाद, मैं इस नतीजे पर पहुँचा कि प्रोलॉग एक औपचारिक भाषा के वाक्यों के प्रसंस्करण के लिए एक उत्कृष्ट उपकरण है। मैंने फैसला किया कि एक बॉट लिखना अच्छा होगा जो कि VKontakte पर वाक्यांशों का जवाब दे सकता है (शायद यहां तक ​​कि अच्छी तरह से)।

कार्यान्वयन

सबसे पहले, मैंने बॉट की मुख्य कार्यक्षमता लिखी, अर्थात। एक इंटरफ़ेस जो मुझे एक प्रशासक के रूप में, एक बॉट को निष्पादित करने के लिए कमांड भेजने की अनुमति देता है।

वर्तमान आदेशों की सूची:

$commands = array('', '', 'up', 'uptime', '', 'last'); 

दरअसल, प्रत्येक टीम अपने लिए बोलती है। दो टीमों पर रोक लगाना आवश्यक है:

• सुन%%% बॉट बताता है कि गाने की स्थिति में क्या डालने की ज़रूरत है, जहां कलाकार का नाम =% पाठ% है। यह व्यापार पर बिल्कुल भी लागू नहीं होता है, यह सिर्फ उत्सुक हो गया है।
• और अंतिम - बॉट को भेजे गए अंतिम संदेश को प्रदर्शित करता है। और जिस यूजर ने इसे भेजा है।

यह इस तरह दिखता है:



यह सब आने वाले संदेशों के प्रसंस्करण के हिस्से के रूप में किया गया था। इसके अलावा, संदेश संसाधन व्यवस्थापक से नहीं है, अर्थात सुझाव जो एक उत्तर की आवश्यकता है।

यहीं पर प्रोलॉग आता है। अधिक सटीक रूप से, swi-prolog, जिसका एक कार्यान्वयन दोनों खिड़कियों के लिए उपलब्ध है (इसे वहां विकसित किया गया था) और * निक्स (यह अब वहां काम करता है)। इसके अलावा, स्वाइ-प्रोलॉग का प्लस यह है कि इसकी व्याख्या की जाती है। इसलिए, आपको बस स्क्रिप्ट फ़ाइल को swi दुभाषिया को खिलाने और परिणाम को पकड़ने की आवश्यकता है। उसी समय, इनपुट वाक्यांश को याद रखें, और परिणामी वाक्यांश के साथ, इस गुच्छा को एक फ़ाइल में लिखें। इनपुट लाइन के लिए मास्क की शीट को एक उदाहरण द्वारा बेहतर ढंग से दर्शाया गया है:

  ,   ? 

मास्क की सूची इस तरह दिखाई देगी:

 ['**','*','*','**','*','*','**','*','*','**','*','*'] 

इस मामले में, हमें याद रखना चाहिए कि यह सवाल है। ऐसा करने के लिए, विधेय अनुरोध के साथ मास्क की सूची को फ्रेम करें, और इसे एक फ़ाइल में सहेजें। एक उदाहरण:

 request('?',['**','*','*','**','*','*','**','*','*','**','*','*']). 

इसके बाद, स्क्रिप्ट को चलाएं, एल्गोरिथ्म का वर्णन जिसमें कई रेखाएँ हैं:

• हम इनपुट फ़ाइल (उसी अनुरोध) से विधेय पढ़ते हैं
  

   consult('request.txt') 

  
  और फ़ाइल में पाठ के लिए विधेय के एक सेट के रूप में माना जाता है, आपको हेडर में कहीं कहीं गतिशील विधेय का विवरण जोड़ना होगा:
  

   :-dynamic(request/2). 

  
  
• हम ज्ञानकोष को पढ़ते हैं और प्रश्नों और उत्तरों की एक सूची और अनुत्तरित प्रश्नों की एक सूची प्राप्त करते हैं।
  

   :-dynamic(question/2). :-dynamic(answer/2). :-dynamic(notanswered/1). :-consult('questionanswerlink.txt'). :-consult('withoutanswer.txt'). 

  
  
• हम एक प्रश्न / उत्तर की तलाश कर रहे हैं
  

   goal2 :- toFile, consult('request.txt'), request(Type, KeyWords),%     twoFindAllByType(Type, KeyWords, ActualByType), %  ,       (  - ,  ,  )     KeyWords (  ). str(ActualByType, ActualPhrasesString),%   toFile(ActualPhrasesString),fail.%   

  
  
• यदि उत्तर नहीं मिला है - हम प्रश्नों की सूची से एक यादृच्छिक प्रश्न लेते हैं (जिसके लिए कोई उत्तर नहीं है)
  

   noAnswer :- toFile, consult('request.txt'), %  request(Type, _), %     twoAsk(Type, Res),%    str(Res, ActualPhrasesString),write(ActualPhrasesString), %        toFile(S),fail. 

  
  
• हम परिणाम को दूसरी फ़ाइल में लिखते हैं (आमतौर पर, परिणाम कुछ वाक्यांश होते हैं)

अतिरिक्त कार्य:

एक पंक्ति में सूची

 str([], _). %   -  str([H|[]], S):- %   string_concat('', H, S),!. %   (H)    S   ! str([H|_], String) :- %      string_concat(H, '', S),%   S String = S. %   String 

डेटा फ़ाइल में सहेजना

 toFile(Data) :- open('output.txt', append, OS), toFile(OS, Data). toFile:- open('output.txt', write, OS), close(OS). toFile(OS, Data) :- write(OS,Data), nl(OS), false. toFile(OS, _) :- close(OS). 

खैर, अनुत्तरित प्रश्न प्राप्त करना:

 twoAsk('.', Res):- %      notanswered(R),Res = [R|Res]. %   notanswered("- ")      Res. 

असल में यही सब प्रोलॉग स्क्रिप्ट है। बाकी चीजें काफी सरल हैं: हम परिणामस्वरूप फ़ाइल से एक यादृच्छिक रेखा लेते हैं, और उपयोगकर्ता को देते हैं, उसी समय हम BZ फ़ाइल में प्रश्न-उत्तर लिखते हैं। इसके अलावा, अगर बॉट ने एक सवाल पूछा, लेकिन कोई जवाब नहीं था, तो यह सवाल उन सवालों के डेटाबेस में दर्ज है जिन पर कोई जवाब नहीं दिया गया था।

परिणाम

यह शायद लेख का सबसे प्रत्याशित हिस्सा है। यहां तक ​​कि इस तथ्य पर विचार करते हुए कि बॉट का यह संस्करण 3 दिनों में लिखा गया था, आउटपुट वाक्यांशों के एल्गोरिदम को ध्यान में रखते हुए, परिणाम बातचीत (कभी-कभी) के संदर्भ के आधार पर वाक्यांशों का उत्पादन कर सकता है। लेकिन, वह विशेष रूप से सटीक, अद्वितीय / कम-उपयोग किए गए वाक्यांशों (जो समझ में आता है) की उपस्थिति में जवाब देता है।

बॉट एल्गोरिथ्म बहुत टेढ़ा है, खासकर वह हिस्सा जो "स्मार्ट" होना चाहिए। वैसे, बॉट को थोड़ा प्रशिक्षित करने के लिए, मुझे थोड़ी असुविधा के साथ जाना पड़ा। उदाहरण के लिए, मैंने बॉट की ओर से कई बार उन समूहों में लिखा जहां लड़कियां खुद को बेचती हैं या तस्वीरें लेती हैं और तस्वीरें बेचती हैं। यह काम किया, और, उम्मीद के मुताबिक, लिंग द्वारा वितरण: 98% पुरुष, बाकी के 2%। लेकिन इससे कुछ नकारात्मक प्रभाव पड़ा। बॉट ने पुरुषों की ओर से और महिलाओं की ओर से दोनों लिखना शुरू किया। इसने उपयोगकर्ताओं को भ्रमित किया, और इसके परिणामस्वरूप, ज्ञान के आधार में "लिंग", "आपका", "कौन सा" और जैसे शब्द शामिल हैं। लेकिन यहां तक ​​कि इन असुविधाओं को ध्यान में रखते हुए, लोगों ने बॉट के साथ संवाद करना जारी रखा, यहां तक ​​कि प्रतिक्रिया की उच्च गति (आधा सेकंड - एक सेकंड, विशेष रूप से परिचित वाक्यांशों के लिए), संदेश रिप्ले और जगह के जवाब से बाहर देखे बिना भी। कुछ लोगों को संचार की आवश्यकता होती है, भले ही यह प्राकृतिक न हो।

और हाल ही में, वे भी हमें पहचानने लगे:


कभी-कभी बॉट ने दार्शनिक वाक्यांश दिए, जिनके बारे में आप बहुत लंबे समय तक आकाश को देख सकते हैं:

या नहीं


कभी-कभी, हालांकि, निरर्थक बकवास।


लेकिन फिर भी, यह पालन करने के लिए मजेदार है:

सही समय में:


सबसे दिलचस्प था:


बॉट खाते के अलावा, मैंने उसी समय एक सार्वजनिक पेज बनाया, जिसमें मैंने सबसे मनोरंजक संवादों के स्क्रीनशॉट भेजे थे, और अधिकांश संवादों को Google में लिखा जा सकता है "बॉट महिला वीके", सख्ती से +18। वे पहले ही लगभग 150ti जमा कर चुके हैं। वैसे, अगर प्रोलोग गुरू इस लेख को पढ़ते हैं, तो शायद वे मुझे कुछ पाठ पढ़ाएंगे, या आप, उदाहरण के लिए, काम का एक चालाक एल्गोरिथ्म बनाने के लिए एक साथ काम कर सकते हैं, निश्चित रूप से, अगर कोई दिलचस्पी रखता है।

दुर्भाग्य से, वर्तमान एल्गोरिथ्म बॉट को 10 ग्राहकों (बहुत कठिन) की सेवा करने की अनुमति नहीं देता है, ऐसा होता है कि प्रसंस्करण प्रक्रिया कुछ मिनटों के लिए बाधित होती है, बड़ी संख्या में इनपुट मास्क के साथ बड़े ज्ञान आधार के माध्यम से छंटनी होती है। इसलिए, बॉट का एक लिंक केवल कुछ लोगों को और विशेष रूप से लैन में दिया जा सकता है।
इस बिंदु तक पढ़ने के लिए धन्यवाद।