Check if string contains a word, in Lisp

Lisp

(setf ok (search word s))

Ada

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

C

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

Clojure

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

C++

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

C#

var ok = s.Contains(word);

D

bool ok = s.canFind(word);

Dart

var ok = s.contains(word);

Elixir

ok = String.contains?(s, word)

Erlang

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

Fortran

ok = index(string, word) /= 0

Go

ok := strings.Contains(s, word)

Haskell

ok = word `isInfixOf` s

JS

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

JS

var ok = s.includes(word);

Java

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

Java

boolean ok = s.contains(word);

Kotlin

val ok = word in s

Kotlin

val ok = s.contains(word)

Lua

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

Lua

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

Lua

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

Obj-C

BOOL ok=[s containsString:word];

PHP

$ok = str_contains($s, $word);

PHP

$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";
}

PHP

$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";
}