Idiom #39 Check if string contains a word

Set boolean ok to true if string word is contained in string s as a substring, or to false otherwise.

with Ada.Strings.Fixed;
use Ada.Strings.Fixed;

Ok : Boolean := Index (S, Word) > 0;

#include <string.h>

int ok = strstr(s,word) != NULL;

Demo
Doc

(require '[clojure.string :as string])

(def ok (string/includes? word s))

#include <string>

ok = s.find(word) != std::string::npos;

var ok = s.Contains(word);

Demo
Doc

import std.algorithm.searching;

bool ok = s.canFind(word);

var ok = s.contains(word);

Demo
Doc

ok = String.contains?(s, word)

Ok = string:str(S, Word) > 0.

Demo
Doc

ok = index(string, word) /= 0

import "strings"

ok := strings.Contains(s, word)

Demo
Doc

ok = word `isInfixOf` s

var ok = s.includes(word);

Doc
Origin

var ok = s.indexOf(word) !== -1;

boolean ok = s.contains(word);

Demo
Doc

val ok = s.contains(word)

Demo
Doc

(setf ok (search word s))

ok = false
if s:find(word, 1, true) then ok = true end

ok = s:find(word, 1, true) ~= nil

ok = s:find(word, 1, true)

@import Foundation;

BOOL ok=[s containsString:word];

$mystring = 'abc';
$findme   = 'a';
$pos = strpos($mystring, $findme);

// Nótese el uso de ===. Puesto que == simple no funcionará como se espera
// porque la posición de 'a' está en el 1° (primer) caracter.
if ($pos === false) {
    echo "La cadena '$findme' no fue encontrada en la cadena '$mystring'";
} else {
    echo "La cadena '$findme' fue encontrada en la cadena '$mystring'";
    echo " y existe en la posición $pos";
}

$mystring = 'abc';
$findme   = 'a';
$pos = strpos($mystring, $findme);

// Nótese el uso de ===. Puesto que == simple no funcionará como se espera
// porque la posición de 'a' está en el 1° (primer) caracter.
if ($pos === false) {
    echo "La cadena '$findme' no fue encontrada en la cadena '$mystring'";
} else {
    echo "La cadena '$findme' fue encontrada en la cadena '$mystring'";
    echo " y existe en la posición $pos";
}