From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-0.9 required=5.0 tests=BAYES_00,FORGED_GMAIL_RCVD,
	FREEMAIL_FROM autolearn=no autolearn_force=no version=3.4.4
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!mx02.eternal-september.org!.POSTED!not-for-mail
From: =?UTF-8?B?QmrDtnJuIEx1bmRpbg==?= <b.f.lundin@gmail.com>
Newsgroups: comp.lang.ada
Subject: Re: How to check if letters are in a string?
Date: Sat, 18 Jul 2015 13:36:25 +0200
Organization: A noiseless patient Spider
Message-ID: <moddin$20u$1@dont-email.me>
References: <53a16384-fa63-479c-9421-553683dd6009@googlegroups.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: 8bit
Injection-Date: Sat, 18 Jul 2015 11:33:43 +0000 (UTC)
Injection-Info: mx02.eternal-september.org;
 posting-host="5b7792bbfdd207fe5c19aea2206a9f76";
	logging-data="2078"; mail-complaints-to="abuse@eternal-september.org";
	posting-account="U2FsdGVkX19luVC/rNKzjqTigt52mOsi"
User-Agent: Mozilla/5.0 (X11; Linux x86_64;
 rv:31.0) Gecko/20100101 Icedove/31.7.0
In-Reply-To: <53a16384-fa63-479c-9421-553683dd6009@googlegroups.com>
Cancel-Lock: sha1:2ZdajNOnRrEzEcuw/bUn/LOwZII=
Xref: news.eternal-september.org comp.lang.ada:26872
Date: 2015-07-18T13:36:25+02:00
List-Id: <comp.lang.ada>


Looks like I managed to mail this to the op instead of post it to c.l.a ...


On 2015-07-18 11:00, Trish Cayetano wrote:
> Is there another way how to check if (exact number of) letters are in
a string?
> Thank you very much!

declare
  My_Letters: string := "HID"
  My_String: string := "HIDDEN"
  Is_In_String : boolean := False;
begin
  for L in My_Letters'range loop
    Is_In_String := False;
    for S in My_String'range loop
      if My_Letters(L) = My_String(S) then
        Is_In_String := True;
        My_String(S) := ' '; --set to space, so letter is not reused
        exit; -- inner loop
      end if;
    end loop;
    exit when not Is_In_String;
  end loop;
  Text_io.put_Line("Is_In_String = "& Is_In_String'Img);
end;



not compiled, not tested but the spirit of it
should do what you want

-- -- Björn

-- 
--
Björn