👩🏾‍🤝‍👨🏿 👨‍❤️‍👨 ✋🏼 समान तार की तुलना करें 🧗🏻 👎🏿 😽

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

उदाहरण के लिए, एक पता "Tverskaya oblast, Kashin g, Sovetskaya ul, 1, 5" और दूसरा - Tver oblast जैसा लग सकता है; काशीन शहर; सोत्सकाया सड़क; घर 1; अपार्टमेंट 5 ”। क्या ये रेखाएँ समान हैं और कितनी हैं? ज़रूर, इसी तरह। और "नग्न आंखों" के साथ उनकी संरचना दिखाई देती है: क्षेत्र - निपटान - सड़क - घर - अपार्टमेंट। यह तर्कसंगत है कि पते के लिए समूहों में लाइनों का टूटना महत्वपूर्ण है; यही है, हमें समान शब्दों के "दो अनाज" की तुलना नहीं करनी चाहिए (जहां एक "दलिया" में पहली पंक्ति के शब्द शामिल हैं, और दूसरे के शब्दों के दूसरे), बल्कि दूसरी पंक्ति के शब्दों के साथ पहली पंक्ति से "समूह" शब्द की तुलना करें। समूहों में विभाजन की कसौटी की भी जाँच की जाती है: पहली पंक्ति में, समूहों का विभाजक "," और दूसरा है - "; "।

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

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

तुलना समारोह को कॉल करने की सादगी;
कार्यान्वयन में आसानी;
पर्याप्त बहुमुखी प्रतिभा।

इसके अलावा, एल्गोरिथ्म VBA एक्सेल पर लागू किया गया है, इसलिए यह बहुत ही "लोकतांत्रिक" है और इसका उपयोग हर जगह किया जा सकता है: एक्सेल न केवल "खुद के द्वारा" विभिन्न कंप्यूटरों के सॉफ्टवेयर के बीच मौजूद है, बल्कि सभी प्रकार के डीबीएमएस और एप्लिकेशन से डेटा भी इसे निर्यात किया जाता है।

तो चलिए शुरू करते हैं।

तुलना फ़ंक्शन को StrCompare कहा जाता है। इसमें 4 तर्क होंगे, जिनमें से दो वैकल्पिक हैं: पहली पंक्ति str1, दूसरी पंक्ति str2, पहली पंक्ति div1 का समूह विभाजक और दूसरी पंक्ति div2 का समूह विभाजक। यदि div1 या div2 को छोड़ दिया जाता है, तो डिफ़ॉल्ट विभाजक “|” है। "|" चुना गया है क्योंकि यह "औसत" लाइन में पाए जाने की संभावना नहीं है, और इसलिए इसका उपयोग अखंड (समूहीय नहीं) लाइनों की तुलना करने के लिए किया जा सकता है। ऐसे अखंड तारों को भी एक समूह से मिलकर तार माना जा सकता है। अर्थात्, तुलनात्मक फ़ंक्शन का हेडर इस तरह दिखता है:

Public Function StrCompare(str1 As String, str2 As String, Optional div1 As String = "|", Optional div2 As String = "|") As Single

एकल - क्योंकि फ़ंक्शन का परिणाम एक संख्या है जो तुलना किए गए तारों की समानता की डिग्री को दर्शाता है।

पंक्ति 1 के सभी समूह क्रमिक रूप से शब्द के अनुसार पंक्ति 2 शब्द के सभी समूहों के साथ तुलना में हैं, और प्रत्येक जोड़ी समूहों में शब्द मिलान की संख्या पर विचार किया जाता है। पंक्ति 1 के प्रत्येक समूह के लिए, पंक्ति 2 से "सर्वश्रेष्ठ समूह" को अंततः चुना जाता है (अर्थात, सबसे अधिक मिलान वाला समूह)। शब्दों की प्रत्येक जोड़ी के लिए एक शब्द के लिए एक न्यूनतम लंबाई के साथ जाँच की जाती है: वह है, "सड़क = सड़क", और "जी = शहर"। यह नियम संख्याओं पर लागू नहीं होता है: अर्थात 200 <> 20। जब आप सभी का चयन करें शब्द "व्यर्थ प्रतीकों" समूहों के भीतर ठीक शब्द सीमांकित कर रहे हैं, लेकिन उन्हें अनदेखा कर रहे हैं, यह है कि, शब्द केवल अक्षर WordSymbols हो सकते हैं = «0123456789ABVGDEOZHZIYKLMNOPRSTUFHTSCHSHSCHYEYUYAABCDEFGHIJKLMNOPQRSTUVWXYZ"। यह समझा जाता है कि मामले को संज्ञान में नहीं लिया गया है।

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

