लिंडन शब्द की जाँच करें

22

एक लिंडन शब्द एक स्ट्रिंग है है सख्ती से है कोषगत छोटे इसकी चक्रीय रोटेशन में से किसी की तुलना में। बाइनरी स्ट्रिंग को देखते हुए, यह निर्धारित करें कि क्या यह लिंडन शब्द संभव के रूप में कुछ बाइट्स में है।

उदाहरण के लिए, 001011एक लिंडन शब्द है। इसके रोटेशन को नीचे सूचीबद्ध किया गया है, जो पहले प्रतीक को अंत तक बार-बार स्थानांतरित करके प्राप्त किया जाता है।

001011
010110
101100
011001
110010
100101

इनमें से, मूल स्ट्रिंग सबसे पहले lexicographically आती है, या समकक्ष रूप से, सबसे छोटी बाइनरी संख्या का प्रतिनिधित्व करती है।

हालाँकि, 001001एक लिंडन शब्द नहीं है क्योंकि इसका एक घुमाव अपने आप में एक ही है, जो इसे जल्द से जल्द lexicographically के लिए बाँधता है।

एक संबंधित समस्या।

इनपुट: एक गैर-खाली बाइनरी स्ट्रिंग या अंकों की सूची 0और 1। आप संख्याओं का उपयोग नहीं कर सकते हैं , जैसे 5प्रतिनिधित्व करना 101।

आउटपुट: एक सुसंगत सत्य या गलत मूल्य जो कहता है कि क्या स्ट्रिंग एक लिंडन शब्द है।

विशेष रूप से लिंडन शब्दों के लिए बिल्ट-इन की अनुमति नहीं है।

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

6 तक की लंबाई वाले लिंडन शब्द हैं:

0
1
01
001
011
0001
0011
0111
00001
00011
00101
00111
01011
01111
000001
000011
000101
000111
001011
001101
001111
010111
011111

4 तक की लंबाई के गैर-लिंडन शब्द हैं:

00
10
11
000
010
100
101
110
111
0000
0010
0100
0101
0110
1000
1001
1010
1011
1100
1101
1110
1111

लीडरबोर्ड:

कोड स्निपेट दिखाएं

code-golf  string 
— XNOR
स्रोत

जवाबों:

5

अजगर 2, 42

यह एक रोटेशन के साथ परेशान करने के बजाय प्रत्ययों के साथ तुलना करने के लिए पर्याप्त अच्छा लगता है।

f=lambda s,i=1:i/len(s)or s<s[i:]*f(s,i+1)

पुनरावृत्ति की स्थापना बहुत अच्छी नहीं लगती है; शायद यह बेहतर किया जा सकता है।

यह 44-बाइट संस्करण यह स्पष्ट करता है कि क्या चल रहा है:

lambda s:all(s<=s[i:]for i in range(len(s)))
— feersum
स्रोत
4

हास्केल, 43 38 बाइट्स

f x=all(x<=)$init$scanl(const.tail)x x

scanl(const.tail)x xअंत xमें खाली स्ट्रिंग सहित सभी प्रत्ययों की एक सूची बनाता है "", जिसके साथ छीन लिया जाता है init।

संपादित करें: @ Faersum ने मेरे पहले संस्करण में एक बग देखा और इस विचार के साथ आया कि प्रत्यय की तुलना करना पर्याप्त है।

— nimi
स्रोत
यह कैसे जांचता है xकि उसके बराबर कोई घुमाव नहीं हैं x?
— feersum
@ फैर्सम: यह नहीं है। यह एक बग है। ठीक कर दिया। पता लगाने के लिए धन्यवाद!
— निमि
4

अजगर, 9 बाइट्स

!f>z>zTUz

प्रदर्शन

विहान एट का उपयोग करता है। अल का प्रत्यय दृष्टिकोण।

— isaacg
स्रोत
इसे डांग, मुझे लगा कि मैं वहाँ कुछ करने के लिए गया था: पी +1
— डाउनगोवाट
3

