Count

Explicación

Count devuelve el número de subristras (acordes con los patrones especificados por Pattern y Map) no solapadas, o el número de caracteres del conjunto Set que contiene la ristra Source. Existen versiones de Count para cada uno de los tres tipos de ristras (tamaño fijo, tamaño limitado y tamaño dinámico); para utilizarlas hay que incluir las librerías que correspondan según el tipo de ristra (Ada.Strings.Fixed, Ada.Strings.Bounded, Ada.Strings.Unbounded).

Sintaxis

En lo que sigue, el tipo Ristra representa uno de los tres tipos de ristras, según corresponda.

function Count (Source  : in Ristra;
                Pattern : in String;
                Mapping : in Mapa_de_Caracteres)
   return Natural;

function Count (Source : in Ristra;
                Set    : in Maps.Character_Set)
   return Natural;

Mapa_de_Caracteres ::=
    Maps.Character_Mapping := Maps.Identity;
  | Maps.Character_Mapping_Function

Ejemplo

-- En Ada.Strings están definidas algunas constantes
-- como Inside, Outside y Backward.
with Ada.Strings;           use Ada.Strings
with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
-- En Strings.Maps se encuentra la función To_Set() 
with Ada.Strings.Maps;      use Ada.Strings.Maps;
...

Din : Unbounded_String;
P   : Integer;
...

Din := To_Unbounded_String ("Universidad de Las Palmas de Gran Canaria");
P := Count (Din, "de");              --  P = 2
P := Count (Din, "an");              --  P = 2

P := Count (Din, To_Set ("aeiou"));  --  P = 14
Créditos