Logo

Programming-Idioms

Set the boolean b to true if string s starts with prefix prefix, false otherwise.
Implementation
Smalltalk

Implementation edit is for fixing errors and enhancing with metadata. Please do not replace the code below with a different implementation.

Instead of changing the code of the snippet, consider creating another Smalltalk implementation.

Be concise.

Be useful.

All contributions dictatorially edited by webmasters to match personal tastes.

Please do not paste any copyright violating material.

Please try to avoid dependencies to third-party libraries and frameworks.

Other implementations
import "strings"
b := strings.HasPrefix(s, prefix)
var b = s.startsWith(prefix);
B = string:find(S, Prefix) =:= S.
$b = $prefix eq substr($s,0,length($prefix));
b = s.startswith(prefix)
import std.algorithm.searching;
b = s.startsWith(prefix);
boolean b = s.startsWith(prefix);
b := pos(prefix, s) = 1;
import Data.List
b = prefix `isPrefixOf` s
$b = (bool) preg_match('#^http#', $s);
b = s.start_with?(prefix)
var b = s.startsWith(prefix);
var b = (s.lastIndexOf(prefix, 0) === 0);
b = s:find(prefix, 1, true) == 1
String.starts_with?(s,prefix)
let b = s.starts_with(prefix);
#include <stdbool.h>
#include <string.h>
bool b = !strncmp(s, prefix, sizeof(prefix)-1);
bool b = s.StartsWith(prefix);
val b = s.startsWith(prefix)
#include <string>
bool b = s.starts_with(prefix);
#include <string>
std::string prefix = "something";
bool b = s.compare(0, prefix.size(), prefix) == 0;
(require '[clojure.string :refer [starts-with?]])
(def b (starts-with? s prefix))
IDENTIFICATION DIVISION.
PROGRAM-ID. prefix.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 BOOLEAN-B     PIC X.
   88 b-TRUE       VALUE "T".
   88 b-FALSE      VALUE "F".
PROCEDURE DIVISION.
    IF s(1:3) = prefix(1:3)
       SET b-TRUE  TO TRUE
    ELSE
       SET b-FALSE TO TRUE
    END-IF 	 	
STOP RUN.
  logical :: b
  b = index (string, prefix) == 1
Dim b As Boolean = s.StartsWith(prefix)
@import Foundation;
BOOL b=[s hasPrefix:prefix];
val b = s.startsWith(prefix)
function startswith(text, prefix)
    return text:find(prefix, 1, true) == 1
end

b = startswith(s, prefix)
prefix([], _) -> true;
prefix([Ch | Rest1], [Ch | Rest2]) ->
        prefix(Rest1, Rest2);
prefix(_, _) -> false.

prefix("abc", "abcdef").
b = string.sub(s, 1, #prefix) == prefix
with Ada.Strings.Fixed;
B := Ada.Strings.Fixed.Index (S, Prefix) = S'First;
(defun check-prefix (s prefix)
 (cond ((> (length prefix) (length s)) Nil)
       ( T ( equal prefix (subseq s 0 (length prefix ))))))

(setf b (check-prefix s prefix))