HexaRegex: मार्टिन एंडर को श्रद्धांजलि


37

मार्टिन एंडर ने हाल ही में 100K मारा, और कुछ बहुत बढ़िया भाषाओं के साथ आया है । हम उनमें से एक के साथ मज़ा करने जा रहे हैं, हेक्सागोनी (और रेटिना के लिए थोड़ा सा रेक्स )

एक संक्षिप्त अवलोकन के रूप में, आपको एक प्रोग्राम लिखने की ज़रूरत है जो हेक्सागोनी ग्रिड को इनपुट करता है और निर्धारित करता है कि क्या उस ग्रिड पर कोई पथ है जो पाठ के एक स्ट्रिंग से मेल खाता है

उत्पादक

हेक्सागोनी निम्नलिखित चरणों का उपयोग करके पाठ की एक स्ट्रिंग से हेक्सागोन्स उत्पन्न करता है:

  1. न्यूनतम षट्भुज आकार की गणना करें (स्ट्रिंग की लंबाई लें और निकटतम हेक्स संख्या तक गोल करें )
  2. पाठ को उपरोक्त आकार के षट्भुज में लपेटना
  3. शेष स्थानों को भरना .

उदाहरण के लिए, पाठ की स्ट्रिंग को abcdefghijklmसाइड-लेंथ 3 के हेक्सागोन की आवश्यकता होती है, और इसलिए बन जाता है:

   a b c
  d e f g
 h i j k l
  m . . .
   . . .

अब, ध्यान दें कि 6 संभावित दिशाएँ हैं जो आप एक षट्भुज में यात्रा कर सकते हैं। उदाहरण के लिए, उपरोक्त षट्भुज में, eआसन्न है abfjid

रैपिंग

इसके अलावा, हेक्सागोनी में, हेक्सागोन्स रैप:

   . . . .          . a . .          . . f .          . a . .   
  a b c d e        . . b . .        . . g . .        . b . . f  
 . . . . . .      g . . c . .      . . h . . a      . c . . g . 
. . . . . . .    . h . . d . .    . . u . . b .    . d . . h . .
 f g h i j k      . i . . e .      . j . . c .      e . . i . . 
  . . . . .        . j . . f        k . . d .        . . j . .  
   . . . .          . k . .          . . e .          . k . .   

यदि आप दूसरे और चौथे उदाहरण को देखते हैं, तो ध्यान दें कि कैसे aऔर kएक ही स्पॉट में हैं, इस तथ्य के बावजूद कि आप अलग-अलग दिशाओं में लपेट रहे हैं। इस तथ्य के कारण, ये स्पॉट केवल 5 अन्य स्थानों से सटे हैं

यह स्पष्ट करने के लिए:

   a b c d
  e f g h i
 j k l m n o
p q r s t u v
 w x y z A B
  C D E F G
   H I J K
  1. किनारों को उनके विपरीत पड़ोसी ( b->Iऔर G->j) से लपेटते हैं ।
  2. शीर्ष / निचले कोने विपरीत केंद्र कोने और ऊपर / नीचे ( d->K,pऔर H->a,v) से लपेटते हैं ।
  3. केंद्र के कोने ऊपर और नीचे दोनों कोनों ( v->a,H) से लिपटे रहते हैं

पथ

एक ही स्थान पर लौटने के बिना आसन्न स्थानों का एक क्रम होने का मार्ग

   a b c
  d e f g
 h i f k l
  m . . .
   . . .

उपरोक्त षट्भुज में, aefkgmएक वैध मार्ग है। हालाँकि, abfdमान्य पथ नहीं है ( fऔर dसमीप नहीं हैं), और abeaमान्य नहीं है ( aस्थान पर वापस लौटता है )।

हम पाठ (जैसे रेगेक्स) से मिलान करने के लिए इन रास्तों का उपयोग कर सकते हैं । एक अल्फा-न्यूमेरिक कैरेक्टर खुद (और केवल खुद) से .मेल खाता है , और किसी भी कैरेक्टर से मेल खाता है। उदाहरण के लिए, पथ aej..lgmसे मेल खाएंगे aej..lgm, aejAAlgm, aeja.lgm, या aej^%gm

इनपुट आउटपुट

आपके कार्यक्रम को दो तार (किसी भी क्रम में) लेने चाहिए। पहला स्ट्रिंग nonempty होगा, और इसमें केवल अल्फ़ान्यूमेरिक वर्ण होंगे [a-zA-Z0-9]। यह आपके द्वारा संचालित षट्भुज का प्रतिनिधित्व करेगा। दूसरी स्ट्रिंग में मुद्रण योग्य वर्ण शामिल होंगे।

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

परीक्षण के मामलों

Truthy:

"a","a"
"ab","a"
"ab","b"
"ab","ba"
"ab","aba"
"ab","&"
"ab","#7.J!"
"ab","aaaaaa"
"ab","bgjneta"
"ab","cebtmaa"
"abcdefg","dfabcg"
"AbCDeFG","GCbAeFD"
"aaaabbb","aaababb"
"abcdefghijklmnopqrs","alq"
"abcdefghijklmnopqrs","aqnmiedh"
"abcdefghijklmnopqrs","adhcgkorbefjimnqlps"
"11122233344455","12341345123245"
"abcdefgh","h%a"
"abcdefghijklm","a)(@#.*b"
"abcdefghijklm","a)(@#.*i"
"abcdefghij","ja"
"abcdefghijklmno","kgfeia"
"abcdefghijklmno","mmmmmiea"
"abcdefghijklmno","mmmmmlae"
"abcdefghijklmno","ja"
"abcdefghijklmnopqrs","eijfbadhmnokgcsrql"

Falsy:

"a","b"
"a","%"
"a","."
"a","aa"
"a","a."
"ab","#7.J!*"
"ab","aaaaaaa"
"ab","aaaabaaa"
"ab","123456"
"abcdefg","bfgedac"
"abcdefg","gecafdb"
"abcdefg","GCbaeFD"
"aaaabbb","aaaaabb"
"abcdefghijklmnopqrs","aqrcgf"
"abcdefghijklmnopqrs","adhlcgknbeifjm"
"abcdefghijklmnopqrs","ja"
"abcdefghijklm","a)(@#.*&"
"abcdefghijklmno","a)(@bfeijk"
"abcdefghijklmno","kgfeic"
"abcdefghijklmno","mmmmmmiea"

यह एक , इसलिए अपने पसंदीदा भाषा में अपने उत्तरों को यथासंभव कम करें।


21
हेक्सागोनी में किसी को यह करना चाहिए। : डी
DJMcMayhem


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

5
@DrGreenEggsandIronMan अगर कोई हेक्सागोनी में ऐसा करता है तो मैं 500-प्रतिनिधि इनाम की पेशकश करूंगा।
AdmBorkBork

2
@ एक अपूर्ण षट्भुज का एक उदाहरण महत्वपूर्ण है। इससे भी महत्वपूर्ण बात, मैंने एक "पथ" और एक "रेगेक्स" के बीच अंतर किया है।
नाथन मेरिल

जवाबों:


14

रेटिना , 744 बाइट्स

क्षमा करें दोस्तों, इस बार कोई हेक्सागोनी नहीं ...

बाइट गिनती आईएसओ 8859-1 एन्कोडिंग मानती है।

.+¶
$.'$*_¶$&
^_¶
¶
((^_|\2_)*)_\1{5}_+
$2_
^_*
$.&$*×_$&$&$.&$*×
M!&m`(?<=(?=×*(_)+)\A.*)(?<-1>.)+(?(1)!)|^.*$
O$`(_)|.(?=.*$)
$1
G-2`
T`d`À-É
m`\A(\D*)(?(_)\D*¶.|(.)\D*¶\2)((.)(?<=(?<4>_)\D+)?((?<=(?<1>\1.)\4\D*)|(?<=(?<1>\D*)\4(?<=\1)\D*)|(?<=\1(.(.)*¶\D*))((?<=(?<1>\D*)\4(?>(?<-7>.)*)¶.*\6)|(?<=(?<1>\D*)(?=\4)(?>(?<-7>.)+)¶.*\6))|(?<=(×)*¶.*)((?<=(?<1>\1.(?>(?<-9>¶.*)*))^\4\D*)|(?<=(?<1>\D*)\4(?>(?<-9>¶.*)*)(?<=\1)^\D*)|(?<=(?<1>\1\b.*(?(9)!)(?<-9>¶.*)*)\4×*¶\D*)|(?<=(?<1>\D*\b)\4.*(?(9)!)(?<-9>¶.*)*(?<=\1.)\b\D*))|(?<=(?<1>\1.(?>(?<-11>.)*)¶.*)\4(.)*¶\D*)|(?<=(?<1>\1(?>(?<-12>.)*)¶.*)\4(.)*¶\D*)|(?<=(?<1>\1.(?>(?<-13>.)*¶\D*))\4(\w)*\W+.+)|(?<=(?<1>.*)\4(?>(?<-14>.)*¶\D*)(?<=\1.)(\w)*\W+.+))(?<=\1(\D*).+)(?<!\1\15.*(?<-1>.)+))*\Z

पहली पंक्ति पर लक्ष्य स्ट्रिंग और इनपुट की दूसरी पंक्ति पर षट्भुज की अपेक्षा करता है। प्रिंट 0या 1तदनुसार।

इसे ऑनलाइन आज़माएं! (पहली पंक्ति एक परीक्षण सूट को सक्षम करती है, जहां प्रत्येक पंक्ति एक परीक्षण का मामला है, ¦लाइनफीड के बजाय अलगाव के लिए उपयोग करती है ।)

इस चुनौती को हल करने का उचित तरीका निश्चित रूप से regex है। ;) और अगर यह इस तथ्य के लिए नहीं था कि इस चुनौती में हेक्सागोन की खुलासा प्रक्रिया भी शामिल है , तो इस जवाब में वास्तव में एक एकल ~ 600-बाइट लंबे रेगेक्स के अलावा कुछ भी नहीं होगा।

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

व्याख्या

इस समाधान का मुख्य भाग संतुलन समूहों का व्यापक उपयोग करता है , इसलिए मैं उन पर पढ़ने की सलाह देता हूं, यदि आप यह समझना चाहते हैं कि यह कैसे विस्तार से काम करता है (यदि आप नहीं करते हैं तो मैं आपको दोष नहीं दूंगा ...)।

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

  • बैकग्राउंड कैरेक्टर ×एक स्पेस के बजाय है ताकि यह इनपुट में संभावित स्पेस के साथ संघर्ष न करे।
  • नो-ऑप / वाइल्डकार्ड वर्ण _इसके बजाय है ., ताकि ग्रिड कोशिकाओं को शब्द वर्णों के रूप में मज़बूती से पहचाना जा सके।
  • षट्भुज के पहली बार निर्माण के बाद मैं कोई स्थान या इंडेंटेशन सम्मिलित नहीं करता हूं। यह मुझे एक पतला षट्भुज देता है, लेकिन यह वास्तव में काम करने के लिए बहुत अधिक सुविधाजनक है और आसन्न नियम काफी सरल हैं।

यहाँ एक उदाहरण है। निम्नलिखित परीक्षण मामले के लिए:

ja
abcdefghij

हमें मिला:

××abc
×defg
hij__
____×
___××
ja

इसकी तुलना षट्भुज के सामान्य लेआउट से करें:

  a b c
 d e f g
h i j _ _
 _ _ _ _
  _ _ _

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

इस फॉर्म के निर्माण के बाद, हम पूरे स्ट्रिंग में एक और बदलाव करते हैं:

T`d`À-É

यह विस्तृत ASCII पत्रों के साथ अंकों की जगह लेता है

ÀÁÂÃÄÅÆÇÈÉ

चूंकि वे दोनों हेक्सागोन में और लक्ष्य स्ट्रिंग में बदल दिए जाते हैं, इसलिए यह प्रभावित नहीं होगा कि स्ट्रिंग मिलान किया गया है या नहीं। इसके अलावा, चूंकि वे अक्षर हैं \wऔर \bअभी भी उन्हें षट्भुज कोशिकाओं के रूप में पहचानते हैं। इस प्रतिस्थापन को करने का लाभ यह है कि अब हम \Dआगामी रेगेक्स में किसी भी वर्ण (विशेषकर, लाइनफीड के साथ-साथ गैर-लाइनफीड पात्रों) का मिलान करने के लिए उपयोग कर सकते हैं । हम इसे sपूरा करने के लिए विकल्प का उपयोग नहीं कर सकते , क्योंकि हमें .कई स्थानों पर गैर-लाइनफीड पात्रों से मेल खाना होगा ।

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

एक regex के साथ इसे लागू करने के साथ एक मुद्दा यह है कि हम मनमाने ढंग से regex इंजन के कर्सर को आगे और पीछे के माध्यम से स्ट्रिंग के माध्यम से बुनाई नहीं कर सकते हैं (जिसकी हमें आवश्यकता होगी क्योंकि पथ ऊपर या नीचे जा सकता है)। इसलिए इसके बजाय, हम एक कैप्चरिंग ग्रुप में अपने "कर्सर" पर नज़र रखते हैं और अपडेट करते हैं कि हर कदम पर (हम अस्थायी रूप से कर्सर की स्थिति में एक नज़र के साथ स्थानांतरित कर सकते हैं)। यह हमें पिछले सभी पदों को संग्रहीत करने में सक्षम बनाता है, जिसका उपयोग हम यह जांचने के लिए करेंगे कि हमने पहले की स्थिति का दौरा नहीं किया है।

तो चलिए इसे प्राप्त करते हैं। यहां नाम समूह, इंडेंटेशन, पड़ोसियों के कम यादृच्छिक क्रम और कुछ टिप्पणियों के साथ रेगेक्स का थोड़ा सा वर्जन है:

\A
# Store initial cursor position in <pos>
(?<pos>\D*)
(?(_)
  # If we start on a wildcard, just skip to the first character of the target.
  \D*¶.
|
  # Otherwise, make sure that the target starts with this character.
  (?<first>.)\D*¶\k<first>
)
(?:
  # Match 0 or more subsequent characters by moving the cursor along the path.
  # First, we store the character to be matched in <next>.
  (?<next>.)
  # Now we optionally push an underscore on top (if one exists in the string).
  # Depending on whether this done or not (both of which are attempted by
  # the engine's backtracking), either the exact character, or an underscore
  # will respond to the match. So when we now use the backreference \k<next>
  # further down, it will automatically handle wildcards correctly.
  (?<=(?<next>_)\D+)?
  # This alternation now simply covers all 6 possible neighbours as well as
  # all 6 possible wrapped edges.
  # Each option needs to go into a separate lookbehind, because otherwise
  # the engine would not backtrack through all possible neighbours once it
  # has found a valid one (lookarounds are atomic). 
  # In any case, if the new character is found in the given direction, <pos>
  # will have been updated with the new cursor position.
  (?:
    # Try moving east.
    (?<=(?<pos>\k<pos>.)\k<next>\D*)
  |
    # Try moving west.
    (?<=(?<pos>\D*)\k<next>(?<=\k<pos>)\D*)
  |
    # Store the horizontal position of the cursor in <x> and remember where
    # it is (because we'll need this for the next two options).
    (?<=\k<pos>(?<skip>.(?<x>.)*¶\D*))
    (?:
      # Try moving north.
      (?<=(?<pos>\D*)\k<next>(?>(?<-x>.)*)¶.*\k<skip>)
    |
      # Try moving north-east.
      (?<=(?<pos>\D*)(?=\k<next>)(?>(?<-x>.)+)¶.*\k<skip>)
    )
  |
    # Try moving south.
    (?<=(?<pos>\k<pos>.(?>(?<-x>.)*)¶.*)\k<next>(?<x>.)*¶\D*)
  |
    # Try moving south-east.
    (?<=(?<pos>\k<pos>(?>(?<-x>.)*)¶.*)\k<next>(?<x>.)*¶\D*)
  |
    # Store the number of '×' at the end in <w>, which is one less than the
    # the side-length of the hexagon. This happens to be the number of lines
    # we need to skip when wrapping around certain edges.
    (?<=(?<w>×)*¶.*)
    (?:
      # Try wrapping around the east edge.
      (?<=(?<pos>\k<pos>.(?>(?<-w>¶.*)*))^\k<next>\D*)
    |
      # Try wrapping around the west edge.
      (?<=(?<pos>\D*)\k<next>(?>(?<-w>¶.*)*)(?<=\k<pos>)^\D*)
    |
      # Try wrapping around the south-east edge.
      (?<=(?<pos>\k<pos>\b.*(?(w)!)(?<-w>¶.*)*)\k<next>×*¶\D*)
    |
      # Try wrapping around the north-west edge.
      (?<=(?<pos>\D*\b)\k<next>.*(?(w)!)(?<-w>¶.*)*(?<=\k<pos>.)\b\D*)
    )
  |
    # Try wrapping around the south edge.
    (?<=(?<pos>\k<pos>.(?>(?<-x>.)*¶\D*))\k<next>(?<x>\w)*\W+.+)
  |
    # Try wrapping around the north edge.
    (?<=(?<pos>.*)\k<next>(?>(?<-x>.)*¶\D*)(?<=\k<pos>.)(?<x>\w)*\W+.+)
  )
  # Copy the current cursor position into <current>.
  (?<=\k<pos>(?<current>\D*).+)
  # Make sure that no matter how many strings we pop from our stack of previous
  # cursor positions, none are equal to the current one (to ensure that we use
  # each cell at most once).
  (?<!\k<pos>\k<current>.*(?<-pos>.)+)
)*
# Finally make sure that we've reached the end of the string, so that we've
# successfully matched all characters in the target string.
\Z

मुझे उम्मीद है कि सामान्य विचार इससे लगभग स्पष्ट है। पथ के साथ उन आंदोलनों में से एक कैसे काम करता है, इसके उदाहरण के रूप में, आइए उस बिट को देखें जो कर्सर को दक्षिण की ओर ले जाता है:

(?<=(?<pos>\k<pos>.(?>(?<-x>.)*)¶.*)\k<next>(?<x>.)*¶\D*)

याद रखें कि lookbehinds को दाएं से बाएं (या नीचे से ऊपर तक) पढ़ा जाना चाहिए, क्योंकि यही वह क्रम है जिसमें वे निष्पादित होते हैं:

(?<=
  (?<pos>
    \k<pos>       # Check that this is the old cursor position.
    .             # Match the character directly on top of the new one.
    (?>(?<-x>.)*) # Match the same amount of characters as before.
    ¶.*           # Skip to the next line (the line, the old cursor is on).
  )               # We will store everything left of here as the new 
                  # cursor position.
  \k<next>        # ...up to a match of our current target character.
  (?<x>.)*        # Count how many characters there are...
  ¶\D*            # Skip to the end of some line (this will be the line below
                  # the current cursor, which the regex engine's backtracking
                  # will determine for us).
)

ध्यान दें कि यह सुनिश्चित करने के लिए एंकर को सामने रखना आवश्यक नहीं है \k<pos>कि यह वास्तव में स्ट्रिंग की शुरुआत तक पहुंचता है। <pos>हमेशा ×उस राशि से शुरू होता है जो कहीं और नहीं मिल सकती है, इसलिए यह पहले से ही एक अंतर्निहित लंगर के रूप में कार्य करता है।

मैं इस पोस्ट को आवश्यकता से अधिक ब्लोट नहीं करना चाहता, इसलिए मैं अन्य 11 मामलों में विस्तार से नहीं जाऊंगा, लेकिन सिद्धांत रूप में वे सभी इसी तरह काम करते हैं। हम जाँचते हैं कि <next>संतुलन समूहों की मदद से पुराने कर्सर की स्थिति से कुछ विशिष्ट (स्वीकार्य) दिशा में पाया जा सकता है, और फिर हम उस मिलान तक स्ट्रिंग को नए कर्सर स्थिति के रूप में संग्रहीत करते हैं <pos>


13

पायथन 3, 990 943 770 709 बाइट्स

पहला जवाब, याय!

संपादित करें: गोल्फ की आसन्न सूची बनाना। अब मैं थोड़ा अलग फॉर्मूला इस्तेमाल करता हूं

संपादित करें 2: अनावश्यक फुलाना को हटा दिया, बहुत अधिक गोल्फ।

EDIT 3: सूची में निर्देशांक से निर्देशांक में रूपांतरण के लिए कोड को छोटा किया, कुछ और चीजों को गढ़ा।

अधिकांश बाइट्स आसन्न सूची बनाने से संबंधित हैं (इसमें गोल्फ होने की सबसे अधिक संभावना है)। तब से, यह ब्रूट-फोर्सिंग सॉल्यूशन (जो मैं कम बाइट्स में करने में सक्षम हो सकता है) का एक साधारण मामला है।

golfed:

from math import*
b=abs
c=max
e=range
f=len
A=input()
B=input()
C=ceil(sqrt((f(A)-.25)/3)+.5)
D=3*C*~-C+1
E=2*C-1
F=C-1
A+='.'*(D-f(A))
G=[set()for x in e(D)]
I=lambda H:sum(E+.5-b(t-F+.5)for t in e(int(H+F)))
for x in e(D):
 r=sum([[J-F]*(E-b(J-F))for J in e(E)],[])[x];q=x-I(r);s=-q-r;a=lambda q,r:G[x].add(int(q+I(r)));m=c(map(b,[q,r,s]))
 if m==F:
  if q in(m,-m):a(-q,-s)
  if r in(m,-m):a(-s,-r)
  if s in(m,-m):a(-r,-q)
 for K,L in zip([1,0,-1,-1,0,1],[0,1,1,0,-1,-1]):
  M,H=q+K,r+L
  if c(map(b,[M,H,-M-H]))<C:a(M,H)
def N(i,O,P):
 Q=O and O[0]==A[i]or'.'==A[i];R=0
 if(2>f(O))*Q:R=1
 elif Q:R=c([(x not in P)*N(x,O[1:],P+[i])for x in G[i]]+[0])
 return R
print(c([N(x,B,[])for x in e(D)])*(f(B)<=D))

अ-भेदी w / स्पष्टीकरण:

from math import*

#Rundown of the formula:
# * Get data about the size of the hexagon
# * Create lookup tables for index <-> coordinate conversion
#   * q=0, r=0 is the center of the hexagon
#   * I chose to measure in a mix of cubic and axial coordinates,
#     as that allows for easy oob checks and easy retrevial  
# * Create the adjacency list using the lookup tables, while
#   checking for wrapping
# * Brute-force check if a path in the hexagon matches the
#   expression

# shorten functions used a lot
b=abs
c=max
e=range

# Get input

prog=input()
expr=input()

# sdln = Side length
# hxln = Closest hexagonal number
# nmrw = Number of rows in the hexagon
# usdl = one less than the side length. I use it a lot later

sdln=ceil(sqrt((len(prog)-.25)/3)+.5)
hxln=3*sdln*~-sdln+1
nmrw=2*sdln-1
usdl=sdln-1

# Pad prog with dots

prog+='.'*(hxln-len(prog))

# nmbf = Number of elements before in each row
# in2q = index to collum
# in2r = index to row

nmbf=[0]*nmrw
in2q=[0]*hxln
in2r=[0]*hxln

#  4    5
#   \  /
# 3 -- -- 0
#   /  \ 
#  2    1

# dirs contains the q,r and s values needed to move a point
# in the direction refrenced by the index

qdir=[1,0,-1,-1,0,1]
rdir=[0,1,1,0,-1,-1]

# generate nmbf using a summation formula I made

for r in e(nmrw-1):
    nmbf[r+1]=int(nmbf[r]+nmrw+.5-b(r-sdln+1.5))

# generate in2q and in2r using more formulas
# cntr = running counter

cntr=0
for r in e(nmrw):
    bgnq=c(-r,1-sdln)
    for q in e(nmrw-b(r-sdln+1)):
        in2q[cntr]=bgnq+q
        in2r[cntr]=r-usdl
        cntr+=1

# adjn = Adjacency sets

adjn=[set()for x in e(hxln)]

# Generate adjacency sets

for x in e(hxln):
    #Get the q,r,s coords
    q,r=in2q[x],in2r[x]
    s=-q-r
    # a = function to add q,r to the adjacency list
    a=lambda q,r:adjn[x].add(q+nmbf[r+usdl])
    # m = absolute value distance away from the center
    m=c(map(b,[q,r,s]))
    # if we are on the edge (includes corners)...
    if m==usdl:
        # add the only other point it wraps to
        if q in(m,-m):
            a(-q,-s)
        if r in(m,-m):
            a(-s,-r)
        if s in(m,-m):
            a(-r,-q)
    # for all the directions...
    for d in e(6):
        # tmp{q,r,s} = moving in direction d from q,r,s
        tmpq,tmpr=q+qdir[d],r+rdir[d]
        # if the point we moved to is in bounds...
        if c(map(b,[tmpq,tmpr,-tmpq-tmpr]))<sdln:
            # add it
            a(tmpq,tmpr)

# Recursive path checking function
def mtch(i,mtst,past):
    # dmch = Does the place we are on in the hexagon match
    #        the place we are in the expression?
    # out = the value to return
    dmch=mtst and mtst[0]==prog[i]or'.'==prog[i]
    out=0
    # if we are at the end, and it matches...
    if(2>len(mtst))*dmch:
        out=1
    # otherwise...
    elif dmch:
        # Recur in all directions that we haven't visited yet
        # replace '*' with 'and' to speed up the recursion
        out=c([(x not in past)*mtch(x,mtst[1:],past+[i])for x in adjn[i]]+[0])
    return out

# Start function at all the locations in the hexagon
# Automatically return false if the expression is longer
# than the entire hexagon
print(c([mtch(x,expr,[])for x in e(hxln)])*(len(expr)<=hxln))

तो रेटिना के करीब! :( हां, रेटिना को हराओ!


5

जावास्क्रिप्ट (ईएस 6), 511 500 496 बाइट्स

(H,N)=>{C=(x,y)=>(c[x]=c[x]||[])[y]=y;S=d=>(C(x,y=x+d),C(y,x),C(s-x,s-y),C(s-y,s-x));r=(x,p,v)=>{p<N.length?(v[x]=1,c[x].map(n=>!v[n]&&(H[n]==N[p]||H[n]=='.')&&r(n,p+1,v.slice()))):K=1};for(e=x=K=0;(s=3*e*++e)<(l=H.length)-1;);H+='.'.repeat(s+1-l);for(a=[],b=[],c=[[]],w=e;w<e*2;){a[w-e]=x;b[e*2-w-1]=s-x;for(p=w;p--;x++){w-e||S(s-e+1);w<e*2-1&&(S(w),S(w+1));p&&S(1)}a[w]=x-1;b[e*3-++w]=s-x+1}a.map((v,i)=>S(b[i]-(x=v)));[N[0],'.'].map(y=>{for(x=-1;(x=H.indexOf(y,x+1))>-1;r(x,1,[]));});return K}

असहमति और टिप्पणी की

// Entry point
//   H = haystack (the string the hexagon is filled with)
//   N = needle (the substring we're looking for)
(H, N) => {
  // C(x, y) - Helper function to save a connection between two locations.
  //   x = source location
  //   y = target location
  C = (x, y) => (c[x] = c[x] || [])[y] = y;

  // S(d) - Helper function to save reciprocal connections between two locations
  //        and their symmetric counterparts.
  //   d = distance between source location (x) and target location
  S = d => (C(x, y = x + d), C(y, x), C(s - x, s - y), C(s - y, s - x));

  // r(x, p, v) - Recursive path search.
  //   x = current location in hexagon
  //   p = current position in needle
  //   v = array of visited locations
  r = (x, p, v) => {
    p < N.length ?
      (v[x] = 1, c[x].map(n => !v[n] && (H[n] == N[p] || H[n] == '.') &&
      r(n, p + 1, v.slice())))
    :
      K = 1
  };

  // Compute e = the minimum required edge width of the hexagon to store the haystack.
  // Also initialize:
  //   x = current location in hexagon
  //   l = length of haystack
  //   s = size of hexagon (number of locations - 1)
  //   K = fail/success flag
  for(e = x = K = 0; (s = 3 * e * ++e) < (l = H.length) - 1;);

  // Pad haystack with '.'
  H += '.'.repeat(s + 1 - l);

  // Build connections c[] between locations, using:
  //   x = current location
  //   w = width of current row
  //   p = position in current row
  // Also initialize:
  //   a[] = list of locations on top left and top right edges
  //   b[] = list of locations on bottom left and bottom right edges
  for(a = [], b = [], c = [[]], w = e; w < e * 2;) {
    a[w - e] = x;
    b[e * 2 - w - 1] = s - x;

    for(p = w; p--; x++) {
      // connection between top and bottom edges
      w - e || S(s - e + 1);
      // connections between current location and locations below it
      w < e * 2 - 1 && (S(w), S(w + 1));
      // connection between current location and next location
      p && S(1)
    }
    a[w] = x - 1;
    b[e * 3 - ++w] = s - x + 1
  }

  // Save connections between top left/right edges and bottom left/right edges.
  a.map((v, i) => S(b[i] - (x = v)));

  // Look for either the first character of the needle or a '.' in the haystack,
  // and use it as the starting point for the recursive search. All candidate
  // locations are tried out.
  [N[0], '.'].map(y => {
    for(x = -1; (x = H.indexOf(y, x + 1)) > -1; r(x, 1, []));
  });

  // Return fail/success flag.
  return K
}

परीक्षण के मामलों

नीचे दिए गए स्निपेट सभी सत्य और झूठे परीक्षण मामलों से गुजरेंगे।

हमारी साइट का प्रयोग करके, आप स्वीकार करते हैं कि आपने हमारी Cookie Policy और निजता नीति को पढ़ और समझा लिया है।
Licensed under cc by-sa 3.0 with attribution required.