Виклик

Напишіть програму, яка, даючи рядок xдовжиною 10 символів і символ 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

Баш, 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 замість цього приймає правий поворот. Це глухий кут, тому цей код виконується два рази, один раз вперед і один раз назад. Тобто фактичним кодом у цьому випадку стає );___;)+-){}. );просто позбавляється від цієї ненульової різниці, ___штовхає 3 нулі, але ;одне з них відкидає. )збільшує один з двох решти двох нулів, +додає їх в єдине 1, -віднімає його від лічильника і )збільшує лічильник. Іншими словами, ми створили дуже продуманий не-оп.

Коли ми натискаємо на EOF, ,штовхає -1, який `перетворюється на, 1і IP бере праворуч. -віднімає 1від лічильника (скасовує початкове зміщення). !друкує лічильник і @припиняє програму.

Python 3, 29 байт

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

Мех, це було легко. Припускається, що введення - це десятилітковий рядок.

Сніговик 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 ++ Template-Metaprogramming, 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>

EDIT: О, я бачу, вже є дуже подібне рішення. Я сподіваюся, що це нормально.

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

The findinФункція повертає індекси в якості першого аргументу , при якому другий аргумент знайдений в якості вектора. Довжина вектора - це кількість подій.

Збережено один байт завдяки Глену О.

APL, 7 3 байти

+/⍷

Це створює функціональний потяг. Він працює, створюючи вектор нулів і ті, що відповідають індексам, при яких символ з'являється в рядку ( ⍷). Потім вектор підсумовується ( +/).

Збережено 4 байти завдяки kirbyfan64sos та NBZ!

Perl, 21 16 символів

(Код 13 символів + параметр командного рядка з 3 символами.)

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

Проба зразка:

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!