এটা কি এন স্পোক?

Question

অনুপ্রাণিত হয়ে কি দ্বিগুণ কথা বলছেন? , আমি আরও কঠিন চ্যালেঞ্জ তৈরি করেছি। একটি স্ট্রিং দেওয়া হয়েছে , কোনও এন speak 2 এর জন্য স্ট্রিংটি এন- স্পোক কিনা তা নির্ধারণ করুন ।$n\geq 2$

এন-স্পোক প্রতিটি অক্ষর $n$ বার বার পুনরাবৃত্তি দ্বারা সংজ্ঞায়িত করা হয় । সঙ্গে $n = 4$ , স্ট্রিং Helloরুপান্তরিত করা হয় HHHHeeeelllllllloooo। আপনার লক্ষ্যটি হ'ল আউটপুটটি কোনও এন-স্পোক রূপান্তরের জন্য বৈধ আউটপুট কিনা তা খুঁজে বের করা।

এটি লক্ষ করা উচিত যে কোনও বাক্য যা বৈধ এন-স্পোক, $n = 2k$ জন্যও বৈধ কে-স্পোক। সুতরাং, সমাধানের শক্ত অংশগুলি $n$ বিজোড় মান হবে ।

ইনপুট

কমপক্ষে 2 টি অক্ষর সমন্বিত একটি স্ট্রিং। ইনপুট অক্ষরের একটি তালিকাও হতে পারে। ইনপুট কেস সংবেদনশীল।

আউটপুট

Truthyযদি স্ট্রিংটি এন-স্পোক হয়, falseyঅন্যথায়।

উদাহরণ

সত্য ঘটনা

HHeelllloo,,  wwoorrlldd!!
TTTrrriiipppllleee   ssspppeeeaaakkk
QQQQuuuuaaaaddddrrrruuuupppplllleeee    ssssppppeeeeaaaakkkk
7777777-------ssssssspppppppeeeeeeeaaaaaaakkkkkkk
999999999
aaaabb
aaaaaaaabbbbcc
aaaaabbbbb
@@@

আপনি যদি অতিরিক্ত সত্যবাদী কেস উত্পন্ন করতে চান তবে আপনি এই ম্যাথগল্ফ স্ক্রিপ্টটি ব্যবহার করতে পারেন । উদ্ধৃতি চিহ্নগুলির মধ্যে স্ট্রিংটি এবং ইনপুট হিসাবে $n$ এর মান রাখুন ।

মিথ্যা মামলা

Hello, world!
TTTrrriiipppllleee   speak
aaaaaaaaaaaaaaaab
Ddoouubbllee  ssppeeaakk
aabbab
aaaabbb
a (does not need to be handled)
(empty string, does not need to be handled)

অবশ্যই এটি যেহেতু কোড গল্ফ তাই কিছু বাইট ছাঁটাতে প্রস্তুত হোন!

Comments

প্রস্তাবিত পরীক্ষার কেস:aabbab

— এডম á

প্রস্তাবিত পরীক্ষার কেস:aaaabbb

— 640 কেবি

আমি আগামীকাল তাদের উভয় যোগ করব, ভাল পরামর্শ।

— ম্যাক্সবি

আপনি আমার চ্যালেঞ্জটি ব্যবহার এবং প্রসারিত করেছেন তাতে আমি সত্যিই সম্মানিত এবং চাটুকার হয়েছি :)

— এজেফারাডে

@ এজেফারাডে আনন্দিত যে আপনি এটি পছন্দ করেছেন! আমি আপনার উভয় চ্যালেঞ্জ উপভোগ করেছি, যা আমাকে এইটির জন্য ধারণা দিয়েছে। খুব শীঘ্রই আরও কঠিন চ্যালেঞ্জ আসতে পারে।

— ম্যাক্সবিব

Answer 1

এপিএল (ডায়ালগ ইউনিকোড) , 12 বাইট

দিয়ে চলে ⎕io←0

1≠∨/⍸2≠/∊0⍞0

এটি অনলাইন চেষ্টা করুন!

অ্যাডামের সাথে একসাথে গল্ফ করেছেন ।

ইনপুটের (উদাহরণ: "aaccccaaaaaabb"ব্যবহার "") একটি স্ট্রিং (অক্ষর একটি শ্রেণীবিন্যাস বোঝাতে এবং ''একটি গৃহস্থালি বোঝাতে)

∊0⍞0 0 এর সাথে ঘিরে এবং সমতল, 0 'a' 'a' 'c' 'c' 'c' 'c' 'a' 'a' 'a' 'a' 'a' 'a' 'b' 'b' 0

2≠/ সমান, সমান নয় 1 0 1 0 0 0 1 0 0 0 0 0 1 0 1

⍸ 0 সূচকযুক্ত সূচকগুলি পান, 0 2 6 12 14

∨/ জিসিডি গণনা, 2

1≠ এটি কি 1 এর সমান নয়?

Answer 2

জাভা 10, 85 বাইট

s->{var r=0>1;for(int i=0;++i<s.length();)r|=s.matches("((.)\\2{"+i+"})*");return r;}

রেজেক্স @ আর্নল্ডের জাভাস্ক্রিপ্ট উত্তর থেকে পোর্ট করা হয়েছে ।

এটি অনলাইনে চেষ্টা করুন।

ব্যাখ্যা:

s->{                          // Method with String parameter and boolean return-type
  var r=0>1;                  //  Result-boolean, starting at false
  for(int i=0;++i<s.length();)//  Loop `i` in the range [1, input-length):
    r|=                       //   Change the result to true if:
      s.matches("((.)\\2{"+i+"})*");
                              //    The input-String matches this regex
                              // NOTE: String#matches implicitly adds a leading ^ and 
                              //       trailing $ to match the full String
  return r;}                  // After the loop, return the result-boolean

রেজেক্স ব্যাখ্যা:

^((.)\2{i})*$                 // Full regex to match, where `i` is the loop-integer
^           $                 // If the full String matches:
  (.)                         //  A character
     \2{i}                    //  Appended with that same character `i` amount of times
 (        )*                  //  And that repeated zero or more times for the entire string

Answer 3

জেলি , 5 বাইট

Œɠg/’

এটি অনলাইন চেষ্টা করুন!

Answer 4

জাভাস্ক্রিপ্ট (ES6), 53 বাইট

@ ওয়াস্টল এর নিয়মিত প্রকাশ থেকে উদ্ভূত এটি কি ডাবল স্পোক ? ।

s=>[...s].some((_,n)=>s.match(`^((.)\\2{${++n}})*$`))

এটি অনলাইন চেষ্টা করুন!

---

পুনরাবৃত্ত সংস্করণ, 55 বাইট

s=>(g=n=>s[++n]&&!!s.match(`^((.)\\2{${n}})*$`)|g(n))``

এটি অনলাইন চেষ্টা করুন!

মন্তব্য

s => (                    // s = input string
  g = n =>                // g is a recursive function taking a repetition length n
    s[++n] &&             // increment n; abort if s[n] is not defined
    !!s.match(            // otherwise, test whether s consists of groups of:
      `^((.)\\2{${n}})*$` //   some character, followed by n copies of the same character
    )                     //
    | g(n)                // or whether it works for some greater n
)``                       // initial call to g with n = [''] (zero-ish)

Answer 5

05 এ বি 1 ই , 5 বাইট

γ€g¿≠

এটি অনলাইন চেষ্টা করুন!

Comments

আমি ভেবেছিলাম ম্যাথগল্ফের আমার 14-বাইটারটি খুব ভাল, তবে আপনি কেবল এটি চূর্ণ করেছিলেন। আমি এটি এবং আপনার জেলি উত্তর উভয়ের জন্য একটি ব্যাখ্যা পছন্দ করব।

— সর্বোচ্চ

@ ম্যাক্সব এটি গ্রুপের রানগুলির দৈর্ঘ্যটি সত্যই গ্রহণ করে, তাদের জিসিডি এবং পরীক্ষাগুলি যদি এটি 1 না হয় তবে তা গণনা করে

— এরিক দি আউটগলফার

Answer 6

পাইথন 2 , 73 70 69 67 বাইট

lambda s:s in[''.join(c*n for c in s[::n])for n in range(2,len(s))]

এটি অনলাইন চেষ্টা করুন!

_{-4 বাইট, জিতসকে ধন্যবাদ}

Comments

আপনি প্রতিস্থাপন 3 বাইট সংরক্ষণ করতে পারবেন set(...)সঙ্গে{...}

— Jitse

এছাড়াও, আপনি স্থানটি সরাতে পারেন...1 in[...

— জিটস

@ জিটস ধন্যবাদ :)

— টিফিল্ড

Answer 7

পাইথন 3 , 69 বাইট

lambda s:any(s=="".join(i*k for i in s[::k])for k in range(2,len(s)))

এটি অনলাইন চেষ্টা করুন!

Answer 8

কোয়াডএস , 16 বাইট ^{এসবিসিএস}

1≠∨/⍵
(.)\1*
⊃⍵L

এটি অনলাইন চেষ্টা করুন!

1≠ থেকে 1 পৃথক

∨/ জিসিডি

⍵ ফলাফল

(.)\1* পিসিআরই এর সাথে 0 বা তার বেশি পুনরাবৃত্তি অনুসরণ করে যে কোনও চরিত্র অনুসন্ধান করছে

⊃⍵L এবং ম্যাচের দৈর্ঘ্যের প্রথমটি (অর্থাত্ ম্যাচের দৈর্ঘ্য) ফিরিয়ে দেওয়া

Answer 9

স্ট্যাক্স , 5 বাইট

╢b}▄;

এটি চালান এবং এটি ডিবাগ করুন

পদ্ধতি:

• রান-দৈর্ঘ্যের গণনা করুন।
• অ্যারের জিসিডি
• > 1?

Answer 10

T-SQL 2008 query, 193 bytes

DECLARE @ varchar(max)='bbbbbbccc';

WITH C as(SELECT number+2n,@ t
FROM spt_values
WHERE'P'=type
UNION ALL 
SELECT n,stuff(t,1,n,'')FROM C
WHERE left(t,n)collate Thai_Bin=replicate(left(t,1),n))SELECT 1+1/~count(*)FROM C
WHERE''=t

Try it online

Comments

Is "collate Thai_Bin" really necessary?

— Dr Y Wit

@DrYWit it depends, the database could be set up as case sensitive. But case sensitive databases are not a popular choice. This could be handled better differently using HASHBYTES or maybe VARBINARY, but that is more costly in bytes

— t-clausen.dk

Answer 11

PHP, 76 75 bytes

while(($x=strspn($argn,$argn[$n+=$x],$n))>1&&($m=max($m,$x))%$x<1);echo!$x;

Try it online!

First attempt, a somewhat naïve iterative approach.

Ungolfed:

// get the length of the next span of the same char
while( $s = strspn( $argn, $argn[ $n ], $n ) ) {

    // if span is less than 2 chars long, input is not n-speak
    if ( $s < 2 ) {
        break;
    }

    // k is GCD
    $k = max( $k, $s );

    // if span length does not divide evenly into GCD, input is not n-speak
    if( ( $k % $s ) != 0 ) {
        break;
    }

    // increment current input string index
    $n += $s;

}

-1 byte, thx to @Night2!

Answer 12

Perl 6, 30 27 26 bytes

{1-[gcd] m:g/(.)$0*/>>.to}

Try it online!

Also uses the GCD trick, but uses the index of the end position of each run matched by the regex. Returns a negative number (truthy) if n-speak, zero (falsey) otherwise.

Answer 13

Haskell, 48 bytes

import Data.List
f=(>1).foldr(gcd.length)0.group

Try it online!

Straightforward; uses the GCD trick.

Answer 14

Red, 80 bytes

func[s][repeat n length? s[if parse/case s[any[copy t skip n t]][return on]]off]

Try it online!

More idiomatic Red:

Red, 81 bytes

func[s][any collect[repeat n length? s[keep parse/case s[any[copy t skip n t]]]]]

Try it online!

Answer 15

Brachylog, 5 bytes

ġz₂=Ṁ

Try it online!

Takes input through the input variable and outputs through success or failure.

At first I thought this would actually be shorter than my solution to Is it double speak?, but then I realized that ġ can and will try a group length of 1.

ġ        It is possible to split the input into chunks of similar length
 z₂      such that they have strictly equal length, and zipped together
    Ṁ    there are multiple results
   =     which are all equal.

Answer 16

Japt -¡, 8 bytes

ò¦ mÊrÕÉ

Try it

ò¦ mÊrÕÉ     :Implicit input of string
ò            :Partition by
 ¦           :  Inequality
   m         :Map
    Ê        :  Length
     r       :Reduce by
      Õ      :  GCD
       É     :Subtract 1
             :Implicit output of boolean negation

Answer 17

Kotlin, 78 bytes

{s->(2..s.length/2).any{i->s.chunked(i).all{z->z.length==i&&z.all{z[0]==it}}}}

Try it online!

Explanation

{s->                      Take a string as input
  (2..s.length/2)         The each string needs two parts at least, prevents the case "aaa" is 3-speak
    .any{i->              If there is any n (in this case i) that is n-speak return true
      s.chunked(i)        Split into length i substrings
      .all{z->            All substrings z
        z.length==i       Should be completely full, ie. "aaa"->["aa","a"]
        &&                And
        z.all{            All chars (it)
          z[0]==it        Should be the same as the first char
        }
      }
    }
  }

Comments

Perhaps the description is unclear, but "aaa" is valid 3-speak. The input string should have at least two characters, but they do not need to be different.

— maxb

@maxb, ok cool. That should be -2 bytes. Thanks for the update. I'll fix that tomorrow

— Brojowski

Answer 18

Scala, 80 bytes

s=>"(.)\\1*".r.findAllIn(s).map(_.size).reduce((x,y)=>(BigInt(x) gcd y).toInt)>1

Try it online!

PS. Original solution was based on split function but it's longer (83 bytes).

s=>(s+s).split("(.)(?!\\1)").map(_.size+1).reduce((x,y)=>(BigInt(x) gcd y).toInt)>1

Comments

This returns true for input aab, unfortunately.

— maxb

@maxb, thanks for checking. s. replaced with (s+s). to handle that.

— Dr Y Wit

Good job! Though now I noticed that it fails for aaaabb and aabbbb.

— maxb

@maxb, apologies, now I tested on all your test cases from starting post.

— Dr Y Wit

Answer 19

Wolfram Language (Mathematica), 34 bytes

GCD@@Length/@Split@Characters@#>1&

Try it online!

Answer 20

Perl 5 -p, 83 79 76 74 bytes

$_=s,(.)\1+,$t=length$&;$t/=2while$t%2-1;$r+=$t==($g||=$t);'',ge==$r&&/^$/

Try it online!

Answer 21

Brain-Flak, 96 bytes

{<>({}())<>({}[({})]){{}<>({}<>){{(({})){({}[()])<>}{}}<>([{}()]({}<>)<>)}(<>)<>}{}}<>{}({}[()])

Try it online!

Uses the same GCD trick that many other submissions use. Output is 0 if the input is not n-speak, and a positive integer otherwise.

# For each character in the input
{

  # Add 1 to current run length
  <>({}())<>

  # If current and next characters differ:
  ({}[({})]){

    # Clean up unneeded difference
    {}<>

    # Move current run length to left stack, exposing current GCD on right stack
    ({}<>)

    # GCD routine: repeat until L=0
    {

      # Compute L mod R
      {(({})){({}[()])<>}{}}<>

      # Move R to left stack; finish computing L mod R and push to right stack
      ([{}()]({}<>)<>)

    }

    # Push 0 for new run length
    (<>)<>

  }{}

}

# Output GCD-1
<>{}({}[()])

Answer 22

Oracle SQL, 182 bytes

select+1-sign(min(length(x)-(select sum(length(regexp_substr(x,'(.)\1{'||i||'}',1,level)))from t connect by level<length(x))))from(select x,level i from t connect by level<length(x))

It works with an assumption that input data is stored in a table t(x), e.g.

with t(x) as (select 'HHeelllloo,,  wwoorrlldd!!' from dual)

Answer 23

K (ngn/k), 29 23 bytes

{~|/(&/s@&1<s)!s:#'=:x}

Try it online!

edit: removed some unnecessary colons (i know when a monadic is required but it's not always clear to me if there's ambiguity so i default to including the colon) and changed the mod x-y*x%y to ngn/k's y!x, which meant i could remove a variable assignment

Answer 24

APL (Dyalog Unicode), 24 22 bytes^SBCS

Anonymous tacit prefix function.

⊂∊1↓⍳∘≢{⍵/⍨(≢⍵)⍴⍺↑⍺}¨⊂

Try it online!

⊂ enclose the string to treat map using the entire string
 e.g. "aaabbb"

⍳∘≢{…}¨ for each of the ⍳ ɩndices 1 through the tally of characters in the string:
 e.g. 3

 ⍺↑⍺ take the current number of elements from the current number, padding with 0s
 e.g. [3,0,0]

 (≢⍵)⍴ cyclically reshape into the shape of the tally of characters in the string
  e.g. [3,0,0,3,0,0]

 ⍵/⍨ use that to replicate the string's characters
  "aaabbb"

1↓ drop the first one (n = 1)

⊂∊ is the the entire string a member of that list?

Comments

Are you dividing the input string into n-sized chunks, and checking that all characters are equal within each chunk? I haven't gotten into APL, but it's definitely the most readable "golfing" language.

— maxb

@maxb I'm in the process of writing an explanation. I'm filtering with all possible masks [1,0,0,1,0,0…] etc. I'll be happy to teach you APL (it doesn't take long to learn). Just pop unto the APL Orchard.

— Adám

Here's {1<∨/≢¨⍵⊆⍨≢∘∪¨,\⍵} for 18

— Kritixi Lithos

@Cowsquack Clever, and different, so why don't you post {1<∨/≢¨⍵⊆⍨≢¨∪\⍵}?

— Adám

Unfortunately it fails for aacccaaaaabb

— Kritixi Lithos

Answer 25

Retina 0.8.2, 28 bytes

M!`(.)\1*
.
.
^(..+)(\1|¶)*$

Try it online! Link includes test cases. Explanation:

M!`(.)\1*

Split the text into runs of identical characters.

.
.

Replace them all with the same character.

^(..+)(\1|¶)*$

Check whether the GCD of the lengths of the runs is greater than 1.

Answer 26

Japt -mR, 12 bytes

ÊÆóXäd_äe e

Try it

Answer 27

MathGolf, 14 bytes

£─╞möl╠mÅ▀£╙╓┴

Try it online!

Explanation

Checks all possible divisions of the input string into equal length chunks, and checks if there is a partition in which all chunks have just one unique character.

£                length of string with pop
 ─               get divisors
  ╞              discard from left of string/array (removes 1)
   mö            explicit map using 7 operators
     l           push input
      ╠          divide input into chunks of size k
       mÅ        explicit map using 2 operators
         ߜ      number of unique elements of list
           ╙     get maximum number of unique characters per chunk
                 loop ends here
            ╓    get the minimum of all maximums
             ┴   check if equal to 1

Answer 28

Pyth, 7 bytes

Outputs 0 for falsy inputs or a positive integer otherwise.

tiFhCr8

Try it online!

Answer 29

Pyth, 8 bytes

<1iFhMr8

Try it online!

<1iFhMr8Q   Implicit: Q=eval(input())
            Trailing Q inferred
      r8Q   Run length encode Q into [count, character]
    hM      Take first element of each
  iF        Reduce by GCD
<1          Is 1 less than the above? Implicit print

Answer 30

Perl 5 -n, 38 bytes

for$i(1..y///c){print/^((.)\2{$i})*$/}

Try it online!

The print"\n" in the footer is needed to separate the outputs.

Straightforward loop through all possible ns. Outputs nothing for "1-speak", anything else for n-speak where n > 1.