Desafío

Estoy seguro de que leíste el título y entraste a trabajar con tu representante, pensando en cosas de niños, ¡pero piénsalo de nuevo! Deben desafiarse entre sí en el código más corto para contar las ocurrencias de una cadena en otra. Por ejemplo, dada la siguiente entrada:

aaaabbbbsssffhd

como una cuerda, y la cuerda

s

debería salir

3

Reglas

Justo antes de sonreír y decir: "Oye, usaré ----", lee esto:

• No se utilizan bibliotecas externas ni la API de su idioma. Tienes que implementarlo manualmente. Lo que significa que no puede usar la función o método incorporado de su idioma para contar las ocurrencias
• Sin E / S de archivo
• No conectarse con un servidor, sitio web, etc.
• En el caso de `ababa`, donde comienza con` aba` y si lee las últimas 3 letras también es `aba`, solo cuenta una *

¡Gracias @ProgramFOX por eso (la última regla)!
* Sugerencia : cuando cuente las ocurrencias, puede eliminar las que contó para evitar desobedecer esta regla

¡Creo que las últimas 2 reglas son solo para dobladores de reglas!

Criterio ganador

Como se indicó anteriormente, el ganador es el código con menos bytes utilizados. El ganador será anunciado cinco días después (15 de junio de 2014)

Mi pequeña respuesta

Aquí está mi respuesta de C ++, donde se supone que la livariable contiene la cadena para verificar las ocurrencias, y les la cadena a buscar en f:

Sin golf

int c = 0;
while (li.find(lf) != string::npos)
{
    int p = li.find(lf);
    int l = p + lf.length() - 1;
    for (p = p; p <= l; p++)
    {
        li[p] = static_cast<char>(8);
    }
    ++c;
}

¡Por supuesto, para usar std::string, debe incluir el archivo de encabezado de cadena!

Golfed

int c=0;while(li.find(lf)!=string::npos){int p=li.find(lf);int l=p+lf.length()-1;for(p=p;p<=l;p++){li[p]=static_cast<char>(8);}++c;}

Resultado

La variable cva a ser el valor de cuántas veces se encontró la cadena

                                                                          ¡Disfrutar!

Ganador

Después de una larga espera, la respuesta de @Dennis gana con solo 3 bytes, escrita en GolfScript

GolfScript, 3 bytes

