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

Initial data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 72d218235f
commit f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

25
Task/String-comparison/Seed7/string-comparison-1.seed7 Normal file
View file

@ -0,0 +1,25 @@
$ include "seed7_05.s7i";
const proc: showComparisons (in string: a, in string: b) is func
begin
writeln("compare " <& literal(a) <& " with " <& literal(b) <&":");
writeln("a = b returns: " <& a = b);
writeln("a <> b returns: " <& a <> b);
writeln("a < b returns: " <& a < b);
writeln("a > b returns: " <& a > b);
writeln("a <= b returns: " <& a <= b);
writeln("a >= b returns: " <& a >= b);
writeln("compare(a, b) returns: " <& compare(a, b));
writeln("compare(lower(a), lower(b)) returns: " <& compare(a, b));
end func;
const proc: main is func
begin
showComparisons("this", "that");
showComparisons("that", "this");
showComparisons("THAT", "That");
showComparisons("this", "This");
showComparisons("this", "this");
showComparisons("the", "there");
showComparisons("there", "the");
end func;