チャレンジ

x10文字の文字列と1文字の文字列を指定すると、string でy文字yが出現する回数を出力するプログラムを作成しますx。

そうするためのバイト単位の最短プログラムが勝ちです。

例

Input: tttggloyoi, t
Output: 3

Input: onomatopoe, o
Output: 4

Pyth、3バイト

/ww

実行例：

$ pyth -c '/ww'
sdhkfhjkkj
k
3

もちろん、ユーザーは最初の入力で10文字以上またはそれ以下の文字を入力できますが、ユーザーが仕様に違反したときに何が起こるかを心配する必要はありません。

Pyth-3バイト

同じサイズの異なる、それほど明白ではないPyth回答。入力に対してカウントを折り返します。

/FQ

テストスイート。

JavaScript、32

(p=prompt)().split(p()).length-1

Bash、24文字

x=${1//[^$2]}
echo ${#x}

サンプル実行：

bash-4.3$ bash letter-count.sh tttggloyoi t
3

bash-4.3$ bash letter-count.sh onomatopoe o
4

網膜、12バイト

(.)(?=.*\1$)

入力の最後の文字に等しい文字（それ自体を除く）に一致する単純な正規表現。単一の正規表現を指定すると、Retinaは単に一致の数を返します。

ラビリンス、32 29 27 24バイト

),}{)-
@ ,  +);__
!-`{:}

これは、最初に単一文字を読み取り、次にカウントする文字列を読み取り、文字列にヌルバイトがないと想定します。

説明

コードはで始まり),}、スタックの最下部をに設定し1、最初の文字を読み取り、将来の使用のために補助スタックに移動します。これ1がカウンターになります（オフセット1は後でキャンセルされ、IPが必要なターンを取るために必要です）。

これで、IPは下に移動して、で検索文字列の最初の文字を読み取ります,。`正しい回転動作を得るために、値はで否定されます。STDINから文字を読み取っている間、IPは次のループに従います。

  }{)-
  ,  +);__
  `{:}

{:}格納されている文字コードのコピーを作成+し、現在の値に追加します。結果がある場合0（つまり、現在の文字は、我々が探しているもの）、IPは直進：-単にを取り除く0、)カウンタをインクリメント、{}何もしません。

ただし、後の結果+がゼロ以外の場合、現在の文字をカウントしたくありません。そのため、IPは代わりに右折します。それは行き止まりなので、そこにあるコードは2回実行され、1回は前方に、1回は後方に実行されます。つまり、この場合の実際のコードはになり);___;)+-){}ます。);ゼロ以外の差を取り除き、___3つのゼロをプッシュ;しますが、そのうちの1つを破棄します。)残りの2つのゼロのうちの1つをインクリメント+し、それらを1つ1に-加算して、カウンターから減算し、)インクリメントします。つまり、非常に手の込んだノーオペレーションを作成しました。

EOFをヒットすると、が,プッシュされ-1、に`変わり1、IPが右折します。カウンターからを-減算します1（初期オフセットをキャンセルします）。!カウンターを出力し@、プログラムを終了します。

Python 3、29バイト

print(input().count(input()))

まあ、これは簡単でした。入力は10文字の文字列であると想定しています。

雪だるま1.0.2、16文字

~vgvgaSaLNdEtSsP

驚くほど短い。説明：

~      make all vars active (even though we only need two, we don't really care)
vgvg   get two lines of input
aS     split first line on second line
aL     length of the new array
NdE    decrement (because ex. "axbxc""x"aS -> ["a" "b" "c"] which is length 3)
tSsP   to-string and print

C ++テンプレートメタプログラミング、160 154 116バイト

笑いのためだけに。

ゴルフをしてくれた元バートに感謝します！

template<int w,int x,int y,int...s>class A:A<w+(x==y),x,s...>{};A<0,'t','t','t','t','g','g','l','o','y','o','i',0>a;

使用法：テンプレートのインスタンス化の最初の文字は、検索する文字です。

clang -std = c ++ 11 -c->でコンパイルすると、エラーメッセージの先頭に結果が表示されます。

Occurences.cpp:1:66: error: too few template arguments for class template 'A'
template<int w,char x,char y,char...s>class A{static const int a=A<w+((x==y)?1:0),x,s...>::a;};
                                                             ^
Occurences.cpp:1:66: note: in instantiation of template class 'A<3, 't', '\x00'>' requested here
template<int w,char x,char y,char...s>class A{static const int a=A<w+((x==y)?1:0),x,s...>::a;};

gcc -std = c ++ 11 -c->でコンパイルすると、エラーメッセージの下部に結果が表示されます。

Occurences.cpp: In instantiation of ‘const int A<3, 't', '\000'>::a’:
Occurences.cpp:1:64:   recursively required from ‘const int A<1, 't', 't', 't', 'g', 'g', 'l', 'o', 'y', 'o', 'i', '\000'>::a’
Occurences.cpp:1:64:   required from ‘const int A<0, 't', 't', 't', 't', 'g', 'g', 'l', 'o', 'y', 'o', 'i', '\000'>::a’
Occurences.cpp:2:62:   required from here
Occurences.cpp:1:64: error: wrong number of template arguments (2, should be at least 3)

A < 3、 't'、 '\ 000'>およびA < 3、 't'、 '\ x00'>を検索します

154バイトバージョン

template<int w,char x,char y,char...s>class A{static const int a=A<w+(x==y),x,s...>::a;};                          
int a=A<0,'t','t','t','t','g','g','l','o','y','o','i','\0'>::a;

160バイトバージョン：

template<int w,char x,char y,char...s>class A{static const int a=A<w+((x==y)?1:0),x,s...>::a;};                          
int a=A<0,'t','t','t','t','g','g','l','o','y','o','i','\0'>::a;

Bash + grep、26バイト

grep -o "$1"<<<"$2"|wc -l

Javascript（ES6）、26バイト

(a,b)=>a.split(b).length-1

このクイックアンドイージーソリューションは、匿名関数を定義します。それを使用するには、変数宣言を先頭に追加します。やってみよう：

z=(a,b)=>(a.split(b)||[0]).length-1;

input1=document.getElementById("input1");
input2=document.getElementById("input2");
p=document.getElementById("a");
q=function(){
  setTimeout(function(){
    p.innerHTML=z(input1.value,input2.value)||0;
  },10);
};
input1.addEventListener("keydown",q);
input2.addEventListener("keydown",q);

<form>Text to search: <input type="text" id="input1" value="hello world!"/><br>Char to find: <input type="text" id="input2" value="l"/></form>

<h3>Output:</h3>
<p id="a">3</p>

編集：ああ、私はすでに非常に類似した解決策があると思います。大丈夫だと思います。

Haskell、21バイト

a!b=sum[1|x<-a,x==b]

C ++、78バイト

int main(int,char**v){int c=0,i=0;while(i<10)v[1][i++]==*v[2]&&++c;return c;}

このような呼び出し：

$ g++ -std=c++14 -O2 -Wall -pedantic -pthread main.cpp && ./a.out tttggloyoi t; echo $?
3

要素、23バイト

__);11'[)\
~="0 1@][+]`

改行はプログラムの一部です。実際に変数名として使用しています。

このプログラムは基本的に、ターゲットキャラクターを変数に保存し、現在の文字列をスタックの一番上に保持し、「下にある結果の切り取り、比較、移動」プロセスをループし、結果を合計します。

変数名としての改行は、入力の最後で改行を使用して切り取り、保存することで得られます。コードの改行は、そこから読み取る場所です。

入力は次のとおりです。

qqqqwwweee
q

出力はこんな感じ

4

ジュリア、26 25バイト

f(s,c)=endof(findin(s,c))

の findin関数は、2番目の引数がベクトルとして見つかる最初の引数にインデックスを返します。ベクトルの長さは、出現回数です。

Glen Oのおかげで1バイト節約されました。

APL、7 3バイト

+/⍷

これにより、関数トレインが作成されます。文字列（⍷）で文字が現れるインデックスに対応するゼロと1のベクトルを作成することで機能します。次に、ベクトルが合計されます（+/）。

Saved 4 bytes thanks to kirbyfan64sos and NBZ!

Perl, 21 16 characters

(13 characters code + 3 character command line option.)

$_=0+s/$^I//g

Sample run:

bash-4.3$ perl -it -pe '$_=0+s/$^I//g' <<< tttggloyoi
3

bash-4.3$ perl -io -pe '$_=0+s/$^I//g' <<< onomatopoe
4

bash-4.3$ perl -i5 -pe '$_=0+s/$^I//g' <<< 1234
0

PHP, 36 35 bytes

<?=substr_count($argv[1],$argv[2]);

Usage:
Call the script with two arguments.
php script.php qwertzqwertz q

PHP, 23 bytes

If you register global Variables (only possible in PHP 5.3 and below) you can save 12 bytes (thanks to Martijn)

<?=substr_count($a,$b);

Usage:
Call the script and declare global variables php script.php?a=qwertzqwertz&b=q

Dyalog APL, 3 bytes

      +/=

I.e. "The sum of the equal bytes". E.g.:

      f ← +/=
      'onomatopoe' f 'o'
4

or just

      'onomatopoe'(+/=)'o'
4

K doesn't beat APL this time.

Try it online.

T-SQL, 99 40 Bytes

SELECT 11-LEN(REPLACE(s,c,'')+'x')FROM t

Simply does a difference between the input string and the string with the character removed. Takes input from table t

Edit changed to remove an issue with counting spaces and to take into account current acceptable inputs for SQL. Thanks @BradC for all the changes and savings

Octave / Matlab, 33 bytes

sum(input('','s')==input('','s'))

J, 5 bytes

+/@:=

I feel like J would have a built-in for this, but I haven't been able to find one - maybe one of the active J users can enlighten me. So instead this first applies = to the inputs, turning each character into 1 if it's equal to the requested one or 0 otherwise. Then +/ computes the sum of that list.

Batch File, 121 Bytes

Because I'm a masochist ...

SET c=0
SET e=_
SET t=%1%%e%
:l
SET a=%t:~0,1%
IF "%a%"=="%2" SET /A c+=1
SET t=%t:~1%
IF NOT "%t%"=="%e%" GOTO l
ECHO %c%

Warning: Assumes that _ doesn't occur in the input string. If it does, then the variable e needs to be adjusted appropriately.

This sets up our counter variable, c, and our end-of-string demarcation as _, before appending that to our input string %1 and setting the concatenated string to t. Then, we're entering loop :l, we set a temporary character variable a to be the first character of t, check if it matches our second input string %2 and increment c if true, then trim the first character off of t. Our end-of-loop condition checks t against our end-of-string demarcation, and loops back if not. We then echo out the value of our counter.

It would probably be possible to use a FOR loop instead, but that would necessitate enabling DelayedExpansion, which I think will actually be longer byte-wise than this. Verification of that is left as an exercise to the reader.

CJam, 5 bytes

ll/,(

Explanation

l      e# read x
 l     e# read y
  /    e# split x by y
   ,   e# count
    (  e# subtract one

PowerShell, 32 Bytes

A four-for-one! And they're all the same length! :)

($args[0]-split$args[1]).Count-1

or

param($a,$b)($a-split$b).Count-1

Alternatively,

$args[0].Split($args[1]).Count-1

or

param($a,$b)$a.Split($b).Count-1

The first two styles use the inline operator -split, while the second two implicitly casts the first argument as a String and uses the .Split() string-based operator. In all instances an array is returned, where we must decrement Count by one, since we're getting back one more array item than occurrences of the second argument.

_{This one was kinda fun...}

Julia, 21 bytes

f(s,c)=sum(i->c==i,s)

Note that it requires that c be a char, not a single-character string. So you use it as f("test me",'e') (which returns 2) and not f("test me","e") (which returns 0, because 'e'!="e").

><> (Fish), 30 bytes

0&v
=?\ilb
=?\:@=&+&l1
n&/;

Takes the string, then character to count. Input isn't separated (at least in the online interpreter). Try it on the online interpreter: http://fishlanguage.com I counted the bytes by hand, so let me know if I'm wrong.

Explanation

First off, ><> is 2 dimensional and and loops through a line or column until it hits a ; or error. This means that if it's proceeding left to right (like it does at the beginning of a program), it will wrap around the line if it reaches the end and is not moved or told to stop the program. Some characters per line will be repeated because they have different functions depending on the direction of the pointer, and the fourth line will have characters in reverse order because the pointer moves right to left.

A summary of the program is provided below. Look at the instructions listed for ><> on esolangs to see what each individual character does.

Line 1: 0&v

0&v -put 0 into the register and change direction to down-up

Line 2: =?\ilb

(starting where line 1 moves the pointer to, i.e. the third character)

\ -reflect the pointer and make it move left-right
i -read input
lb=?\ -reflect downwards if there are 11 values in the stack

line 3: =?\:@=&+&l1

(starting at the third character)

:@ -duplicate y and shift the stack e.g. ['x','y','y'] -> ['y','x','y']
=&+& -increment the register if the character popped from x = y
l1=?\ -reflect downwards if there is 1 value in the stack

Line 4: n&/;

(starting at the third character)

/ -reflect right-left
&n; -print value of the register

Ruby, 22 20 bytes

p gets.count(gets)-1

Demo: http://ideone.com/MEeTd2

The -1 is due to the fact that gets retrieves the input, plus a newline character. Ruby's String#count counts the number of times any character from the argument occurs in the string.

For example, for the input [test\n, t\n], the t occurs twice and the \n occurs once, and needs to be subtracted.

Ruby, 18 bytes

->s,c{p s.count c}

Usage:

->s,c{p s.count c}.call 'tttggloyoi', 't'

->s,c{p s.count c}.call 'onomatopoe', 'o'

Japt, 2 bytes

èV

Try it online!