StrCompare फ़ंक्शन का परिणाम लाइनों 1 और 2 में शब्दों की कुल संख्या से मेल खाने वाले शब्दों की संख्या को विभाजित करने का परिणाम होगा:

 StrCompare = (da * 2) / ((kon1_2 - nach1_2 + 1) * (kon1_1 - nach1_1 + 1) + (kon2_2 - nach2_2 + 1) * (kon2_1 - nach2_1 + 1))

यहाँ, उदाहरण के लिए, kon1_2 2 आयाम (1 आयाम समूह की संख्या है, और 2 समूह में शब्दों की संख्या है) के अनुसार सरणी 1 (पहली पंक्ति के समूहों में शामिल शब्दों की एक सरणी) की अंतिम सीमा है।

यह कोड पेश करने का समय है:

 ' ""   . : '1, 2, 1, 2 Public Function StrCompare(str1 As String, str2 As String, Optional div1 As String = "|", Optional div2 As String = "|") As Single WordSymbols = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ" Dim massiv1() As String, massiv2() As String, mass1() As String, mass2() As String, m1() As Variant, m2() As Variant '       Dim mm1() As String, mm2() As String Dim nach1_1 As Integer, kon1_1 As Integer, nach1_2 As Integer, kon1_2 As Integer, nach2_1 As Integer, kon2_1 As Integer, nach2_2 As Integer, kon2_2 As Integer Dim item As String, itemnumber As Integer Dim yes As Integer, maxyes As Integer, da As Integer Dim counter As Integer ' noname str1 = UCase(str1): str2 = UCase(str2) massiv1 = Split(str1, div1) ReDim mass1(LBound(massiv1) To UBound(massiv1), 0 To 1000) maxk = 0 counter = 0 For i = LBound(massiv1) To UBound(massiv1) item = massiv1(i) dlina = Len(item) slovo = "" NewWord = False k = 0 '     For j = 1 To dlina bukva = mid(item, j, 1) If (InStr(1, WordSymbols, bukva) > 0) And Not NewWord Then NewWord = True slovo = slovo + bukva Else If InStr(1, WordSymbols, bukva) > 0 Then slovo = slovo + bukva Else If (InStr(1, WordSymbols, bukva) = 0) And NewWord Then NewWord = False mass1(i, k) = slovo If k > maxk Then maxk = k k = k + 1 slovo = "" End If End If End If Next j If NewWord Then mass1(i, k) = slovo If k > maxk Then maxk = k End If Next i ReDim Preserve mass1(LBound(massiv1) To UBound(massiv1), 0 To maxk) '*************************************************************' massiv2 = Split(str2, div2) ReDim mass2(LBound(massiv2) To UBound(massiv2), 0 To 1000) maxk = 0 For i = LBound(massiv2) To UBound(massiv2) item = massiv2(i) dlina = Len(item) slovo = "" NewWord = False k = 0 '     For j = 1 To dlina bukva = mid(item, j, 1) If (InStr(1, WordSymbols, bukva) > 0) And Not NewWord Then NewWord = True slovo = slovo + bukva Else If InStr(1, WordSymbols, bukva) > 0 Then slovo = slovo + bukva Else If (InStr(1, WordSymbols, bukva) = 0) And NewWord Then NewWord = False mass2(i, k) = slovo If k > maxk Then maxk = k k = k + 1 slovo = "" End If End If End If Next j If NewWord Then mass2(i, k) = slovo If k > maxk Then maxk = k End If Next i ReDim Preserve mass2(LBound(massiv2) To UBound(massiv2), 0 To maxk) '    ""  ; : kon1_2 -    1  2-  nach1_1 = LBound(mass1, 1) kon1_1 = UBound(mass1, 1) nach1_2 = LBound(mass1, 2) kon1_2 = UBound(mass1, 2) nach2_1 = LBound(mass2, 1) kon2_1 = UBound(mass2, 1) nach2_2 = LBound(mass2, 2) kon2_2 = UBound(mass2, 2) For i = nach1_1 To kon1_1 For j = nach1_2 To kon1_2 If mass1(i, j) = "" Then counter = counter + 1 mass1(i, j) = "noname" + Trim(Str(counter)) End If 'MsgBox ("mass1(" + Trim(Str(i)) + "," + Trim(Str(j)) + ")=" + mass1(i, j)) Next j Next i For i = nach2_1 To kon2_1 For j = nach2_2 To kon2_2 If mass2(i, j) = "" Then counter = counter + 1 mass2(i, j) = "noname" + Trim(Str(counter)) End If 'MsgBox ("mass2(" + Trim(Str(i)) + "," + Trim(Str(j)) + ")=" + mass2(i, j)) Next j Next i ' " -" ReDim m2(nach2_2 To kon2_2) As Variant For i = nach2_1 To kon2_1 For j = nach2_2 To kon2_2 m2(j) = mass2(i, j) Next j Call QuickSort(m2, nach2_2, kon2_2) For j = nach2_2 To kon2_2 mass2(i, j) = m2(j) Next j Next i '    :   1     2  ReDim mm2(nach2_2 To kon2_2) da = 0 For k = nach1_1 To kon1_1 '   1 maxyes = 0 For i = nach2_1 To kon2_1 '   2 yes = 0 For j = nach2_2 To kon2_2: mm2(j) = mass2(i, j): Next j '     2 For l = nach1_2 To kon1_2 '     1 If BinarySearch(mm2, nach2_2, kon2_2, mass1(k, l)) <> -1 Then yes = yes + 1 Next l If yes > maxyes Then maxyes = yes Next i da = da + maxyes Next k StrChange = (da * 2) / ((kon1_2 - nach1_2 + 1) * (kon1_1 - nach1_1 + 1) + (kon2_2 - nach2_2 + 1) * (kon2_1 - nach2_1 + 1)) 'StrChange = da End Function Public Sub QuickSort(ByRef vArray() As Variant, inLow As Integer, inHi As Integer) Dim pivot As Variant Dim tmpSwap As Variant Dim tmpLow As Integer Dim tmpHi As Integer tmpLow = inLow tmpHi = inHi pivot = vArray((inLow + inHi) \ 2) While (tmpLow <= tmpHi) While (vArray(tmpLow) < pivot And tmpLow < inHi) tmpLow = tmpLow + 1 Wend While (pivot < vArray(tmpHi) And tmpHi > inLow) tmpHi = tmpHi - 1 Wend If (tmpLow <= tmpHi) Then tmpSwap = vArray(tmpLow) vArray(tmpLow) = vArray(tmpHi) vArray(tmpHi) = tmpSwap tmpLow = tmpLow + 1 tmpHi = tmpHi - 1 End If Wend If (inLow < tmpHi) Then QuickSort vArray, inLow, tmpHi If (tmpLow < inHi) Then QuickSort vArray, tmpLow, inHi End Sub Public Function BinarySearch(vArray() As String, inLow As Integer, inHi As Integer, key As String) As Integer Dim lev As Integer, prav As Integer, mid As Integer Dim key_ As String, arritem As String, arritem_ As String Dim minlen As Integer, keylen As Integer, arritemlen As Integer If key = Trim(Str(Val(key))) Then '  lev = inLow: prav = inHi While lev <= prav mid = lev + (prav - lev) \ 2 arritem = vArray(mid) If key < arritem Then prav = mid - 1 ElseIf key > arritem Then lev = mid + 1 Else BinarySearch = mid Exit Function End If Wend Else keylen = Len(key) lev = inLow prav = inHi While lev <= prav mid = lev + (prav - lev) \ 2 arritem = vArray(mid) arritemlen = Len(arritem) minlen = IIf(keylen < arritemlen, keylen, arritemlen) key_ = left(key, minlen) arritem_ = left(arritem, minlen) If key_ < arritem_ Then prav = mid - 1 ElseIf key_ > arritem_ Then lev = mid + 1 Else BinarySearch = mid Exit Function End If Wend End If BinarySearch = -1 End Function