शेपस्क्रिप्ट , 57 47 बाइट्स

0?1'@"2"@+"20"$""~"21"$""~@2?2?>1<*'3?_1-*!@#@#

मैंने इस प्रतियोगिता के लिए शेपस्क्रिप्ट बनाया । GitHub पर दुभाषिया एक थोड़ा संशोधित वाक्य रचना है।

इसे ऑनलाइन आज़माएं!

— डेनिस
स्रोत
3
सामान्य ज्ञान: यह मेरा 700 वाँ पीपीसीजी उत्तर है।
— डेनिस
2

CJam, 15 14 बाइट्स

r_,,\fm<(f>1-!

प्रयास करें इस बेला CJam दुभाषिया में या सभी प्रकार के परीक्षण की पुष्टि एक बार में।

यह काम किस प्रकार करता है

r              e# Read a token from STDIN.
 _,            e# Push the length of a copy.
   ,           e# Turn length L into [0 ... L-1].
    \fm<       e# Rotate the token 0, ..., and L-1 units to the left.
        (      e# Shift out the first rotation, i.e., the original token.
         f>    e# Compare all other rotations with this one.
           1-  e# Remove 1 from the resulting array of Booleans.
             ! e# Apply logical NOT to turn an empty array into 1, and a
               e# non-empty one into 0.
— डेनिस
स्रोत
2

जे, 11 चार

1लिंडन शब्दों पर आउटपुट और 0अन्यथा।

0=0({/:)<\.

<\.प्रत्यय लेता है और फिर /:हमें बताता है कि कैसे उन्हें शाब्दिक रूप से क्रमबद्ध किया जाए। -th इंडेक्स {में एंट्री लेता है 0और 0=चेक करता है कि क्या यह शून्य है: यदि यह है, तो हमारे पास लिंडन शब्द है, क्योंकि सबसे बड़ा प्रत्यय एक तरह से जगह नहीं बदलेगा; यदि यह नॉनज़ेरो है, तो यह लिंडन शब्द नहीं है, क्योंकि कुछ प्रत्यय लेक्सिकोग्राफ़िक रूप से पहले के हैं।

   0=0({/:)<\. '001011'
1
   0=0({/:)<\. '001001'
0
— algorithmshark
स्रोत
2

टीस्क्रिप्ट , 10 बाइट्स

xe»x«xS(i©

बहुत गोल्फ, बहुत कम। इसे ऑनलाइन आज़माएं

स्पष्टीकरण और & nbsp;

xe(#x<=xS(i))

xe(#      // Loop through x
          // Check if all iterations return true
    x <=  // Input is less than or equal to...
    xS(i) // Input chopped at current index
)
— Downgoat
स्रोत
पवित्र गाय, आप पिट रहे हैं <s> अजगर </ s> डेनिस ! यह संभव ही कैसे है?!
— ETHproductions
2
@ETHproductions एक ऐसी दुनिया में जहाँ डेनिस को बाहर निकाला जा सकता है, कुछ भी संभव है: p
— डाउगाट
मैं इस पल का स्वाद चखूंगा जब तक यह बना रहता है, तब सीजेम और पाइथ के उत्तर शायद और अधिक हो जाएंगे
— डाउगाट
रुको, रुको ... मैं देख रहा हूं कि यह ठीक तरह से मामलों को संभालता है 00, लेकिन यह खुद को खुद के बराबर होने (यानी कब i==0) को पकड़ने के बिना ऐसा कैसे करता है ?
— ETHproductions
@ETHproductions यह वास्तव में feersum के उत्तर की तरह बहुत अधिक चक्र नहीं करता है , बस प्रत्ययों की तुलना कार्यात्मक रूप से बराबर है
— डाउगोएट
1

हास्केल, 29

f s=all(s<=)$init$scanr(:)[]s

जाँचता है कि क्या sइसके प्रत्येक गैर-खाली प्रत्यय में से अधिकांश, जैसे कि निम्मी का उत्तर है ।

अभिव्यक्ति scanr(:)[]लिस्टिंग से प्रत्यय की सूची उत्पन्न करती है।

>> scanr(:)[] "abcd"
["abcd","bcd","cd","d",""]

initतो अंत में रिक्त स्ट्रिंग से छुटकारा मिलता है। अंत में, all(s<=)जाँचता है कि क्या प्रत्येक प्रत्यय xसंतुष्ट करता है s<=x। चूंकि पहला प्रत्यय sस्वयं है, अ <=की जरूरत है।

— XNOR
स्रोत
1

रूबी, 37 बाइट्स

->s{(1...s.size).all?{|i|s[i..-1]>s}}

परिक्षण:

lyndon_words = %w(0 1 01 001 011 0001 0011 0111 00001 00011 00101 00111
                  01011 01111 000001 000011 000101 000111 001011 001101
                  001111 010111 011111)

not_lyndon_words = %w(00 10 11 000 010 100 101 110 111 0000 0010 0100 0101
                      0110 1000 1001 1010 1011 1100 1101 1110 1111)

f=->s{(1...s.size).all?{|i|s[i..-1]>s}}

p lyndon_words.all? &f      # => true
p not_lyndon_words.any? &f  # => false
— daniero
स्रोत
1

बर्लेस्क, 15 बाइट्स

JiRJU_j<]x/==&&

उन 7 बाइट्स में से मुख्य रूप से यह जांचना है कि क्या यह टाई नहीं है। अन्यथा आप बस के साथ जा सकते हैं JiR<]==।

स्पष्टीकरण:

J       -- duplicate word
iR      -- all rotations
J       -- duplicate list of all rotations
U_      -- check if list contains no duplicates
j       -- swap
<]      -- find minimum of the list
x/      -- rotate top
==      -- compare minimum with the original word
&&      -- and results of min == orig and list unique
— mroman
स्रोत
0

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

a=Array;s=prompt();console.log(a.from(a(s.length),(x,i)=>i).map(n=>(s.substring(n)+s.substring(0,n--))).sort().pop().contains(s))
— anOKsquirrel
स्रोत
0

जावास्क्रिप्ट, 91 87 बाइट्स

f=x=>(y=(x+x).slice(1,-1),x[0]==x||!(y.indexOf(x)+1)&&!x.indexOf('0')&&x.slice(-1)==1);

मैं मूल रूप से शब्द को अपने साथ सम्‍मिलित कर रहा हूं और जांचें कि क्या यह अभी भी वहां है। यह जांचने के लिए कि क्या यह सबसे छोटी संख्या संभव है, मैं सिर्फ यह जांचता हूं कि यह 0 से शुरू होता है और 1 से समाप्त होता है।

टेस्ट

[
['0',1],
['1',1],
['01',1],
['001',1],
['011',1],
['0001',1],
['0011',1],
['0111',1],
['00001',1],
['00011',1],
['00101',1],
['00111',1],
['01011',1],
['01111',1],
['000001',1],
['000011',1],
['000101',1],
['000111',1],
['001011',1],
['001101',1],
['001111',1],
['010111',1],
['011111',1],
['00',0],
['10',0],
['11',0],
['000',0],
['010',0],
['100',0],
['101',0],
['110',0],
['111',0],
['0000',0],
['0010',0],
['0100',0],
['0101',0],
['0110',0],
['1000',0],
['1001',0],
['1010',0],
['1011',0],
['1100',0],
['1101',0],
['1110',0],
['1111',0]
].forEach(t =>{ 
  r=f(t[0])
  x=t[1]
  console.log('Test '+(r==x?'OK':'Fail (Expected: ' + x +')')
  +'\nInput: '+t[0]+'\nResult: ' +r+'\n')                       
})
— Naouak
स्रोत
0

गणितज्ञ, 86 बाइट्स

(s=Table[#~StringRotateLeft~i,{i,StringLength@#}];Last@s==First@Sort@s&&s~Count~#==1)&

इनपुट

[ "1111"]

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