/,(

Asume que la cadena y la subcadena están en la pila.

Pruébalo en línea.

Cómo funciona

/  # Split the string around occurrences of the substring.
,  # Get the length of the split array.
(  # Subtract 1.

JavaScript 32

Nada realmente interesante aquí ...

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

split El objetivo principal es crear una matriz a partir de una cadena utilizando el delimitador en el argumento.

J (7)

No use of external libraries¡Cheque! , or your language's API.Cheque...? No sé qué es un lenguaje API. You have to implement it manually¡Cheque! No file I/O¡Cheque! No connecting with a server, website, et cetera¡Cheque!

+/a E.b

Cómo funciona:

E.es WindowedMatch: la hoja de referencia J da 're' E. 'reread'como ejemplo. Esto da 1 0 1 0 0 0. Entonces, lo único que queda por hacer es simplemente agregar esto con +/(básicamente sum).

No creo que esto cuente con el uso your language's built-in function or method for counting occurences, pero eso es discutible.

EDITAR: Solo para ser claro:

   +/'aba'E.'ababa'
2

C # - 73

//a = "aba";
//b = "ababa";

Console.Write(b.Split(new string[]{a},StringSplitOptions.None).Length-1);

// output = "1"

Python 2.x - 49 23 22 bytes

Esto supone que la entrada variable está bien. Ambas cadenas pueden ser de cualquier longitud.

Acortado @avall.

a='s'
b='aaaabbbbsssffhd'
print~-len(b.split(a))

Versión de 49 bytes, cuenta cada instancia de la subcadena ('aba' está en 'ababa' dos veces).

a='s'
b='aaaabbbbsssffhd'
print sum(a==b[i:i+len(a)]for i in range(len(b)))

Powershell 32

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

Funciona así:

PS C:\MyFolder> .\ocurrences.ps1 ababa aba
1

Explicación: Utiliza -splitpara separar el primer argumento por el segundo, devuelve el tamaño de la matriz resultante de la división (menos 1)

Applescript, 106 bytes

Applescript es un lenguaje divertido pero tonto para jugar al golf.

on run a
set AppleScript's text item delimiters to (a's item 1)
(count of (a's item 2)'s text items)-1
end

Correr con osascript:

$ osascript instr.scpt s aaaabbbbsssffhd
3
$ 

C # - 66 bytes

//s = "aba"
//t = "ababa"

Console.Write(t.Split(new[]{s},StringSplitOptions.None).Length-1);

//Output: 1

C 130 120

Nota: probablemente se bloqueará si se llama con argumentos incorrectos.

r;main(int c,char**a){char*p=*++a,*q,*t;while(*p){for(q=a[1],t=p;*q&&*q==*t;q++)t++;*q?p++:(p=t,r++);}printf("%d\n",r);}

Sin golf (un poco):

int main(int argc, char *argv[]) {
    int result = 0;
    char *ptr = argv[1];
    while (*ptr) {
        char *tmp, *tmp2 = ptr;
        // str(n)cmp
        for (tmp = argv[2]; *tmp; tmp++, tmp2++)
            if (*tmp != *tmp2)
                break;
        if (*tmp) {
            ptr++;
        } else {
            result++;
            ptr += tmp;
        }
    }
    printf("%d\n", result);
}

Versión antigua con strstry strlen: 103

l;main(int c,char**a){char*p=a[1];l=strlen(a[2]);while(c++,p>l)p=strstr(p,a[2])+l;printf("%d\n",c-5);}

Delphi XE3 (113)

Toma 2 cadenas, elimina la subcadena de la cadena y resta la nueva longitud de la longitud anterior seguida de una división de la longitud de la subcadena.

function c(a,b:string):integer;begin c:=(Length(a)-Length(StringReplace(a,b,'',[rfReplaceAll])))div Length(b)end;

Pruebas:

c ('aaaabbbbsssffhd', 's') = 3
c ('aaaabbbbsssffhd', 'a') = 4
c ('ababa', 'aba') = 1
c ('ababa', 'c') = 0

Lua (48)

Así que pensé que podría enviar otra respuesta, esta vez en lua. Es muy posible que esto pueda mejorarse mucho, soy muy nuevo en esto.

print((a.len(a)-a.len(a.gsub(a,b,"")))/b.len(b))

Fortran 90: 101

El abuso estándar de tipeo implícito, funciona para cualquier matriz de longitud ay b, aunque uno debería esperar eso len(a) < len(b).

function i();i=0;k=len(trim(b))-1;do j=1,len(trim(a))-k;if(a(j:j+k)==b(1:1+k))i=i+1;enddo;endfunction

Esta función debe ser containeditada dentro de un programa completo para funcionar. ay bse reciben de stdin y se pueden ingresar en la misma línea (separados por comas o espacios) o en diferentes líneas. Compile a través de gfortran -o main main.f90y ejecute como lo haría con cualquier otro programa compilado.

program main
   character(len=256)::a,b
   read*,a,b
   print*,i()
 contains
   function i()
     i=0
     k=len(trim(b))-1
     do j=1,len(trim(a))-k
        if(a(j:j+k)==b(1:1+k))i=i+1
     end do
   end function
end program main

Pruebas:

>ababa aba
2

Podría hacer que el anterior devuelva 1 si agrego 4 caracteres ( ,k+1) para el dobucle

> aaaabbbbbsssffhd s
3

Mathematica 26 23

Funciona como el algoritmo de Dennis, pero más prolijo:

Length@StringCases[a,b]

Tres caracteres rasurados por Szabolics.

C ++ 225

int n,k,m;
int main()
{
string s1,s2;
cin>>s1;
cin>>s2;
int x=s1.size(),y=s2.size();
if(x>=y)
{
for(int i=0;i<x;i++)
{
k=0,m=0;
for(int j=0;j<y;j++)
{
if(s2[j]==s1[i+m])
{
    k++,m++;
}
else break;
}
if(k==y)
{
n++;
i+=(y-1);
}
}
}
cout<<n<<endl;
return 0;
}

Java (38)

System.out.print(a.split(b).length-1);

(La pregunta no requería un programa o función completa).

Cobra - 25

print a.split(b).length-1

K / Kona 6

+/y~'x

donde xestá la cadena y yla subcadena. ~es el operador negativo, con ', se aplica a cada elemento en x; regresará 0si no coincide y 1si coincide. Dado que se aplica por elementos, el resultado de y~'xes un vector, +/luego suma el resultado dando el número total de ocurrencias.

Desafortunadamente, este método requiere que ysea ​​solo un carácter; de lo contrario, compararemos una cadena de caracteres múltiples con una cadena de caracteres única, lo que dará como resultado a length error.