सब कुछ टिप्पणी करने का कोई मतलब नहीं है, मुझे लगता है: आप कोड द्वारा नेविगेट कर सकते हैं। विभिन्न प्रकृति की कई पंक्तियों पर तुलनात्मक फ़ंक्शन के संचालन का विश्लेषण करें।

str1 = "Tver क्षेत्र।, काशिन जी, Sovetskaya सड़क, 1, 5" str2 = "Tver क्षेत्र; काशीन शहर; सोत्सकाया सड़क; घर 1; अपार्टमेंट 5 ”।
सबसे पहले, समूहों को छोड़कर लाइनों की तुलना करें:
StrCompare (str1, str2) परिणाम 0.8888889 देता है।
और अब विचार कर रहा है:
StrCompare (str1, str2, ",", ";") - परिणाम 0.8 है।
जैसा कि आप देख सकते हैं, समूह तुलना से अधिक सख्ती से संबंधित हैं; इस मामले में, यह उनके लिए महत्वपूर्ण है कि "घर घर है, और अपार्टमेंट अपार्टमेंट है"। समूहों की अनदेखी करते समय, यह एक भूमिका नहीं निभाता है।
str1 = "मेरी दादी एक ग्रे बकरी रहती थी" str2 = "दादी एक ग्रे बकरी रहती थी"
StrCompare (str1, str2) -> 0.6666667
str1 = ”इवानोव इवान इवानोविच एम। कलुगा 1950 "str2 =" इवानोव आई। 01/20/1950 ”
StrCompare (str1, str2) -> 0.6153846
str1 = "जब कामरेड में कोई समझौता नहीं होता है, तो उनका काम अच्छी तरह से नहीं चलेगा, और इससे काम नहीं चलेगा - केवल आटा।" str2 = "प्रांकिश बंदर, गधा, बकरी और क्लबफुट टेडी बियर ने चौकड़ी बजाना शुरू किया।"
StrCompare (str1, str2) -> 0
str1 = ”कला के पैरा 1 के अनुसार। रूसी संघ के नागरिक संहिता के 540 मामले में जब बिजली की आपूर्ति समझौते के तहत एक ग्राहक घरेलू खपत के लिए ऊर्जा का उपयोग करने वाला नागरिक होता है, तो अनुबंध उस क्षण से निष्कर्ष निकाला जाता है जब ग्राहक वास्तव में नेटवर्क से जुड़ता है। | रूसी संघ के हाउसिंग कोड के अनुच्छेद 153 के भाग 1 के अनुसार, नागरिक आवास और उपयोगिताओं के लिए समय पर और पूरी तरह से शुल्क का भुगतान करने के लिए बाध्य हैं। | "____" _________ 2017 से "____" __________ 2017 तक की अवधि में, गारंटी आपूर्तिकर्ता ने आपको ______________________ की मात्रा में बिजली की आपूर्ति की। | विद्युत ऊर्जा के लिए भुगतान करने के लिए आपके दायित्वों के उल्लंघन के संबंध में, जिसके कारण उपभोक्ता ऋण का भुगतान 2 से अधिक निपटान अवधि में गारंटी आपूर्तिकर्ता को किया गया था, गारंटी के आपूर्तिकर्ता की कीमत पर उपभोक्ता के आवास को सीमित करने के लिए कार्रवाई की गई थी / बिजली की आपूर्ति के लिए उपयोगिता सेवाओं के प्रावधान को फिर से शुरू करना। बहु-अपार्टमेंट इमारतों में परिसर के मालिकों और उपयोगकर्ताओं के लिए उपयोगिता सेवाओं के प्रावधान के लिए नियमों के अनुच्छेद 121 (1) के अनुसार। एक्स और आवासीय भवनों, सरकारी फरमान 06.05.2011g से मंजूरी दे दी। संख्या 354, उपभोक्ता-देनदार को उपयोगिता सेवाओं के प्रावधान के प्रतिबंध, निलंबन और फिर से शुरू करने से संबंधित ठेकेदार की लागतों को उपभोक्ता की कीमत पर प्रतिपूर्ति की जाती है, जिनके संबंध में संकेत दिए गए कार्यों को लिया गया था। प्रतिबंध और बिजली की आपूर्ति की बाद की बहाली के लिए भुगतान की लागत गारंटी के लिए है। आपूर्तिकर्ता की राशि ______________________________________________________ | पूर्वगामी के आधार पर, FE TverAtomEnergoSbyt आपको कार्यों के लिए ऋण का भुगतान करने के लिए कहता है प्रतिबंध के / _____________________ रूबल की राशि में बिजली के लिए नगरपालिका सेवाओं के नवीकरण। व्यक्तिगत खाता संख्या और भुगतान के उद्देश्य के साथ निम्नलिखित विवरणों पर: "
str2 = ”“ ____ ”__________ 2017 के बीच JSC AtomEnergoSbyt - गारंटी प्रदाता और _____________________ - उपभोक्ता ने ___________________ वर्षों के लिए मान्य एक ऊर्जा आपूर्ति अनुबंध संख्या ___________________ का समापन किया, इसके आगे के विस्तार की शर्त के साथ (समझौते के खंड 8.1.१, रूसी संघ के नागरिक संहिता के अनुच्छेद २५०) ), पैराग्राफ 1.1 के अनुसार। जो गारंटी आपूर्तिकर्ता इलेक्ट्रिक ऊर्जा (पावर), साथ ही साथ स्वतंत्र रूप से या तीसरे पक्ष के माध्यम से इलेक्ट्रिक पावर ट्रांसमिशन सेवाएं और सेवाएं प्रदान करने का उपक्रम करता है, जिसका प्रावधान उपभोक्ता को विद्युत ऊर्जा की आपूर्ति की प्रक्रिया का एक अभिन्न अंग है, और खरीदार खरीदी गई इलेक्ट्रिक ऊर्जा (बिजली) के लिए भुगतान करने का प्रयास करता है। । | विद्युत ऊर्जा के लिए भुगतान करने के लिए अपने दायित्वों के उपभोक्ता द्वारा उल्लंघन के संबंध में (___________ का विद्युत आपूर्ति समझौता संख्या __________________ का खंड ५.२), जिसके कारण उपभोक्ता की विद्युत ग्रिड सुविधा के संबंध में एक से अधिक बिलिंग अवधि के लिए गारंटी आपूर्तिकर्ता को उपभोक्ता ऋण दिया गया था। -_________________ बिजली की खपत के शासन के पूर्ण और (या) आंशिक सीमा के लिए नियमों के अनुसार ऊर्जा की खपत के शासन को सीमित / फिर से शुरू करने के लिए कार्रवाई की गई, रूसी संघ की सरकार की डिक्री द्वारा अनुमोदित दिनांक ०४.०५.२०१४ सं। ४४२ (इसके बाद - नियम)। | नियमों के पैराग्राफ 24 के अनुसार, उपभोक्ता को प्रतिबंध की कार्रवाई के लिए क्षतिपूर्ति करने के लिए बाध्य किया जाता है ताकि विद्युत ऊर्जा की खपत के शासन की प्रतिबंध और उसके बाद की बहाली हो सके। प्रतिबंधों के भुगतान के लिए कार्रवाई आपूर्तिकर्ता के खर्चों की लागत एक प्रतिबंध लगाने के लिए और विद्युत ऊर्जा खपत के शासन की बाद की बहाली _____________________ है। पूर्वगामी, ओपी "TverAtomEnergoSbyt" आपको गारंटी देने वाले आपूर्तिकर्ता की लागत को सीमित कार्यों के लिए भुगतान करने के लिए कहता है डब्ल्यू / फिर से शुरू मोड _______________ रूबल की राशि में बिजली की खपत। अनुबंध की संख्या और भुगतान के उद्देश्य के साथ निम्नलिखित विवरणों के लिए: भुगतान का उद्देश्य: अनुबंध संख्या ____________ के तहत विद्युत ऊर्जा खपत के शासन के प्रतिबंध / फिर से शुरू करना
यहाँ str1 और str2 बहुत समान दस्तावेजों (क्रमशः व्यक्तियों और कानूनी संस्थाओं के लिए ऊर्जा आपूर्ति समझौते) के टुकड़े हैं। दस्तावेज़ समानता के "मोटे मूल्यांकन" के लिए, आप StrCompare समूहों (str1, str2, "*", "*") ("|") के बिना एक तुलना का उपयोग कर सकते हैं, इस मामले में उपयुक्त नहीं है, क्योंकि इसका उपयोग मूल रेखाओं में उन्हें तोड़ने के लिए किया जाता है। समूह), जो 0.75 के एक सभ्य समानता से पता चलता है (यानी, दस्तावेज स्पष्ट रूप से एक ही प्रकृति के हैं!)। और समानता के संघटन के लिए, हम समूहन का उपयोग करते हैं: StrCompare (str1, str2, "|", "|") (या सिर्फ StrCompare (str1, str2))। परिणाम: 0.3790227

और अब, शायद सबसे दिलचस्प उदाहरण। कौए और लोमड़ी के बारे में कल्पित कहानी का कथानक ईसप के समय से जाना जाता है। StrCompare का उपयोग करते हुए, दो दंतकथाओं की तुलना करें: I.A द्वारा एक क्लासिक संस्करण। क्रिल्लो और कम ज्ञात ए.पी. Sumarokova:
str1 = "कितनी बार उन्होंने दुनिया को दोहराया है, कि चापलूसी व्यर्थ है, हानिकारक है; लेकिन सिर्फ भविष्य के लिए नहीं, और दिल में एक चापलूसी हमेशा एक कोने में मिलेगी। कहीं वोरोन के लिए, भगवान ने पनीर का एक टुकड़ा भेजा; स्प्रूस क्रो पर जमा, नाश्ता काफी तैयार था, हां, विचारशील, और मैंने पनीर को अपने मुंह में रखा। उस दुर्भाग्य के लिए, फॉक्स करीब चला गया; अचानक, लिसा की रूखी आत्मा रुक गई: लोमड़ी पनीर को देखती है, लोमड़ी ने पनीर पर कब्जा कर लिया। पेड़ की नोक टिप्टोइंग है; वह अपनी पूंछ को मोड़ता है, कौवा से अपनी आंखें नहीं लेता है, और इतनी मीठी बात करता है, थोड़ा साँस लेते हुए: "प्रिय, कितना अच्छा है! क्या गर्दन, क्या आंख! यह बताने के लिए, सही, परियों की कहानी! क्या नाशपाती! क्या मौन है! और, सच है, परी को आवाज चाहिए! गाओ, प्रकाश करो, शर्म मत करो! क्या, अगर, बहन, ऐसी सुंदरता के साथ, आप गाने के लिए एक शिल्पकार हैं, - आखिरकार, अगर हमारे पास एक राजा-पक्षी था! " वेचुंचिया का सिर प्रशंसा के साथ घूम रहा था, खुशी के साथ, उसकी सांस डूब गई, और अनुकूल लिसित्सना के लिए, रेवेन के शब्दों ने उसके पूरे गले में फेंक दिया: पनीर बाहर गिर गया - ऐसा उसके साथ धोखा था। "
str2 = ”और पक्षी पुरुषों के शिल्प को धारण करते हैं। एक कौवे ने एक बार एक पनीर को एक चचेरे भाई को दिया और एक ओक पर बैठ गया। हां, अभी थोड़ा सा नहीं खाया है। लोमड़ी ने उसके मुँह में एक टुकड़ा देखा। और वह सोचती है: “मैं रवे का रस दूंगी! हालांकि मुझे वहां नहीं मिला, मुझे यह टुकड़ा मिल जाएगा, ओक चाहे कितना भी लंबा क्यों न हो। " "यह बहुत अच्छा है," फॉक्स कहते हैं, "दोस्त, फ़नल, बहन का नाम!" तुम एक सुंदर पक्षी हो! किस तरह की कैंची, क्या जुर्राब, और आप बिना किसी पाखंड के बता सकते हैं, आप मेरी छोटी सी रोशनी के अलावा और क्या हैं! और तोता तुम्हारे सामने कुछ भी नहीं है, आत्मा, सौ गुना ज्यादा सुंदर तुम्हारे मोर पंख हैं! ” (सुखद प्रशंसा चापलूसी नहीं है)। "ओह, अगर आप अभी भी जानते हैं कि कैसे गाना है, तो आपके लिए दुनिया में ऐसा कोई पक्षी नहीं होगा!" कौवा ने अपनी गर्दन को खोला एक कोकिला, "और पनीर के लिए," वह सोचता है, "और उसके बाद मैं खाऊंगा।" इस मिनट मैं एक दावत के बारे में बात नहीं कर रहा हूँ! " मैंने अपना मुंह खोला और उपवास का इंतजार किया। वह केवल लिसिट्सिन पूंछ के अंत को देखता है। मैं गाना चाहता था, मैंने नहीं गाया, मैं खाना चाहता था, मैंने नहीं खाया।
कारण यह है कि पनीर अब नहीं है। पनीर कंपनी से बाहर हो गया, - दोपहर के भोजन के लिए फॉक्स। "

StrCompare (str1, str2) परिणाम 0.5590062 देता है - इसलिए एक प्लॉट समानता है!

समान तार की तुलना करें

More articles: