Bir dizedir pairable iki kez arka arkaya tekrarlanan bir dize her biri subtrings, bölünebilir eğer. Örneğin, aabaaababbbabaşu şekilde pairable:

aaba aaba
b b
ba ba

Boş olmayan bir as ve s dizesi verildiğinde b, eğer pauylu ise bir Truthy değeri ve eğer değilse falsey değeri verin.

Pairable:

aa
abaaba
bbababbb
aabaaababbbaba
babababa
bbbbbbbbbbbb
aaababbabbabbbababbaabaabaababaaba
aaaabaab

Çekilebilir değil:

a
ba
baab
abaabaaba
bbbbbbbbbbbbbbb
baababbabaaaab
aaaaabbaaaaa

Dilinizde halihazırda daha kısa bir regex cevabı olsa bile regex'e dayalı olmayan çözümler bulmanızı tavsiye ederim. Bunları "regex yok" olarak işaretleyebilirsiniz. Regex ile, dahili bir dize deseni eşleşen alt sistemi kastediyorum.

Liderler Sıralaması:

var QUESTION_ID=98252,OVERRIDE_USER=20260;function answersUrl(e){return"https://api.stackexchange.com/2.2/questions/98252/answers?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+ANSWER_FILTER}function commentUrl(e,s){return"https://api.stackexchange.com/2.2/answers/"+s.join(";")+"/comments?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+COMMENT_FILTER}function getAnswers(){jQuery.ajax({url:answersUrl(answer_page++),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){answers.push.apply(answers,e.items),answers_hash=[],answer_ids=[],e.items.forEach(function(e){e.comments=[];var s=+e.share_link.match(/\d+/);answer_ids.push(s),answers_hash[s]=e}),e.has_more||(more_answers=!1),comment_page=1,getComments()}})}function getComments(){jQuery.ajax({url:commentUrl(comment_page++,answer_ids),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){e.items.forEach(function(e){e.owner.user_id===OVERRIDE_USER&&answers_hash[e.post_id].comments.push(e)}),e.has_more?getComments():more_answers?getAnswers():process()}})}function getAuthorName(e){return e.owner.display_name}function process(){var e=[];answers.forEach(function(s){var r=s.body;s.comments.forEach(function(e){OVERRIDE_REG.test(e.body)&&(r="<h1>"+e.body.replace(OVERRIDE_REG,"")+"</h1>")});var a=r.match(SCORE_REG);a&&e.push({user:getAuthorName(s),size:+a[2],language:a[1],link:s.share_link})}),e.sort(function(e,s){var r=e.size,a=s.size;return r-a});var s={},r=1,a=null,n=1;e.forEach(function(e){e.size!=a&&(n=r),a=e.size,++r;var t=jQuery("#answer-template").html();t=t.replace("{{PLACE}}",n+".").replace("{{NAME}}",e.user).replace("{{LANGUAGE}}",e.language).replace("{{SIZE}}",e.size).replace("{{LINK}}",e.link),t=jQuery(t),jQuery("#answers").append(t);var o=e.language;/<a/.test(o)&&(o=jQuery(o).text()),s[o]=s[o]||{lang:e.language,user:e.user,size:e.size,link:e.link}});var t=[];for(var o in s)s.hasOwnProperty(o)&&t.push(s[o]);t.sort(function(e,s){return e.lang>s.lang?1:e.lang<s.lang?-1:0});for(var c=0;c<t.length;++c){var i=jQuery("#language-template").html(),o=t[c];i=i.replace("{{LANGUAGE}}",o.lang).replace("{{NAME}}",o.user).replace("{{SIZE}}",o.size).replace("{{LINK}}",o.link),i=jQuery(i),jQuery("#languages").append(i)}}var ANSWER_FILTER="!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe",COMMENT_FILTER="!)Q2B_A2kjfAiU78X(md6BoYk",answers=[],answers_hash,answer_ids,answer_page=1,more_answers=!0,comment_page;getAnswers();var SCORE_REG=/<h\d>\s*([^\n,]*[^\s,]),.*?(\d+)(?=[^\n\d<>]*(?:<(?:s>[^\n<>]*<\/s>|[^\n<>]+>)[^\n\d<>]*)*<\/h\d>)/,OVERRIDE_REG=/^Override\s*header:\s*/i;

body{text-align:left!important}#answer-list,#language-list{padding:10px;width:290px;float:left}table thead{font-weight:700}table td{padding:5px}

<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script> <link rel="stylesheet" type="text/css" href="//cdn.sstatic.net/codegolf/all.css?v=83c949450c8b"> <div id="answer-list"> <h2>Leaderboard</h2> <table class="answer-list"> <thead> <tr><td></td><td>Author</td><td>Language</td><td>Size</td></tr></thead> <tbody id="answers"> </tbody> </table> </div><div id="language-list"> <h2>Winners by Language</h2> <table class="language-list"> <thead> <tr><td>Language</td><td>User</td><td>Score</td></tr></thead> <tbody id="languages"> </tbody> </table> </div><table style="display: none"> <tbody id="answer-template"> <tr><td>{{PLACE}}</td><td>{{NAME}}</td><td>{{LANGUAGE}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table> <table style="display: none"> <tbody id="language-template"> <tr><td>{{LANGUAGE}}</td><td>{{NAME}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table>

Python 2, 68 63 bayt

f=lambda s,n=1:s==2*s[:n]or''<s[n:]>-f(s,n+1)<f(s[n:])*f(s[:n])

Doğru veya Yanlış döndürür . İdeone üzerinde test et .

Retina , 11 bayt

^((.+)\2)+$

Tüm test durumlarını dene. İlk iki bayt, çok satırlı kılar.

Kuralların oldukça gerçek bir şekilde yorumlanması, tüm Retina programlarının yapacağı gibi açıkçası regex kullanıyor.

Jöle , 10 bayt

ẆŒPẋ€€2F€ċ

Tam olarak verimli değil ... Çevrimiçi deneyin!

Nasıl çalışır

ẆŒPẋ€€2F€ċ  Main link. Argument: s (string)

Ẇ           Window, generate the array of all substrings of s.
 ŒP         Powerset; generate all subarrays of substrings of s.
   ẋ€€2     Repeat each substring in each subarray twice.
            For example, ["ab", "a", "b"] becomes ["abab", "aa", "bb"].
       F€   Flatten the subarrays by concatenating their strings.
         ċ  Count how many times s appears in the generated strings.

Haskell, 72 69 bayt (düzenli ifade yok)

g(a:b:c)|a==b=g c
g x=x==[]
any(g.words.concat).mapM(\c->[[c],c:" "])

Bir kaba kuvvet yaklaşımı. Ideone'da dene .

-3 bayt için BlackCap'e teşekkürler.

açıklama

Yardımcı işlev gbir dize listesi alır ve benzer dizelerin çiftlerinden oluştuğunu kontrol eder ["aa","aa","bba","bba","ab","ab"]. (Anonim) ana işlevi bir dizgiyi mümkün olan her yolla böler ve en az bir bölmenin sonuç gkabul eden bir listede sonuçlandığını kontrol eder.

g(a:b:c)                                  g on list with elements a, b and tail c,
        |a==b                              in the case that a==b,
             =g c                          recurses to the tail c.
g x=                                      g on any other list x
    x==[]                                  checks that x is empty.
                                           This includes the case where a is not equal
                                           to b, resulting in False.
any(g.words.concat).mapM(\c->[[c],c:" "]) The main function:
                    mapM(\c->[[c],c:" "])  Replace each letter c with either "c" or "c "
                                           in all possible ways, return list of results.
any(              ).                       Check that at least one result satisfies this:
            concat                          Concatenate the 1- or 2-letter strings,
      words.                                split again at each space,
    g.                                      apply g.

Python 2,60 bayt

f=lambda s,t='':''<s>f(s[1:],t+s[0])|f(t and s)*f(t)>-(s==t)

Umarım bu doğrudur. Oldukça yavaş çalışıyor ve en anduygun görünmüyor.

Jöle , 12 bayt

ŒṖµœs€2ZEµ€S

İki uzun bayt benim diğer yanıt , ancak bu yaklaşım çok daha verimli ve kolları tüm ama test durumları biridir.

Çevrimiçi deneyin!

Nasıl çalışır

ŒṖµœs€2ZEµ€S  Main link. Argument: s (string)

ŒṖ            Generate all partitions of s.
  µ      µ€   Map the monadic chain between the µ's over the partitions.
   œs€2         Split each string in the partition into two chunks of equal length.
       Z        Zip/transpose, collecting the first halves in one array and the
                second halves in another.
        E       Test the arrays of halves for equality.
           S  Return the sum of the results, counting the number of different
              ways s can be paired.

Pyth - Düzenli İfade Yok - 13 12 bayt

Bölümlerden birinin, ikiye bölündüğünde birbirine eşit olan tüm dizgilerden oluşup oluşmadığını kontrol eder.

sm.AqMcL2d./

Test Takımı .

Brachylog , 14 bayt (düzenli ifade yok)

lye~l:1j@2zcc?

Çevrimiçi deneyin!

Bu, bazı test durumları için çok yavaş

açıklama

ly                  The list [0, …, length(Input)]
  e~l               A list whose length is an element of the previous list
     :1j            Append itself to this list
        @2zc        Split in half, zip and concatenate so that the list contains pairs of
                      consecutive identical elements
            c?      The concatenation of that list must result in the Input

JavaScript (ES6), düzenli ifade yok, 75 74 bayt

f=s=>!s|[...s].some((_,i)=>i&&s[e='slice'](0,i)==s[e](i,i+=i)&&f(s[e](i)))

İade 1aksi pairable için 0. Düzenleme: @ edc65 sayesinde 1 bayt kaydedildi.

Python, 58 bayt

f=lambda s,p='':s>''and(f(p)>-(s==p)<f(s))|f(s[1:],p+s[0])

Bu Dennis'in özyinelemeli yöntemine dayanıyor . Boolean olumsuzlama hilesi de buradan alınır.

Yeni fikir, ilk karakterin son karakteri olmak üzere ilk karakterini baştan ve tekrar tekrar hareket ettirerek (p,s)orijinal dizginin bölümlerini ('',s)tekrarlamaktır . Bu, parçaların dize dilimleme olmadan doğrudan yönlendirilmesine izin verir. Ancak, bölüm boşla başladığından , sonsuz çağrı döngüsünden kaçınmak için dikkatli olmalıyız .sppf(s)f(s)

JavaScript (ES6), 24 bayt

x=>/^((.+)\2)+$/.test(x)

Muhtemelen bundan daha kısa olamaz.

PHP, 40 Bayt

false için 0, true için 1 yazdırır

<?=preg_match("#^((.+)\\2)+$#",$argv[1]);

Python, 66 64 bayt

-1 bayt için teşekkürler @Zgarb!

f=lambda x,s=1:x>x[:s]and(x==2*x[:s])|f(x[:s])&f(x[s:])|f(x,s+1)

TrueVeya döndürür False.

Çevrimiçi deneyin!

Bu golf herhangi bir yardım seviniriz.

Raket 230 bayt

(let((sl string-length)(ss substring))(if(odd?(sl s))(printf ".~n")(begin(let p((s s))(if(equal? s "")(printf "!")
(for((i(range 1(add1(/(sl s)2)))))(when(equal?(ss s 0 i)(ss s i(* 2 i)))(p(ss s(* 2 i)(sl s)))))))(printf ".~n"))))

'!' Yazdırır dizenin çiftlenebildiği her yol için. Bir 'yazdırır.' sonunda.

Ungolfed:

(define (f s)
  (let ((sl string-length)                              ; create short names of built-in fns
        (ss substring))
    (if (odd? (sl s))  (printf ".~n")                   ; odd length strings cannot be pairable; end here.
        (begin
          (let loop ((s s))                             ; start testing here
            (if (equal? s "") (printf "!")              ; if no remaining string, it must be pairable
                (for ((i (range 1 (add1 (/(sl s)2)))))  ; ch lengths varying from 1 to half of string length
                  (when (equal? (ss s 0 i)              ; ch if substrings are same
                                (ss s i (* 2 i)))
                    (loop (ss s (* 2 i) (sl s) ))))))   ; if yes, loop to check remaining string.
          (printf ".~n")))))                            ; End of testing.

Test yapmak:

(println "Following should be pairable")
(f "bbaabbaa")            ; should produce 2 '!' since 2 ways are possible.
(f "aa")
(f "abaaba")
(f "bbababbb")
(f "aabaaababbbaba")
(f "babababa")                    ; should be pairable in 2 ways.
(f "bbbbbbbbbbbb")                ; should be pairable in many ways.
(f "aaababbabbabbbababbaabaabaababaaba")
(f "aaaabaab")
(println "Following should be unpairable")
; (f "a")
(f "ba")
(f "baab")
(f "abaabaaba")
(f "bbbbbbbbbbbbbbb")
(f "baababbabaaaab")
(f "aaaaabbaaaaa")

Çıktı:

"Following should be pairable"
!!.
!.
!.
!.
!.
!!.
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!.
!.
!.
"Following should be unpairable"
.
.
.
.
.
.

Perl, 16 + 2 = 18 bayt (regex ile)

-nlBayraklarla koş . -Ebedava.

say/^((.+)\2)+$/

Olarak çalıştırmak:

perl -nlE 'say/^((.+)\2)+$/'

Eşleştirilebilirse yakalama gruplarının (bir truthy), eşleştirilemiyorsa boş dize listesini döndürür.

açıklama

-nlBayrakları bir döngüde kodunu (çalışacaktır -n(dolayı çıkarılır yeni satır firar ile giriş koyarak) -ldeğişkene) $_program el sona kadar, daha sonra her bir zaman giriş girilir kodunu değerlendirmek, her zaman. -EBayrak komut satırında kod değerlendirmek sağlar ve sağlayan saykomutu.

say/^((.+)\2)+$/

   /^((.+)\2)+$/  #The regex engine
      (.+)\2      #Find any set of at least one character, followed by itself
     (      )+    #Do this at least one time
   /^         $/  #Make sure that this matches the entire string from start to end
say               #Output the result of the regex

Bir eşleşme bulunursa (örneğin, dizge eşleştirilebilirse), o zaman regex yakalanan grupların bir listesini döndürür, bu daha sonra iletilen sayve sonradan çıkarılan bir gerçeği değerlendirir . Eşleşme bulunmazsa, regex, sonradan iletilen sayve çıktının hatalı olduğu değerlendirilen boş dizeyi döndürür .

Numune:

$ perl -nlE 'say/^((.+)\2)+$/'
aaababbabbabbbababbaabaabaababaaba
baababaababaaba                      #Truthy
baababbabaaaab
                                     #Falsy
bbababbb
bbb                                  #Truthy
aabaaababbbaba
bababa                               #Truthy
abaabaaba
                                     #Falsy

GNU Prolog, 49 46 bayt

Muhtemelen diğer değişkenlerde de çalışsa da, hepsi aynı şekilde dizeleri temsil etmese de; GNU Prolog'un temsili bu problem için faydalıdır.

Bunun regex kullanıp kullanmadığı sayılmaz. Herhangi bir regex benzeri özellik kullanmıyor, ancak dilin tüm anlambilimi regex'inkilerle aynı.

Yeni sürüm (diğer bazı cevaplarda görülen özyineleme numarasını kullanır):

s(X):-append(A,B,X),(A=B;A\=X,B\=X,s(A),s(B)).

Eski versiyon:

s(X):-X=[];append(A,B,X),B\=X,append(C,C,A),s(B).

Bu sbir programdır (Prolog'un bir fonksiyonun karşılığı) . Bu şekilde kullanın:

| ?- s("aa").
true ?
yes
| ?- s("aaababbabbabbbababbaabaabaababaaba").
true ?
yes
| ?- s("baababbabaaaab").
no
| ?- s("bbbbbbbbbbbbbbb").
no

Eski çözümün ilginç bir özelliği, tercümana “daha ​​fazla çözüm var mı?” Diye sorarsanız. kullanımı aracılığıyla ;en true ?hızlı, bu birkaç kez dize ifade edilebilir farklı şekillerde sayısına eşit "true" döndürür (yerine soran daha yukarıda olduğu gibi, istemi de dönüşü basarak yoluyla "herhangi bir çözüm yoktur") Verilen formda (örneğin s("aaaa")., iki kez "true" döndürür , çünkü (a a)(a a)veya as ayrıştırılabilir (aa aa)).

Prolog programlar genellikle geri dönüşümlü (izin siçin üretmek verilen özelliğiyle dizeleri listesini). Büyük olanı (sonsuz bir döngüye girer) değil, ama C'nin boş olmadığından emin olmak için kullandığım golf yöntemi yüzünden; C'yi açıkça boş olmayan olarak belirtmek için programı yeniden yazarsanız, "aa", "aabb", "aabbcc" vb. gibi dizeler oluşturur (Prolog olmak, bunları yapan karakterlerin kimliklerini belirtmez) yukarı, sadece hangi karakterlerin aynı olduğu ile ilgili bir açıklama). Yenisi "aa", "abab", "abcabc", vb. Biçiminde dizeleri oluşturur; bu kendi başına sonsuz bir döngüdür ve bu nedenle sıfır uzunluklu bir dize algılayamadığı için sıkışıp kaldığı noktaya asla ulaşmaz.

Brainfuck, 177 bayt

+[<<<<,]>>>>[>+[>+[[>>]<+<[<<]>+>-]<[>+<-]>>>,>>[>>]+<<[<+>>-<-]<[>+<-]>>[,>[-<<
<<]<[<<<<]>]<[[<<]>]>>]>>[[>+>>>]>>>[>]<<<<[>+[-<<<,<]<[<<<[[<<<<]>>]<]>]>>]<[[-
>>>>]>>[<]<]<<]<.

biçimlendirilmiş:

+[<<<<,]
>>>>
[
  >+
  [
    >+
    [
      [>>]
      <+<[<<]
      >+>-
    ]
    <[>+<-]>
    >>,>>[>>]
    +<<[<+> >-<-]
    <[>+<-]>
    >
    [
      not equal
      ,>[-<<<<]
      <[<<<<]
      >
    ]
    <
    [
      equal
      [<<]
      >
    ]
    >>
  ]
  >>
  [
    mismatch
    [>+>>>]
    >>>[>]
    <<<<
    [
      backtrack
      >+[-<<<,<]
      <
      [
        not done yet
        <<<
        [
          [<<<<]
          >>
        ]
        <
      ]
      >
    ]
    >>
  ]
  <
  [
    match
    [->>>>]
    >>[<]
    <
  ]
  <<
]
<.

Sondaki yeni satır olmadan girişi bekler. \x00False ve \x01true için yazdırır .

Çevrimiçi deneyin.

Bu, derinlikte ilk aramayı uygular. Özellikle: geçerli sonekten başlayarak artan uzunluktaki tekrarlanan önekleri kontrol edin, ardından bir eşleşme bulunursa bir sonraki sonekine geçin, aksi takdirde geri izleme.

Başlangıçta, dize tersine çevrilir ve bir sentinel \x01sonuna yerleştirilir.

Bant 4 hücreli düğümlere ayrılmıştır. Bir düğümün hafıza düzeni:

c h x 0

ckarakter nerede , karakterin hyinelenen bir ön ekin ilk yarısında olup olmadığı xve geçerli karakter çiftinin karşılaştırılmasının izlenmesi gereken bir bayraktır. hİse bayraklar yerde kalmak xbayrakları hareketli pencere oluşturur.

Dizge eşleştirilebilirse, işaretçi ana döngünün sonundaki sentinelin yanına gelir; Aksi halde, geri izleme sırasında işaretçi dizginin sol tarafından düşer.

Brachylog , 5 bayt

~c~jᵐ

Çevrimiçi deneyin!

Bu algoritmanın özellikle falsey durumlarında çok uzun zaman alabileceğine dikkat edin , çünkü giriş dizesinin tüm olası bölümlerini kontrol eder.

açıklama

~c     Reversed concatenate: find a list that, when concatenated, results in the input string
       This examines all partitions of the input
  ~jᵐ  Map reversed juxtapose: for each string in that list, is it the result of concatenating
       a string to itself?

Gibi bir giriş dizesi "ababcc", ~cgelinceye kadar farklı bölümleri dener ["abab", "cc"], bu noktada ~jlistenin her iki öğesi için de başarılı olur, ᵐçıktılar ["ab", "c"]ve yüklem başarılı olur.

R , 31 bayt

grepl("^((.+)\\2)+$",scan(,""))

Çevrimiçi deneyin!

Retina cevabına dayanarak.

R , 129 bayt

Ve işte orjinal, regex olmayan bir cevap:

o=(y=utf8ToInt(scan(,"")))<0;for(i in 2*1:(sum(y>0)/2))for(j in 1:(i/2)){w=i:(i-j+1);v=w-j;if(all(y[w]==y[v]))o[c(v,w)]=T};all(o)

Çevrimiçi deneyin!

Lithp , 57 karakter

#S::((? (!= (null) (match S "^((.+)\\2)+$")) true false))

Örnek kullanım:

% pairable_strings.lithp
(
    (def f #S::((? (!= (null) (match S "^((.+)\\2)+$")) true false)))
    (print (f "aa"))
    (print (f "aabaaababbbaba"))
    (print (f "aaababbabbabbbababbaabaabaababaaba"))
    (print (f "ba"))
)

# ./run.js pairable_strings.lithp
AtomValue { value: 2, type: 'Atom', name: 'true' }
AtomValue { value: 2, type: 'Atom', name: 'true' }
AtomValue { value: 2, type: 'Atom', name: 'true' }
AtomValue { value: 3, type: 'Atom', name: 'false' }