文字列があり、すべての文字の最大繰り返しシーケンスを検索するとします。

たとえば、サンプル入力が与えられた場合：

"acbaabbbaaaaacc"

サンプル入力の出力は次のとおりです。

a=5
c=2
b=3

ルール：

• あなたのコードは関数でもプログラムでも構いません-あなたが選択するために
• 入力は、stdin、file、またはfunctionパラメーターによることができます
• 出力には、入力に現れる文字のみを含める必要があります
• 入力の最大長は1024です
• 出力順序は重要ではありませんが、[char] = [maximum repeat sequence] [delimiter]の形式で出力する必要があります
• 文字列には任意の文字を含めることができます

コンテストは、3日木曜日23:59 UTCに終了します。

8086マシンコード、82 80

x.comファイルの内容：

B7 3D 89 DF B1 80 F3 AA 0D 0A 24 B4 01 CD 21 42
38 D8 74 F7 38 17 77 02 88 17 88 C3 31 D2 3C 0D
75 E9 BF 21 3D B1 5E 31 C0 F3 AE E3 EE 4F BB 04
01 8A 05 D4 0A 86 E0 0D 30 30 89 47 02 3C 30 77
04 88 67 03 43 89 3F 89 DA B4 09 CD 21 47 EB D7

最大99文字の繰り返しのみをサポートします。

debug.comコメント付きのソースコード（アセンブラの入力として使用）！

a
    mov bh, 3d         ; storage of 128 bytes at address 3d00
    mov di, bx
    mov cl, 80
    rep stosb          ; zero the array
    db 0d 0a 24
; 10b
    mov ah, 1
    int 21             ; input a char
    inc dx             ; calculate the run length
    cmp al, bl         ; is it a repeated character?
    je  10b
    cmp [bx], dl       ; is the new run length greater than previous?
    ja  11a
    mov [bx], dl       ; store the new run length
; 11a
    mov bl, al         ; remember current repeating character
    xor dx, dx         ; initialize run length to 0
    cmp al, d          ; end of input?
    jne 10b            ; no - repeat
    mov di, 3d21       ; start printing run lengths with char 21
    mov cl, 5e         ; num of iterations = num of printable characters
; 127
    xor ax, ax
    repe scasb         ; look for a nonzero run length
    jcxz 11b           ; no nonzero length - exit
    dec di
    mov bx, 104        ; address of output string
    mov al, [di]       ; read the run length
    aam                ; convert to decimal
    xchg al, ah
    or  ax, 3030
    mov [bx+2], ax
    cmp al, 30         ; was it less than 10?
    ja  145
    mov [bx+3], ah     ; output only one digit
    inc bx             ; adjust for shorter string
; 145
    mov [bx], di       ; store "x=" into output string
    mov dx, bx         ; print it
    mov ah, 9
    int 21
    inc di
    jmp 127            ; repeat
; 150

rcx 50
n my.com
w
q

ここで使用したいくつかのゴルフのテクニックは楽しいと思います。

• 配列のアドレスはです3d00。ここで3dはのASCIIコードです=。この方法では、文字の配列のエントリのアドレスxは3d78です。2文字の文字列として解釈される場合、それはx=です。
• 出力バッファはアドレスにあります104; 不要になった初期化コードを上書きします。行末シーケンス0D 0A 24は無害なコードとして実行されます。
• の aam説明ではゴルフはできませんが、...
• 数値を2回書き込みます。最初に10より大きいと仮定し、次に小さい場合は修正します。
• 終了命令は、あいまいなアドレス11bにあります。これには、必要なマシンコードが含まれていますC3。

CJam、27 26 25バイト

l:S_&{'=L{2$+_S\#)}g,(N}/

オンラインでお試しください。

例

$ cjam maxseq.cjam <<< "acbaabbbaaaaacc"
a=5
c=2
b=3

使い方

l:S       " Read one line from STDIN and store the result in “S”.                   ";
_&        " Intersect the string with itself to remove duplicate characters.        ";
{         " For each unique character “C” in “S”:                                   ";
  '=L     " Push '=' and ''.                                                        ";
  {       "                                                                         ";
    2$+_  " Append “C” and duplicate.                                               ";
    S\#)  " Get the index of the modified string in “S” and increment it.           ";
  }g      " If the result is positive, there is a match; repeat the loop.           ";
  ,       " Retrieve the length of the string.                                      ";
  (       " Decrement to obtain the highest value that did result in a match.       ";
  N       " Push a linefeed.                                                        ";
}/        "                                                                         ";

J-52バイト

さて、再び簡単なアプローチ。

f=:([,'=',m=:":@<:@#@[`(]m~[,{.@[)@.(+./@E.))"0 1~~.

説明：

f=:([,'=',m=:":@<:@#@[`(]m~[,{.@[)@.(+./@E.))"0 1~~.
                                                 ~~. Create a set of the input and apply it as the left argument to the following.
   ([,'=',m=:":@<:@#@[`(]m~[,{.@[)@.(+./@E.))"0 1    The function that does the work
                                             "0 1    Apply every element from the left argument (letters) with the whole right argument (text).
                                  @.(+./@E.)         Check if the left string is in right string.
                       (]m~[,{.@[)                   If yes, add one letter to the left string and recurse.
             ":@<:@#@[                               If not, return (length of the left string - 1), stringified.
    [,'=',                                           Append it to the letter + '='

例：

   f 'acbaabbbaaaaacc'
a=5
c=2
b=3
   f 'aaaabaa'
a=4
b=1

（他の多くの回答のように）自由形式の出力が許可されている場合、45バイトバージョンもあります。これらのボックスは、ボックスのリストを表します（はい、SEの行の高さはそれらを分割しますが、そのように印刷されます）。

   f=:([;m=:<:@#@[`(]m~[,{.@[)@.(+./@E.))"0 1~~.
   f 'acbaabbbaaaaacc'
┌─┬─┐
│a│5│
├─┼─┤
│c│2│
├─┼─┤
│b│3│
└─┴─┘
   f 'aaaabaabba'
┌─┬─┐
│a│4│
├─┼─┤
│b│2│
└─┴─┘

ルビー、72

(a=$*[0]).chars.uniq.map{|b|puts [b,a.scan(/#{b}+/).map(&:size).max]*?=}

これは、コマンドライン引数から入力を受け取り、標準出力に出力します。

GolfScript、26バイト

:s.&{61{2$=}s%1,/$-1=,n+}%

オンラインでお試しください。

説明：

• :s入力文字列sを後で使用するために変数に保存します。
• .&入力内の一意の文字を抽出し、{ }%ループ内の残りのコードが繰り返し処理します。
• 61 スタック上の現在の文字の上に数値61（等号のASCIIコード）をプッシュして、出力区切り文字として機能させます。
• {2$=}s%文字列sを取得し、反復される現在の文字と等しい場合は文字を1に置き換え、そうでない場合は0に置き換えます。（また、現在の文字を出力用にスタックに残します。）
• 1,/ この1と0の文字列を取り、0で分割します。
• $結果のサブストリングをソートし-1=、最後のサブストリングを抽出し（これらはすべて同じ文字の繰り返しで構成されているため、最も長い）、,このサブストリングの長さを返します。
• n+ 長さを文字列化し、それに改行を追加します。

追伸 出力の等号がオプションである場合、24バイトの合計の長さのために、61省略できます（およびに2$置き換えられます）。1$

:s.&{{1$=}s%1,/$-1=,n+}%

CoffeeScript、109バイト

正規表現が好きです。

f=(s)->a={};a[t[0]]=t.length for t in s.match(/((.)\2*)(?!.*\1)/g).reverse();(k+'='+v for k,v of a).join '\n'

ブラウザのコンソールで試すことができるコンパイル済みJavaScriptは次のとおりです。

f = function(s) {
  var a, t, _i, _len, _ref;
  a = {};
  _ref = s.match(/((.)\2*)(?!.*\1)/g).reverse();
  for (_i = 0, _len = _ref.length; _i < _len; _i++) {
    t = _ref[_i];
    a[t[0]] = t.length;
  }
  return a;
};

その後、あなたは呼び出すことができます

f("acbaabbbaaaaacc")

取得するため

c=2
a=5
b=3

Pyth、24 25 26（または29）

=ZwFY{Z=bkW'bZ~bY)p(Yltb

テストはここで行うことができます：リンク

次の形式の出力：

('a', 5)
('c', 2)
('b', 3)

説明：

=Zw              Store one line of stdin in Z
FY{Z             For Y in set(Z):
=bk              b=''
W'bZ             while b in Z:
~bY              b+=Y
)                end while
p(Yltb           print (Y, len(b)-1)

Python：

k=""
Z=copy(input())
for Y in set(Z):
 b=copy(k)
 while (b in Z):
  b+=Y
 print(_tuple(Y,len(tail(b))))

適切な（a = 5）出力を得るには、次を使用します。

=ZwFY{Z=bkW'bZ~bY)p++Y"="`ltb

29文字

C、126の 125 119バイト

l,n,c[256];main(p){while(~(p=getchar()))n*=p==l,c[l=p]=c[p]>++n?c[p]:n;for(l=256;--l;)c[l]&&printf("%c=%d\n",l,c[l]);}

ランニング：

$ gcc seq.c 2>& /dev/null
$ echo -n 'acbaabbbaaaaacc' | ./a.out
c=2
b=3
a=5

Mathematica、74 72 69

Print[#[[1,1]],"=",Max[Tr/@(#^0)]]&/@Split@Characters@#~GatherBy~Max&

% @ "acbaabbbaaaaacc"

a=5
c=2
b=3

あまり良くありませんが、文字列はMathematicaの最良の領域ではありません。しかし、良くなっています。:-)

C＃（LinQPad）

146

これはtsavinoの答えですが、短いです。ここでは、のDistinct()代わりに使用しましたGroupBy(c=>c)。また、中括弧は省略されていforeach-loopます。

void v(string i){foreach(var c in i.Distinct())Console.WriteLine(c+"="+(from Match m in Regex.Matches(i,"["+c+"]+")select m.Value.Length).Max());}

136

私lambda expressionは通常のクエリ構文の代わりにを使用しようとしましたが、Cast<Match>最初に必要だったため、コードが1文字長くなりました...とにかく、LinQPadで実行できるため、Dump()代わりに使用できますConsole.WriteLine()：

void v(string i){foreach(var c in i.Distinct())(c+"="+(from Match m in Regex.Matches(i,"["+c+"]+")select m.Value.Length).Max()).Dump();}

コードのさらなる研究は私を考えましたMax()。この関数もを受け入れますFunc。この方法でSelect、ラムダepxressionを使用するときにその部分をスキップできます。

void v(string i){foreach(var c in i.Distinct())(c+"="+Regex.Matches(i,"["+c+"]+").Cast<Match>().Max(m=>m.Value.Length)).Dump();}

したがって、最終結果：

128

更新：

Dan Puzeyからのヒントのおかげで、さらに6文字を保存できました。

void v(string i){i.Distinct().Select(c=>c+"="+Regex.Matches(i,"["+c+"]+").Cast<Match>().Max(m=>m‌​.Value.Length)).Dump();}

長さ：

122

Python 3（70）

s=input()
for c in set(s):
 i=1
 while c*i in s:i+=1
 print(c,'=',i-1)

ゴルフされたPythonでさえも非常に読みやすくなります。このコードは、1文字の変数と1行のwhileループを除き、完全に慣用的だと思います。

実行例：

>>> helloworld
e = 1
d = 1
h = 1
l = 2
o = 1
r = 1
w = 1
>>> acbaabbbaaaaacc
a = 5
c = 2
b = 3

ルビー、58

h={}
gets.scan(/(.)\1*/){h[$1]=[h[$1]||0,$&.size].max}
p h

STDINから入力を受け取り、次の形式でSTDOUTに出力します {"a"=>5, "c"=>2, "b"=>3}

LINQPadのC＃-159バイト

まあ、少なくとも私はT-SQLを破りました; P他の誰も破りませんが、とにかくそれを共有すると思いました。

void v(string i){foreach(var c in i.GroupBy(c=>c)){Console.WriteLine(c.Key+"="+(from Match m in Regex.Matches(i,"["+c.Key+"]+")select m.Value.Length).Max());}}

使用法：

v("acbaabbbaaaaacc");

提案はいつでも大歓迎です！

Powershell 80 77 72

$x=$args;[char[]]"$x"|sort -u|%{"$_="+($x-split"[^$_]"|sort)[-1].length}

コンソールで実行する必要があります...

Perl-65 71 76文字

私の最初のコードゴルフ！

各回答について、golf.plにコピーし、次のように実行します：

echo acbaabbbaaaaacc | perl golf.pl

私の最短の解決策は、ルールで禁止されていないため、各文字を表示される回数だけ印刷します。

$_=$i=<>;for(/./g){$l=length((sort$i=~/$_*/g)[-1]);print"$_=$l
"}

私の次に短いソリューション（85 90文字）は、各文字を1回だけ印刷します。

<>=~s/((.)\2*)(?{$l=length$1;$h{$2}=$l if$l>$h{$2}})//rg;print"$_=$h{$_}
"for keys %h

F＃-106

let f s=
 let m=ref(Map.ofList[for c in 'a'..'z'->c,0])
 String.iter(fun c->m:=(!m).Add(c,(!m).[c]+1))s;m

FSIでは、呼び出し

f "acbaabbbaaaaacc"

与える

val it : Map<char,int> ref =
  {contents =
    map
      [('a', 8); ('b', 4); ('c', 3); ('d', 0); ('e', 0); ('f', 0); ('g', 0);
       ('h', 0); ('i', 0); ...];}

ただし、追加情報なしで印刷するには、次のように呼び出します。

f "acbaabbbaaaaacc" |> (!) |> Map.filter (fun _ n -> n > 0)

与える

val it : Map<char,int> = map [('a', 8); ('b', 4); ('c', 3)]

Javascript、116バイト

y=x=prompt();while(y)r=RegExp(y[0]+'+','g'),alert(y[0]+'='+x.match(r).sort().reverse()[0].length),y=y.replace(r,'')

サンプル出力：

lollolllollollllollolllooollo
l=4
o=3

acbaabbbaaaaacc
a=5
c=2
b=3

helloworld
h=1
e=1
l=2
o=1
w=1
r=1
d=1 

T-SQL（2012） 189 171

編集：削除 ORDER BYルールは出力順序を許可するためた。

CHAR変数から入力を取得@aし、再帰CTEを使用して、文字列内の各文字の行を作成し、連続した出現を計算します。

その後、それはシンプルだSELECTし、GROUP BY出力の順番を考慮して。

SQL Fiddleで試してみてください。

WITH x AS(
    SELECT @a i,''c,''d,0r,1n
    UNION ALL 
    SELECT i,SUBSTRING(i,n,1),c,IIF(d=c,r+1,1),n+1
    FROM x
    WHERE n<LEN(i)+2
)
SELECT d+'='+LTRIM(MAX(r))
FROM x
WHERE n>2
GROUP BY d

変数の割り当て：

DECLARE @a CHAR(99) = 'acbaabbbaaaaacc';

サンプル出力：

a=5
c=2
b=3

ハスケル-113 120 バイト

import Data.List
main=interact$show.map(\s@(c:_)->(c,length s)).sort.nubBy(\(a:_)(b:_)->a==b).reverse.sort.group

でテスト済み

$ printf "acbaabbbaaaaacc" | ./sl
[('a',5),('b',3),('c',2)]

JavaScript [83バイト]

prompt().match(/(.)\1*/g).sort().reduce(function(a,b){return a[b[0]]=b.length,a},{})

^{ブラウザコンソールでこのコードを実行します。}

入力 " acbaabbbaaaaacc"の場合、コンソールは " Object {a: 5, b: 3, c: 2}" を出力するはずです。

JavaScript-91

for(i=0,s=(t=prompt()).match(/(.)\1*/g);c=s[i++];)t.match(c+c[0])||alert(c[0]+'='+c.length)

編集：私の最初の解決策はルールに従いますが、abab=>のa=1,b=1,a=1,b=1ような単一の文字の出現を数回出力するので、最初の1つに満足していない人のためにこれ（101文字）を出しました：

for(i=0,s=(t=prompt()).match(/((.)\2*)(?!.*\1)/g);c=s[i++];)t.match(c+c[0])||alert(c[0]+'='+c.length)

ジュリア、85

f(s)=(l=0;n=1;a=Dict();[c==l?n+=1:(n>get(a,l,1)&&(a[l]=n);n=1;l=c) for c in s*" "];a)
julia> f("acbaabbbaaaaacc")
{'a'=>5,'c'=>2,'b'=>3}

Python3- 111、 126、 115 114 111バイト

1行を読み取る実行可能コード（小文字のa〜zのみを使用）

d={}.fromkeys(map(chr,range(97,123)),0)
for c in input():d[c]+=1
[print("%s=%d"%(p,d[p]))for p in d if d[p]>0]

編集：@Therareからのリクエストで不要な出力を除外

出力はきれいに見えます

~/codegolf $ python3 maxseq.py 
helloworld
l=3
o=2
h=1
e=1
d=1
w=1
r=1

JavaScriptを- 141 137 125

私は正規表現が好きではありません:)

function g(a){i=o=[],a=a.split('');for(s=1;i<a.length;){l=a[i++];if(b=l==a[i])s++;if(!b|!i){o[l]=o[l]>s?o[l]:s;s=1}}return o}

走る

console.log(g("acbaabbbaaaaacc"));

出力

[ c: 2, a: 5, b: 3 ]

ジャバスクリプト、109の 104 100 98バイト

function c(s){q=l={};s.split('').map(function(k){q[k]=Math.max(n=k==l?n+1:1,q[l=k]|0)});return q}

使用例：

console.log(c("aaaaaddfffabbbbdb"))

出力：

{ a: 5, d: 2, f: 3, b: 4 }

PHP、104 102 96

<?php function _($s){while($n=$s[$i++]){$a[$n]=max($a[$n],$n!=$s[$i-2]?$v=1:++$v);}print_r($a);}

使用法

_('asdaaaadddscc');

印刷された

Array ( [a] => 4 [s] => 1 [d] => 3 [c] => 2 )

Java 247

import java.util.*;public class a{public static void main(String[]a){Map<Character, Integer> m = new HashMap<>();for(char c:a[0].toCharArray()){Integer v=m.get(c);m.put(c,v==null?1:v+1);}for(char c:m.keySet())System.out.println(c+"="+m.get(c));}}

C 169

ASCIIテーブルの各印刷可能文字を繰り返し、入力文字列から最大値をカウントします。

#define N 128
int c,i,n;
char Y[N],*p;
int main(){gets(Y);
for(c=33;c<127;c++){p=Y;n=0,i=0;while(*p){if(*p==c){i++;}else{n=(i>n)?i:n;i=0;}p++;}
if(n>0) printf("%c=%d\n",c,n);}
}

JavaScript 116

prompt(x={}).replace(/(.)\1*/g,function(m,l){n=m.length
if(!x[l]||x[l]<n)x[l]=n})
for(k in x)console.log(k+'='+x[k])

Groovy-80文字

基づいて、この巧妙な答えでXNOR：

t=args[0];t.toSet().each{i=0;
while(t.contains(it*++i));
println "${it}=${i-1}"}

出力：

$ groovy Golf.groovy abbcccdddd
d=4
b=2
c=3
a=1

ゴルフをしていない：

t=args[0]

t.toSet().each { c ->
    i=0
    s=c

    // repeat the char c with length i
    // e.g. "b", "bb", "bbb", etc
    // stop when we find a length that is not in t:
    // this is the max + 1
    while (t.contains(s)) {
        i++
        s=c*i
    }
    println "${c}=${i-1}"
}