Chương trình phải xuất ra chữ cái được ghép nhiều nhất. Ví dụ: nếu chương trình của bạn được cung cấp chuỗi sau:

"Sally's friend Bobby searched for seashells."

nó phải xuất ra Lvì "ll"xảy ra hai lần, thường xuyên hơn các cặp khác "bb".

Quy tắc:

• Nếu có nhiều hơn một chữ cái có vị trí số 1 cho các lần xuất hiện, thì hãy xuất tất cả chúng theo thứ tự bảng chữ cái (ví dụ: "Sally's friends Jimmy and Bobby rummaged for seashells."nên xuất cả LAND M[hoặc "LM"nếu bạn vui lòng] vì cả hai đều xuất hiện thường xuyên hơn các cặp khác.)
• Chữ được tăng gấp ba, gấp bốn lần, vv được tính là một cặp (ví dụ "lll"ở "willless"được tính là chỉ có một cặp L.)
• Các cặp chữ cái phải nằm trong một từ (ví dụ: "Sally's sociable friends Sammy and Bobby searched for fabulous seashells."nên xuất ra Lvà không phải Svì mặc dù "ss"có nhiều lần xuất hiện hơn "ll", chúng được phân tách bằng khoảng trắng.)
• Chỉ đếm các chữ cái trong bảng chữ cái tiếng Anh
• Trường hợp không quan trọng (ví dụ như "Ss"giống "SS"hoặc "ss", và tất cả được tính là một cặp S.)

Bạn có thể đọc đầu vào của bạn từ bất cứ nơi nào bạn muốn. Mã ngắn nhất sẽ thắng.

Pyth, 26 25 24 16 15 byte

.M/sfthTrrz08ZG

Dùng thử trực tuyến: Trình diễn

Giải trình:

.M/sfthTrrz08ZG   implicit: z = input string
         rz0      convert z to lower-char
        r   8     run-length-encoding (into tuples [count, char])
    f             filter for tuples T, which satisfy:
     thT            T[0]-1 != 0 (count > 1)
   s              join to a string
.M            G   find the elements Z of "abcd...z", which produce the highest value:
  /...........Z       count of Z in ...

Lõi cốt lõi Bash + GNU, 133

grep -Eo '([A-Z])\1+'<<<"${1^^}"|cut -c1|sort|uniq -c|sort -rn|while read n l
do((a-n&&a-0))&&exit||echo $l&&a=$n
done|sort|tr -d \\n

Testcase:

$ for t in "Sally's friend Bobby searched for seashells." \
> "Sally's friends Jimmy and Bobby rummaged for seashells." \
> "willless" \
> "Sally's sociable friends Sammy and Bobby searched for fabulous seashells." \
> "11ss11aa"
> do
> ./mostpaired.sh "$t"
> echo
> done
L
LM
LS
L
AS
$ 

CJam, 29 27 byte

leue`{2a>},s_el-$e`$z~\)-,>

Cảm ơn @Optimizer vì đã chơi golf 2 byte!

Hãy thử trực tuyến trong trình thông dịch CJam .

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

leu    e# Read a line from STDIN and covert to uppercase.
e`     e# Perform run-length encoding.
       e# Example: "AABBBC!!" -> [[2 'A] [3 'B] [1 'C] [2 '!]]
{2a>}, e# Filter out all pairs that are less of equal to [2].
s      e# Stringify.
       e# Example: [[2 'A] [3 'B] [2 '!]] -> "2A3B2!"
_el    e# Push a copy of the string and convert to lowercase.
       e# Example: "2A3B2!" -> "2a3b2!"
-      e# Remove all character from the second string from the first.
       e# Example: "2A3B2!" "2a3b2!" - -> "AB"
$e`$   e# Sort, perform run-length encoding and sort again.
       e# Example: "ABACABDBC" -> "AAABBBCCD"
       e#                      -> [[3 'A] [3 'B] [2 'C] [1 'D]]
                               -> [[1 'D] [2 'C] [3 'A] [3 'B]]
z~     e# Zip and dump.
       e# Example: [[1 'D] [2 'C] [3 'A] [3 'B]] -> [1 2 3 3] ['D 'C 'A 'B]
\)     e# Pop out the last element from the first array.
       e# Example: [1 2 3 3] -> [1 2 3] 3
-      e# Remove all occurrences of the popped element from the array.
       e# Example: [1 2 3] 3 -> [1 2]
,      e# Compute the length of the remainder.
>      e# Skip that many elements from the character array.

