aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Just another update

Browse source
This commit is contained in:
Ingy döt Net 2015-02-20 00:35:01 -05:00
parent a25938f123
commit 00a190b0a6
6591 changed files with 94363 additions and 23227 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Task/String-comparison/Ada/string-comparison.ada
View file

@ -1,13 +1,15 @@
with Ada.Text_IO, Ada.Characters.Handling;
with Ada.Text_IO, Ada.Strings.Equal_Case_Insensitive;
procedure String_Compare is
procedure Print_Comparison (A, B: String) is
use Ada.Text_IO, Ada.Characters.Handling;
use Ada.Text_IO;
Function eq(Left, Right : String) return Boolean
renames Ada.Strings.Equal_Case_Insensitive;
begin
Put_Line
( """" & A & """ and """ & B & """: " &
(if A = B then "equal, " elsif To_Lower(A) = To_Lower(B)
(if A = B then "equal, " elsif eq(A,B)
then "case-insensitive-equal, " else "not equal at all, ") &
(if A /= B then "/=, " else "") &
(if A < B then "before, " else "") &