String comparison: Difference between revisions

← Older editNewer edit →
Content deleted Content added
Lingo added
Line 33:
 
procedure String_Compare is
 
procedure Print_Comparison (A, B : String) is
use Ada.Text_IO;
Function eq(Left, Right : String) return Boolean
renames Ada.Strings.Equal_Case_Insensitive;▼
begin
Ada.Text_IO.Put_Line
( ('""""' & A & """ and """ & B & """: " &
(if A = B then "equal, " elsif eq(if A, = B) then
"equal, "
then "case-insensitive-equal, " else "not equal at all, ") &▼
▲ renameselsif Ada.Strings.Equal_Case_Insensitive; (A, B) then
(if A /= B then "/=, " else "") &▼
▲ then "case-insensitive-equal, " else "not equal at all, ") &
(if A < B then "before, " else "") &▼
(if A > B then "after, " else "not equal at all, ") &
(if A </= B then "</=, " else "(not <=), else "") & "and " &
(if A >=< B then ">=.before, " else "(not >=).") ); &
▲ (if A <> B then "beforeafter, " else "") &
▲ (if A /<= B then "/<=, " else "(not <=), ") &
(if A >= B then ">=. " else "(not >=)."));
end Print_Comparison;
 
begin
Print_Comparison ("this", "that");
Print_Comparison ("that", "this");
Print_Comparison ("THAT", "That");
Print_Comparison ("this", "This");
Print_Comparison ("this", "this");
Print_Comparison ("the", "there");
Print_Comparison ("there", "the");
end String_Compare;</lang>
 
Retrieved from "https://rosettacode.org/wiki/String_comparison"