Pyth - 23 22 21 20 byte

Sử dụng thay thế regrec để thay thế tất cả hai hoặc nhiều hơn bảng chữ cái thành giá trị tạm thời và sử dụng .Maximal để có được tất cả các lần xuất hiện cao nhất. Cảm ơn @Jakube đã chỉ ra sự dư thừa của việc sắp xếp và lưu một byte.

.M/:rz0+Z"{2,}"KC0KG

Đưa đầu vào từ stdin và đầu ra muốn ['l', 'm']vào thiết bị xuất chuẩn.

.M        G         Values which yield maximal amount over lowercase alphabet
 /                  Count
  :                 Regexp substitution
   rz0              Lowercased input
   +Z               String concatenate current loop var         
    "{2,}"          Regexp 2 or more of previous group
   KCZ              Inline assign null byte to K and use value
  K                 Count K which is null byte

Hãy thử trực tuyến tại đây .

C, 155

Một cái gì đó khác nhau, không có regexps.

m=1,i=1,n[91];
main(c,a)char**a;
{
  char*t=a[1];
  for(;c=*t++;)(c&=95)>64&&c<91&&(c-(*t&95)?i=1:(c=(n[c]+=i),i=0,m=m<c?c:m));
  for(c=0;++c<91;)n[c]-m||putchar(c);
}

Python 2, 132 143 byte

def f(x):import re;x=re.findall(r'(.)\1+',x.upper());s={l:x.count(l)for l in x};print "".join(sorted([l for l in s if s[l]==max(s.values())]))

Chạy ví dụ:

f("Sally's friends Jimmy and Bobby rummaged for seashells.")
LM

CJam, 37 byte

leue`{~_el-\(e&},1f=$e`$_W=0=f-{,1=},

Dùng thử trực tuyến

Nếu không có sự hỗ trợ biểu hiện thường xuyên, tôi e rằng sẽ rất khó để cạnh tranh với Pyth. Đây là điều tốt nhất tôi nghĩ ra trong lần đầu tiên.

Giải trình:

l     Get input.
eu    Convert it to upper case, since case does not matter.
e`    Run length encoding, to split into groups of same characters.
{     Start of block for filtering.
  ~     Unpack the length/letter pair.
  _     Copy the letter.
  el    Change copy to lower case.
  -     Subtract to compare. If result is non-zero, this is a letter.
  \     Swap count to top.
  (     Decrement to get truthy value for count > 1.
  e&    Logical and: It's a letter, and count is > 1.
},    End of filter.
1f=   Don't need the counts anymore, filter out the letters only from the RLE pairs.
$     Sort them, so that multiples of the same letter are sequential.
e`    RLE again, to count how many multiples of each letter we had.
$     And sort again, to get the count/letter pairs in order of incrementing count.
_     Copy list.
W=0=  Pick out count of last element, which is the highest count.
f-    Remove count from pairs that have the highest count. This leaves them
      as one member lists with letter only, while others still have count/letter.
{     Start block for filter.
  ,1=   Check for list length one.
},    End filter.

Hỏi (66)

Tương đối dễ đọc để khởi động:

{where g=max g:.Q.A#count each group y where not differ y:upper x}

R, 105 byte

cat(substr(names(b<-table(regmatches(s<-toupper(readline()),gregexpr("([A-Z])\\1+",s))))[b==max(b)],1,1))

Điều này đọc một dòng văn bản từ STDIN và in một danh sách được phân tách bằng dấu cách của các chữ cái được ghép nối phổ biến nhất thành STDOUT.

Ungolfed + giải thích:

# Read a string from STDIN, convert to uppercase
s <- toupper(readline())

# Get each match of the regex /([A-Z])\1+/
matches <- regmatches(s, gregexpr("([A-Z])\\1+", s))

# Compute the frequency of each match
freq <- table(matches)

# Get the matches with the highest frequency
highest <- names(freq)[freq == max(freq)]

# Each element of highest is the literal pair, so take the first character
first <- substr(highest, 1, 1)

# Print to STDOUT
cat(first)

Ví dụ:

> (code)
Sally's friends Jimmy and Bobby rummaged for seashells.
L M

> (code)
Sally's friend Bobby searched for seashells.
L

> (code)
Sally's sociable friends Sammy and Bobby searched for fabulous seashells.
L

> (code)
11ss11nn
N S

Bạn có thể thử trực tuyến !

Hồng ngọc, 60

f=->s{(?a..?z).group_by{|l|s.scan(/#{l*2}+/i).size}.max[1]}

p f["Sally's friends Jimmy and Bobby rummaged for seashells."]

group_bytạo cấu trúc băm (từ điển) trong đó các khóa là đầu ra của khối và các giá trị là danh sách các chữ cái dẫn đến mỗi khóa. Trong trường hợp này, các khóa được tính từ hơn 2 lần chạy một chữ cái, không phân biệt chữ hoa chữ thường. maxso sánh từng [key,value]tuple theo từ vựng, vì vậy nó chỉ tìm thấy khóa tối đa. Sau đó [1]trả về phần danh sách giá trị của bộ dữ liệu.

Con trăn 2, 185 159 153

i=input().lower()
d=sorted({l:len(i.split(l+l))for l in map(chr,range(97,123))}.items(),None,lambda x:x[1],1)
print sorted(c for c,k in d if k==d[0][1])

Đưa đầu vào dưới dạng một chuỗi trích dẫn.

C # 160 byte

Nơi slà đầu vào:

char? d(string s){s=s.ToUpper();return s.Select((x,i)=>new{y=x,z=i==0?(char?)null:s[i-1]}).Where(x=>x.y==x.z).GroupBy(x=>x.z).OrderBy(x=>x.Count()).Last().Key;}

rs, 146 byte

[^A-Za-z]/
*(.)\1+/\1\1
*(.)(?!\1)/
$/#
+*(.)#(?!.*?\1)/#\1
+*(.)(.*)#(.*)\1/\2#\3\1\1
#/
*(.)(\1*)/\1(_)^^((^^\1\2))
([^_])(_+)(?!_)(?=.*\2_)/
_/

Thử nó! Xin vui lòng! Tôi đã mất mãi mãi để tạo các nút ngay cả với hộp đầu ra trên trang đó ...

Chà, điều này khá ... điên rồ. Logic ở đây là loại lạ; Tôi sẽ chỉ đăng một lời giải thích nếu ai đó hỏi. (Tất nhiên, tôi cũng đã nói rằng đối với câu trả lời INTERCAL có yêu cầu giải thích ... mà tôi chưa bao giờ giải thích ...;)

JavaScript 156 153

var x=prompt(),f={},a=0,o
x.toUpperCase().replace(/([A-Z])\1+/g,function(m,s){m=f[s]=-~f[s]
if(a==m)o.push(s)
if(a<m)a=m,o=[s]})
alert(o.sort().join(""))

Bash + textutils (grep, sed), 111 ký tự

fold -1<<<$s|uniq -iD|sort -f|uniq -ic|sort -rn|grep -i [A-Z]|sed -n '1h;G;s/\(\s*\S\+\s\)\(.\)\n\1./\2/p'|sort

Bash + awk (thay vì sed), 97 ký tự

fold -1<<<$s|uniq -iD|sort -f|uniq -ic|sort -rn|grep -i [A-Z]|awk '!n{n=$1};n==$1{print $2}'|sort

để kiểm tra nó, đầu tiên chỉ định s

s="Sally's friends Jimmy ää and Bobby rummaged ää for seashells."

R, 98 byte

Rất giống với giải pháp của Alex, nhưng sử dụng thay thế thay vì khớp để xác định các chữ cái liên tiếp. Quét được sử dụng để có được đầu vào và cũng để phân chia kết quả thay thế trên không gian.

cat(names(a<-table(scan(,'',t=gsub('([A-z]?)(\\1?)[^A-z]*','\\U\\2 ',scan(,''),T,T))))[a==max(a)])

Một vài bài kiểm tra

> cat(names(a<-table(scan(,'',t=gsub('([A-z]?)(\\1?)[^A-z]*','\\U\\2 ',scan(,''),T,T))))[a==max(a)])
1: 11 was a race horse, 22 was one too. 11 won one race and 22 one won too.
19: 
Read 18 items
Read 2 items
O
> cat(names(a<-table(scan(,'',t=gsub('([A-z]?)(\\1?)[^A-z]*','\\U\\2 ',scan(,''),T,T))))[a==max(a)])
1: Sally's friends Jimmy and Bobby rummaged for seashells.
9: 
Read 8 items
Read 5 items
L M
> cat(names(a<-table(scan(,'',t=gsub('([A-z]?)(\\1?)[^A-z]*','\\U\\2 ',scan(,''),T,T))))[a==max(a)])
1: 11ss11nn
2: 
Read 1 item
Read 2 items
N S
>