Thách thức của bạn: Viết một hàm mang theo một chuỗi s, một nhân vật c, và tìm thấy chiều dài của thời gian dài nhất ctrong s. Độ dài của bước chạy sẽ là l.

Quy tắc :

• Nếu scó độ dài 0 hoặc ctrống, lnên là 0.
• Nếu không có trường hợp nào ctrong s, lnên là 0.
• Lỗ hổng tiêu chuẩn và Quy tắc I / O tiêu chuẩn được áp dụng.
• Không có vấn đề ở đâu trong squá trình chạy của cs, lnên giống nhau.
• Bất kỳ ký tự ASCII có thể in nào cũng có thể xuất hiện trong svà c.

Các trường hợp thử nghiệm :

s,c --> l
"Hello, World!",'l'  -->  2
"Foobar",'o'         -->  2
"abcdef",'e'         -->  1
"three   spaces",' ' -->  3
"xxx xxxx xx",'x'    -->  4
"xxxx xx xxx",'x'    -->  4
"",'a'               -->  0
"anything",''        -->  0

Người chiến thắng :

Như với code-golf , câu trả lời ngắn nhất trong mỗi ngôn ngữ sẽ thắng.

05AB1E , 5 byte

Mã số:

SQγOM

Sử dụng mã hóa 05AB1E . Hãy thử trực tuyến!

Giải trình:

SQ      # Check for each character if it is equal to the second input
  γ     # Split the list of zeros and ones into groups
   O    # Sum each array in the arrays
    M   # Get the maximum

Toán học, 35 byte

Max[Tr/@Split@Boole@Thread[#==#2]]&

Hàm thuần túy lấy danh sách các ký tự và ký tự khác làm đầu vào và trả về một số nguyên không âm. Cải thiện nỗ lực đầu tiên của tôi bằng cách sử dụng quan sát của Adnan (đi lên!) Mà người ta nên kiểm tra để cân bằng ký tự đặc biệt trước khi chia mảng.

Thread[#==#2]kiểm tra xem mỗi ký tự đầu vào trong đối số thứ nhất có bằng ký tự được cung cấp làm đối số thứ hai không. Boolechuyển đổi kết quả Trues và Falses thành 1s và 0s. Splitchia danh sách thành các phần tử liên tiếp; Tr/@tổng hợp từng danh sách con vàMax tìm ra người chiến thắng. (Vì cách thức Maxhoạt động, nếu đối số đầu tiên là danh sách trống, thì hàm này sẽ trả về -∞. Vì vậy, bạn biết đấy, đừng làm điều đó.)

đệ trình đầu tiên (51 byte)

Max[Split@#/.a:{c_String..}:>Boole[c==#2]Length@a]&

Split@#chia đầu vào thành các ký tự liên tiếp, chẳng hạn như {{"t"}, {"h"}, {"r"}, {"e", "e"}, {" ", " ", " "}, {"s"}, {"p"}, {"a"}, {"c"}, {"e"}, {"s"}}cho trường hợp thử nghiệm thứ tư. /.a:{c_String..}:>thay thế mỗi biểu thức acon là một danh sách các ký tự được lặp lại cbằng cách Length@anhân với Boole[c==#2], đó là 1nếu cbằng với ký tự đầu vào và mặt 0khác. Sau đó Maxtrích xuất câu trả lời.

Japt , 20 18 15 byte

fV+Vî+)ª0)n o l

Hãy thử trực tuyến!

Đã lưu 5 byte nhờ obarakon và ETHproductions

Python , 38 byte

f=lambda s,c:+(c in s)and-~f(s,c+c[0])

Hãy thử trực tuyến!

Dennis đã lưu 3 byte bằng cách cập nhật cthành một chuỗi các ký tự trùng lặp thay vì cập nhật đệ quy một số để nhân cvới.

05AB1E , 11 6 byte

-5 byte nhờ tính toán carusocomputing

γvy²¢M

Hãy thử trực tuyến!

γ      # split into chunks of consecutive equal elements
 vy    # For each chunk...
   ²¢  #  Count the number of input characters in this chunk
     M #  Push the largest count so far

Haskell, 43 39 byte

f c=maximum.scanl(\n k->sum[n+1|c==k])0

Hãy thử trực tuyến!

Chạy qua chuỗi và thay thế char hiện tại bằng một bộ đếm được tăng bất cứ khi nào nó bằng c hoặc đặt lại 0nếu không. Lấy tối đa của danh sách.

Cảm ơn @xnor cho 4 byte.

C # 116 115 byte

Golf mã đầu tiên của tôi

Đã chỉnh sửa vì nội dung gửi ban đầu là một đoạn mã và thiếu không gian tên bắt buộc cho regex

Chỉnh sửa viết lại hoàn chỉnh # 2 để hỗ trợ các ký tự có ý nghĩa regex đặc biệt

sử dụng System.Linq; s => c => System.Text.RegularExpressions.Regex.Replace (s, "[^" + c + "]", ++ c + ""). Split (c) .Max (x => x. Chiều dài);

using System.Linq;s=>c=>{var r=(char)(c-1);return string.Join("",s.Select(x=>x==c?c:r)).Split(r).Max(x=>x.Length)};

JavaScript (ES6), 54 53 51 byte

-2 byte nhờ @Neil
-1 byte nhờ @apsillers

s=>c=>[...s].map(x=>j=(i=x==c&&i+1)>j?i:j,i=j=0)&&j

Đưa đầu vào theo cú pháp currying : f("foobar")("o").

Kiểm tra đoạn trích

f=
s=>c=>[...s].map(x=>j=(i=x==c&&i+1)>j?i:j,i=j=0)&&j

String: <input id=I> Letter: <input id=J maxlength=1 size=1> <button onclick='O.innerHTML+=`f("${I.value}")("${J.value}") = ${f(I.value)(J.value)}\n`'>Run</button><pre id="O"></pre>

Một tùy chọn khác sử dụng evalvà for(54 byte)

s=>c=>eval("i=j=0;for(x of s)i=x==c&&i+1,i>j?j=i:0;j")

Trả lời cũ bằng Regex (85 byte)

s=>c=>c?Math.max(...s.match(eval(`/${/\w/.test(c)?c:"\\"+c}*/g`)).map(x=>x.length)):0

JavaScript (Firefox 30-57), 75 72 byte

(s,c)=>Math.max(0,...(for(s of s.split(/((.)\2*)/))if(s[0]==c)s.length))

Đoạn mã tương thích ES6:

f=
(s,c)=>Math.max(0,...s.split(/((.)\2*)/).filter(s=>s[0]==c).map(s=>s.length))

<div oninput=o.textContent=f(s.value,c.value)><input id=s><input id=c maxlength=1 size=1><pre id=o>0

split trả về một chuỗi các chuỗi rỗng và các ký tự đơn cũng như các lần chạy nhưng điều này không ảnh hưởng đến kết quả.

Micro , 112 byte

{T l m 1+:Q # T Q T l~:r}:Z{T[0]+}:X
{i s m:n
n p = if(Z,X)
i L=if(,a)}:a
0\\:C:s:i"":p"":n[0]:T
s l:L
a
T l m:\

C (gcc) , 63 byte

i;m;f(s,c)char*s;{for(i=m=0;*s;s++)*s^c?m=m>i?m:i,i=0:i++;s=m;}

Hãy thử trực tuyến!

Perl 6 ,  45 43  42 byte

->$_,$c {$c&&$_??.comb(/$c+/)».chars.max!!0}

Kiểm tra nó

->$_,$c {$c&&$_??.comb(/$c+/).max.chars!!0}

Kiểm tra nó

->$_,$c {$c&$_??.comb(/$c+/).max.chars!!0}

Kiểm tra nó

Mở rộng:

-> $_, $c {       # pointy block lambda

    $c & $_       # AND junction of $c and $_
                  #   empty $c would run forever
                  #   empty $_ would return 4 ( "-Inf".chars )

  ??              # if True (neither are empty)

    .comb(/$c+/)  # find all the substrings
    .max          # find the max
    .chars        # get the length

  !!              # if False (either is empty)

    0             # return 0
}

JavaScript, ES6, 52

Giải pháp đệ quy coi đầu vào chuỗi là một mảng (lưu ý: đầu vào ban đầu vẫn là một chuỗi) và tiêu thụ từ trái sang phải trong ký tự C:

f=([C,...s],c,t=0,T=0)=>C?f(s,c,C==c&&++t,t>T?t:T):T

Theo dõi chạy hiện tại tvà tốt nhất toàn cầu trongT .

Giải trình:

f=            // function is stored in `f` (for recursion)
  ([C,...s],  // turn input string in first-char `C` and the rest in `s`
   c,         // argument `c` to search for
   t=0,T=0)   // current total `t`, best total `T`
     =>
        C?             // if there is still any char left in the string
          f(s,c,       // recursively call `f`
            C==c&&++t, // increment `t` if char is match, or set `t` to `false`
            t>T?t:T)   // set global `T` to max of `t` and `T`
          :T           // when string is depleted, return `T`

Cài đặt tthành falsekhông khớp hoạt động bởi vì bất cứ khi nào tđược tăng lên, falseđược coi là 0(nghĩa false + 1là 1) và falsesẽ không bao giờ so sánh vắt hơn bất kỳ giá trị nào trong toàn cầu-max T.

Thạch , 5 byte

=ŒgṀS

Đây là một liên kết / hàm dyadic có một chuỗi và một ký tự. Lưu ý rằng nó không thể hoạt động như một chương trình đầy đủ, vì đầu vào từ các đối số dòng lệnh sử dụng cú pháp Python và Python - không giống như Jelly - không phân biệt các chuỗi singleton với các ký tự.

Hãy thử trực tuyến!

Làm thế nào nó hoạt động

=ŒgṀS  Main link. Left argument: s (string). Right argument: c (character)

=      Compare all characters in s with c, yielding 1 for c and 0 otherwise.
 Œg    Group adjacent, equal Booleans in the resulting array.
   Ṁ   Take the maximum. Note that any array of 1's will be greater than any array
       of 0's, while two arrays of the same Booleans are compared by length.
    S  Take the sum, yielding the length for an array of 1's and 0 otherwise.

Võng mạc , 25 byte

(.).*?(\1*)(?!.+\2).*
$.2

Hãy thử trực tuyến!

Nhân vật đầu tiên là nhân vật được kiểm tra.

APL (Dyalog) , 18 11 byte

Yêu cầu hoán đổi ⊂với ⊆Phiên bản 16.0 hoặc có ⎕ML←3(mặc định trên nhiều hệ thống).

⌈/0,≢¨⊂⍨⎕=⎕

Hãy thử trực tuyến!

⎕=⎕ Boolean cho sự bình đẳng giữa hai đầu vào

⊂⍨ tự phân vùng (bắt đầu phân vùng trong đó phần tử khác không lớn hơn phần trước của nó)

≢¨ kiểm đếm từng

0, trả trước một số không (cho các trường hợp đầu vào trống)

⌈/ tối đa trong số đó

Giải pháp cũ

Nhắc trước cho s , sau đó cho c

⌈/0,(⎕,¨'+')⎕S 1⊢⎕

Hãy thử trực tuyến!

⎕ nhắc nhở cho s

⊢ cho rằng

(... )⎕S 1PCRE S earch cho độ dài của lần xuất hiện của

 '+' một biểu tượng dấu cộng (có nghĩa là một hoặc nhiều)

 ,¨  gắn vào từng yếu tố của

 ⎕ nhắc nhở cho c

0, trả trước một số không (cho các trường hợp đầu vào trống)

⌈/ tối đa trong số đó

c phải được đưa ra dưới dạng vectơ 1 phần tử của một chuỗi kèm theo nếu nó cần thoát.

PHP, 70 67 byte

ba phiên bản:

while(~$c=$argv[1][$i++])$x=max($x,$n=($c==$argv[2])*++$n);echo+$x;
while(~$c=$argv[1][$i++])$x=max($x,$n=$c==$argv[2]?++$n:0);echo+$x;
for(;++$n&&~$c=$argv[1][$i++];)$x=max($x,$n*=$c==$argv[2]);echo+$x;

lấy đầu vào từ các đối số dòng lệnh; chạy với -rhoặc kiểm tra chúng trực tuyến .

PHP , 70 byte

for(;~$c=$argv[1][$i++];)$r[]=$argv[2]==$c?++$n:$n=0;echo$r?max($r):0;

Hãy thử trực tuyến!

PHP , 75 byte

for(;~$s=substr($argv[1],$i++);)$r[]=strspn($s,$argv[2]);echo max($r?:[0]);

Hãy thử trực tuyến!

PHP , 83 byte

<?=@preg_match_all("<".preg_quote($argv[2])."+>",$argv[1],$t)?strlen(max($t[0])):0;

Hãy thử trực tuyến!

+8 byte để tránh @

<?=($a=$argv[2])&&preg_match_all("<".preg_quote($a)."+>",$argv[1],$t)?strlen(max($t[0])):0;

JavaScript (ES6), 47 40 38 byte

(Đã lưu 7 byte nhờ @Neil và 2 byte nhờ @HermanLauenstein.)

s=>g=c=>c&&s.includes(c)?1+g(c+c[0]):0

Giải trình:

Tìm kiếm đệ quy cho một lần chạy dài hơn cho đến khi không tìm thấy.

Đoạn trích:

let f=

s=>g=c=>c&&s.includes(c)?1+g(c+c[0]):0

console.log(f('Hello, World!')('l'  ));  //2
console.log(f('Foobar')('o'         ));  //2
console.log(f('abcdef')('e'         ));  //1
console.log(f('three   spaces')(' ' ));  //3
console.log(f('xxx xxxx xx')('x'    ));  //4
console.log(f('xxxx xx xxx')('x'    ));  //4
console.log(f('')('a'               ));  //0
console.log(f('anything')(''        ));  //0

Thạch, 10 9 byte

f⁴L
ŒgÇ€Ṁ

Giải trình:

f⁴L
f⁴      -Filter by the character argument.
  L     -Return Length of filtered String.

ŒgÇ€»/
Œg      -Group string by runs of characters.
  ǀ    -Run above function on each group.
    Ṁ   -Return the largest in the list.

Hãy thử trực tuyến!

Python 3 , 71 byte

f=lambda s,c,m=0,k=0:s and f(s[1:],c,-~m*(s[0]==c),max(m,k))or max(m,k)

Hãy thử trực tuyến!

Haskell , 66 byte

import Data.List
((maximum.(0:).map length).).(.group).filter.elem

Hãy thử trực tuyến!

Một phiên bản dễ đọc hơn một chút - không phải là pointfree:

f c s = maximum (0:(map length (filter (elem c) (group s))))

Nhóm chuỗi theo chữ cái, sau đó lọc theo các nhóm có chứa ký tự phù hợp, sau đó tìm độ dài, nối 0 vào danh sách độ dài trong trường hợp nó không xuất hiện và cuối cùng tìm thấy giá trị tối đa.

Toán học, 109 byte

(s=Differences[First/@StringPosition[#,#2]];k=t=0;Table[If[s[[i]]==1,t++;If[k<t,k=t],t=0],{i,Length@s}];k+1)&

đầu vào

["xxx xxxx xx", "x"]

Python 2 , 69 byte

lambda s,c:c and max(map(len,re.findall(c+'+',s))or[0])or 0
import re

Hãy thử trực tuyến!

CJam , 20 19 18 16 byte

0q~e`f{~@=*}$+W=

Hãy thử trực tuyến!

Giải trình

0                 e# Push 0. We'll need it later.
 q~               e# Read and eval input. Pushes c and s to the stack.
   e`             e# Run-length encode s: turns it into an array of [length, char] pairs.
     f{           e# Map over these pairs using c an extra parameter:
       ~          e#  Dump the pair to the stack.
        @=        e#  Bring c to the top, check equality with the char, pushing 0 or 1.
          *       e#  Multiply the length by the result.
           }      e# (end map)
            $     e# Sort the resulting list in ascending order.
             +    e# Prepend the 0 from before, in case it's empty.
              W=  e# Get the last element.

Excel, 56 byte

{=MAX(IFERROR(FIND(REPT(A2,ROW(A:A)),A1)^0*ROW(A:A),0))}

snên được nhập vào A1.
cnên được nhập vào A2.
Công thức phải là một công thức mảng ( Ctrl+ Shift+ Enter) có thêm dấu ngoặc nhọn{ } .

Về mặt kỹ thuật, điều này chỉ có thể xử lý ở nơi chạy lâu nhất dưới 1.048.576 (tức là 2 ^ 20) vì đó là cách các hàng Excel hiện tại sẽ cho phép bạn có trong một bảng tính. Vì nó tải hàng triệu giá trị + vào bộ nhớ mỗi khi tính toán lại, đây không phải là một công thức nhanh .

MATL , 15 byte

0i0v=dfd1L)0hX>

Hãy thử trực tuyến!

Thuật toán cơ bản rất đơn giản (không sử dụng phân tách!), Nhưng tôi đã phải ném vào 0i0vvà 0hđể cho phép các trường hợp cạnh. Tuy nhiên, tôi nghĩ rằng cách tiếp cận này rất hay và có lẽ tôi vẫn có thể tìm ra một kỹ thuật khác để xử lý các trường hợp cạnh: thuật toán tìm ra bước chạy dài nhất ở giữa một chuỗi chỉ tốt, nhưng không phải cho các ký tự đơn hoặc chuỗi rỗng; Tôi vẫn đang thử nghiệm nếu tôi có thể 'đệm' các biến ở những nơi tốt hơn để có kết quả tốt hơn.

0i0v % Prepends and appends a zero to the (implicit) input.
   = % Element-wise equality with the desired char (implicit input)
   d % Pairwise difference. Results in a 1 at the start of a run, and -1 at the end.
   f % Get indices of 1's and -1's.
   d % Difference to get length of the runs (as well as length of non-runs)
 1L) % Only select runs, throw out non-runs. We now have an array of all run lengths.
  0h % 'Find' (`f`) returns empty if no run is found, so append a zero to the previous array.
  X> % Maximum value.

Không làm việc trên sản phẩm nào c. Sau đó, một lần nữa, tôi cho rằng mỗi chuỗi chứa một chuỗi vô hạn các chuỗi trống giữa mỗi ký tự :)

R , 66 58 byte

-8 byte nhờ BLT và MickyT

function(s,c)max((r=rle(el(strsplit(s,''))))$l*(r$v==c),0)

trả về một hàm ẩn danh. TIO có chênh lệch 1 byte vìel không hoạt động ở đó vì những lý do không thể giải thích được.

Hãy thử trực tuyến!

Java 8, 67 65 byte

s->c->{int t=0,m=0;for(char x:s)m=m>(t=x==c?t+1:0)?m:t;return m;}

-2 byte nhờ @ OlivierGrégoire

Đưa đầu vào slà một char[], và cnhư mộtchar

Giải trình:

Hãy thử nó ở đây.

s->c->{          // Method with char[] and char parameters and int return-type
  int t=0,       //  Temp counter-integer
      m=0;       //  Max integer
  for(char a:s)  //  Loop over the characters of the input
    m=m>(
     t=x==c?     //   If the current character equals the input-character:
      t+1        //    Raise `t` by 1
      :          //   Else:
       0)        //    Reset `t` to 0
    ?m:t;        //   If `t` is now larger than `m`, put `t` as new max into `m`
                 //  End of loop (implicit / single-line body)
  return m;      //  Return the resulting max
}                // End of method

Ruby, 40 byte

->s,c{s.split(%r{[^#{c}]}).max&.size||0}

Hãy thử trực tuyến!