Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- with Ada.Text_IO, Ada.Strings.Equal_Case_Insensitive;
- procedure String_Compare is
- procedure Print_Comparison (A, B : String) is
- begin
- Ada.Text_IO.Put_Line
- ("""" & A & """ and """ & B & """: " &
- (if A = B then
- "equal, "
- elsif Ada.Strings.Equal_Case_Insensitive (A, B) then
- "case-insensitive-equal, "
- else "not equal at all, ") &
- (if A /= B then "/=, " else "") &
- (if A < B then "before, " else "") &
- (if A > B then "after, " 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;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement