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

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-04-30 12:34:36 -04:00
parent 4bb20c9b71
commit cbaf4c4b64
12390 changed files with 318560 additions and 27248 deletions
Download patch file Download diff file Expand all files Collapse all files

28
Task/String-comparison/Ada/string-comparison.adb Normal file
View file

@ -0,0 +1,28 @@
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;

3
Task/String-comparison/COBOL/string-comparison-1.cob Normal file
View file

@ -0,0 +1,3 @@
"hello" = "hello" *> equality
"helloo" <> "hello" *> inequality
"aello" < "hello" *> lexical ordering

3
Task/String-comparison/COBOL/string-comparison-2.cob Normal file
View file

@ -0,0 +1,3 @@
FUNCTION STANDARD-COMPARE("hello", "hello") *> "="
FUNCTION STANDARD-COMPARE("aello", "hello") *> "<"
FUNCTION STANDARD-COMPARE("hello", "aello") *> ">"

2
Task/String-comparison/COBOL/string-comparison-3.cob Normal file
View file

@ -0,0 +1,2 @@
"hello " = "hello" *> True
X"00" > X"0000" *> True

6
Task/String-comparison/PowerShell/string-comparison-1.ps1 Normal file
View file

@ -0,0 +1,6 @@
"a" -lt "b" # lower than
"a" -eq "b" # equal
"a" -gt "b" # greater than
"a" -le "b" # lower than or equal
"a" -ne "b" # not equal
"a" -ge "b" # greater than or equal

2
Task/String-comparison/PowerShell/string-comparison-2.ps1 Normal file
View file

@ -0,0 +1,2 @@
"a" -eq "A"
"a" -ceq "A"

191
Task/String-comparison/RISC-V-Assembly/string-comparison.asm Normal file
View file

@ -0,0 +1,191 @@
# riscv assembly raspberry pico2 rp2350
# program compstring.s
# connexion putty com3
/*********************************************/
/* CONSTANTES */
/********************************************/
/* for this file see risc-v task include a file */
.include "../../constantesRiscv.inc"
/*******************************************/
/* INITIALED DATAS */
/*******************************************/
.data
szMessStart: .asciz "Program riscv start.\r\n"
szCariageReturn: .asciz "\r\n"
szMessStringEqu: .asciz "The strings are equals.\n"
szMessStringNotEqu: .asciz "The strings are not equals.\n"
szString1: .asciz "ABCDE"
szString2: .asciz "ABCDE"
szString3: .asciz "ABCFG"
szString4: .asciz "ABC"
szString5: .asciz "abcde"
.align 2
/*******************************************/
/* UNINITIALED DATA */
/*******************************************/
.bss
.align 2
/**********************************************/
/* SECTION CODE */
/**********************************************/
.text
.global main
main:
call stdio_init_all # général init
1: # start loop connexion
li a0,0 # raz argument register
call tud_cdc_n_connected # waiting for USB connection
beqz a0,1b # return code = zero ?
la a0,szMessStart # message address
call writeString # display message
la a0,szString1
la a1,szString2
call Comparaison
la a0,szString1
la a1,szString3
call Comparaison
la a0,szString1
la a1,szString4
call Comparaison
# case sensitive comparisons ABCDE et abcde
la a0,szString1
la a1,szString5
call Comparaison
# case insensitive comparisons ABCDE et abcde
la a0,szString1
la a1,szString5
call comparStringsInsensitive
bnez a0,1f
la a0,szMessStringEqu
call writeString # display message
j 2f
1:
la a0,szMessStringNotEqu
call writeString # display message
2:
call getchar
100: # final loop
j 100b
/*********************************************/
/* comparaison */
/*********************************************/
/* a0 contains address String 1 */
/* a1 contains address String 2 */
Comparaison:
addi sp, sp, -4
sw ra, 0(sp)
call comparStrings
bnez a0,1f
la a0,szMessStringEqu
call writeString # display message
j 100f
1:
la a0,szMessStringNotEqu
call writeString # display message
100:
lw ra, 0(sp)
addi sp, sp, 4
ret
/************************************/
/* Strings case sensitive comparisons */
/************************************/
/* a0 et ra1 contains the address of strings */
/* return 0 in a0 if equals */
/* return -1 if string a0 < string a1 */
/* return 1 if string a0 > string a1 */
comparStrings: # INFO: comparStrings
addi sp, sp, -4
sw ra, 0(sp)
li t0,0
1:
add t1,t0,a0
lb t1,(t1)
add t2,t0,a1
lb t2,(t2)
beq t1,t2,2f
bgt t1,t2,3f
blt t1,t2,4f
2: # egal
addi t0,t0,1
bne t1,x0,1b # fin chaine
li a0,0 # egalité
j 100f
3: # plus haut
li a0,1
j 100f
4: # plus bas
li a0,-1
j 100f
100:
lw ra, 0(sp)
addi sp, sp, 4
ret
/************************************/
/* Strings case insensitive comparisons */
/************************************/
/* a0 et a1 contains the address of strings */
/* return 0 in a0 if equals */
/* return -1 if string a0 < string a1 */
/* return 1 if string a0 > string a1 */
comparStringsInsensitive: # INFO: comparStringsInsensitive
addi sp, sp, -4
sw ra, 0(sp)
li t0,0
1:
add t1,t0,a0
lb t1,(t1)
# majuscules --> minuscules byte string 1
li t3,65
blt t1,t3,2f
li t3,90
bgt t1,t3,2f
addi t1,t1,32
2:
add t2,t0,a1
lb t2,(t2)
# majuscules --> minuscules byte string 2
li t3,65
blt t2,t3,3f
li t3,90
bgt t2,t3,3f
addi t2,t2,32
3:
beq t1,t2,4f
bgt t1,t2,5f
blt t1,t2,6f
4: # egal
addi t0,t0,1
bne t1,x0,1b # fin chaine
li a0,0 # egalité
j 100f
5: # plus haut
li a0,1
j 100f
6: # plus bas
li a0,-1
j 100f
100:
lw ra, 0(sp)
addi sp, sp, 4
ret
/************************************/
/* file include Fonctions */
/***********************************/
/* for this file see risc-v task include a file */
.include "../../includeFunctions.s"