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

35
Task/String-comparison/Seed7/string-comparison-2.seed7 Normal file
View file

@ -0,0 +1,35 @@
include "scanstri.s7i";
const func integer: cmpNumeric (in var string: stri1, in var string: stri2) is func
result
var integer: signumValue is 0;
local
var string: part1 is "";
var string: part2 is "";
begin
while signumValue = 0 and (stri1 <> "" or stri2 <> "") do
part1 := getDigits(stri1);
part2 := getDigits(stri2);
if part1 <> "" and part2 <> "" then
signumValue := compare(part1 lpad0 length(part2), part2 lpad0 length(part1));
if signumValue = 0 then
signumValue := compare(length(part1), length(part2));
end if;
elsif part1 <> "" then
signumValue := compare(part1, stri2);
elsif part2 <> "" then
signumValue := compare(stri1, part2);
end if;
if signumValue = 0 then
part1 := getNonDigits(stri1);
part2 := getNonDigits(stri2);
if part1 <> "" and part2 <> "" then
signumValue := compare(part1, part2);
elsif part1 <> "" then
signumValue := compare(part1, stri2);
elsif part2 <> "" then
signumValue := compare(stri1, part2);
end if;
end if;
end while;
end func;