Das Programm muss den Buchstaben ausgeben, der am häufigsten gekoppelt ist. Wenn Ihr Programm beispielsweise die folgende Zeichenfolge erhalten hat:

"Sally's friend Bobby searched for seashells."

es muss ausgegeben werden, Lweil "ll"es zweimal auftritt, was häufiger ist als das andere Paar "bb".

Regeln:

• Wenn mehr als ein Buchstabe den 1. Platz für Vorkommen hat, geben Sie alle in alphabetischer Reihenfolge aus (z. B. "Sally's friends Jimmy and Bobby rummaged for seashells."sollten beide LUND- Zeichen ausgegeben werden M(oder "LM"wenn Sie möchten), da beide häufiger vorkommen als andere Paare.)
• Buchstaben, die verdreifacht, vervierfacht usw. werden, zählen als ein Paar (z. B. wird "lll"in "willless"als nur ein Paar gezählt L.)
• Buchstabenpaare müssen aus einem Wort bestehen (zB "Sally's sociable friends Sammy and Bobby searched for fabulous seashells."sollten ausgegeben werden Lund nicht, Sweil sie trotz "ss"mehr Vorkommen als "ll"durch Leerzeichen getrennt sind.)
• Zähle nur Buchstaben aus dem englischen Alphabet
• Groß- / Kleinschreibung spielt keine Rolle (z. B. "Ss"ist das Gleiche wie "SS"oder "ss", und alle werden als ein Paar gezählt S.)

Sie können Ihre Eingaben von jedem beliebigen Ort aus lesen. Kürzester Code gewinnt.

Pyth, 26 25 24 16 15 Bytes

.M/sfthTrrz08ZG

Probieren Sie es online aus: Demonstration

Erläuterung:

.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 ...

Bash + GNU-Coreutils, 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

Testfälle:

$ 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 Bytes

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

Vielen Dank an @Optimizer für das Golfen mit 2 Bytes!

Probieren Sie es online im CJam-Interpreter aus .

Wie es funktioniert

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 Bytes

Verwendet die reguläre Ausdrücke-Ersetzung, um alle zwei oder mehr Buchstaben durch einen temporären Wert zu ersetzen, und verwendet die .MOption "Aximal", um alle Buchstaben mit dem höchsten Vorkommen zu erhalten. Vielen Dank an @Jakube für den Hinweis auf die Redundanz beim Sortieren und Speichern eines Bytes.

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

Übernimmt Eingaben von stdin und Ausgaben ['l', 'm']von stdout.

.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

Probieren Sie es hier online aus .

C 155

Etwas anderes, keine regulären Ausdrücke.

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 Bytes

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())]))

Beispiellauf:

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

CJam, 37 Bytes

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

Probieren Sie es online aus

Ohne Unterstützung durch reguläre Ausdrücke ist es leider schwierig, mit Pyth zu konkurrieren. Dies ist das Beste, was ich mir bei einem ersten Durchgang ausgedacht habe.

Erläuterung:

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.

Q (66)

Relativ lesbar zum Booten:

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

R, 105 Bytes

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

Dies liest eine Textzeile aus STDIN und druckt eine durch Leerzeichen getrennte Liste der häufigsten gepaarten Buchstaben an STDOUT.

Ungolfed + Erklärung:

# 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)

Beispiele:

> (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

Sie können es online ausprobieren !

Rubin, 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_byErstellt eine Hash (Wörterbuch) -Struktur, in der die Schlüssel die Ausgabe des Blocks sind und die Werte Buchstabenlisten sind, die zu jedem Schlüssel führen. In diesem Fall handelt es sich bei den Schlüsseln um Zählungen von mehr als 2 Buchstabenläufen, bei denen die Groß- und Kleinschreibung nicht berücksichtigt wird. maxvergleicht jedes [key,value]Tupel lexikografisch, sodass nur der maximale Schlüssel gefunden wird. Dann [1]gibt die Werteliste Teil des Tupels.

Python 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])

Nimmt Eingaben in Anführungszeichen.

C # 160 Bytes

Wo sist die Eingabe:

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 Bytes

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

Versuch es! Bitte! Es hat ewig gedauert, bis ich die Schaltflächen auch mit dem Ausgabefeld auf dieser Seite erstellt habe ...

Nun, das war ziemlich ... verrückt. Die Logik hier ist irgendwie komisch; Ich werde nur eine Erklärung posten, wenn jemand danach fragt. (Natürlich habe ich auch gesagt, dass ich für eine INTERCAL-Antwort, deren Erklärung angefordert wurde, nie erklärt habe ...;)

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 Zeichen

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 (statt sed), 97 Zeichen

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

Um es zu testen, weisen Sie zuerst s zu

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

R, 98 Bytes

Sehr ähnlich zu Alex 'Lösung, verwendet jedoch eher eine Substitution als eine Übereinstimmung, um aufeinanderfolgende Buchstaben zu bestimmen. Scan wird verwendet, um die Eingabe abzurufen und das Substitutionsergebnis auf Leerzeichen aufzuteilen.

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

Ein paar Tests

> 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
>