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 2024-10-16 18:07:41 -07:00
parent 81fd053722
commit 52a6ef48dd
10248 changed files with 63654 additions and 6775 deletions
Download patch file Download diff file Expand all files Collapse all files

13
Task/Sort-using-a-custom-comparator/ALGOL-68/sort-using-a-custom-comparator.alg
View file

@ -44,8 +44,7 @@ PROC quicksort = (REF[]SITEM array, PROC(SITEM,SITEM)INT compare) VOID:
FI
);
#***************************************************************#
main:
(
BEGIN
OP LENGTH = (STRING a)INT: ( UPB a + 1 ) - LWB a;
OP TOLOWER = (STRING a)STRING:
BEGIN
@ -87,8 +86,8 @@ main:
# the strings are equal # 0
FI # compare # ;
[]SITEM orig = ("Here", "are", "some", "sample", "strings", "to", "be", "sorted");
[LWB orig : UPB orig]SITEM a := orig;
print(("Before:"));FOR i FROM LWB a TO UPB a DO print((" ",a[i])) OD; print((newline));
quicksort(a, compare);
print(("After :"));FOR i FROM LWB a TO UPB a DO print((" ",a[i])) OD; print((newline))
)
[LWB orig : UPB orig]SITEM data := orig;
print(("Before:"));FOR i FROM LWB data TO UPB data DO print((" ",data[i])) OD; print((newline));
quicksort(data, compare);
print(("After :"));FOR i FROM LWB data TO UPB data DO print((" ",data[i])) OD; print((newline))
END

0
Task/Sort-using-a-custom-comparator/Delphi/sort-using-a-custom-comparator.delphi → Task/Sort-using-a-custom-comparator/Delphi/sort-using-a-custom-comparator.pas
View file

0
Task/Sort-using-a-custom-comparator/Elixir/sort-using-a-custom-comparator.elixir → Task/Sort-using-a-custom-comparator/Elixir/sort-using-a-custom-comparator.ex
View file

0
Task/Sort-using-a-custom-comparator/Euphoria/sort-using-a-custom-comparator.euphoria → Task/Sort-using-a-custom-comparator/Euphoria/sort-using-a-custom-comparator.ex
View file

0
Task/Sort-using-a-custom-comparator/Julia/sort-using-a-custom-comparator.julia → Task/Sort-using-a-custom-comparator/Julia/sort-using-a-custom-comparator.jl
View file

0
Task/Sort-using-a-custom-comparator/Kotlin/sort-using-a-custom-comparator-1.kotlin → Task/Sort-using-a-custom-comparator/Kotlin/sort-using-a-custom-comparator-1.kts
View file

0
Task/Sort-using-a-custom-comparator/Kotlin/sort-using-a-custom-comparator-2.kotlin → Task/Sort-using-a-custom-comparator/Kotlin/sort-using-a-custom-comparator-2.kts
View file

0
Task/Sort-using-a-custom-comparator/Kotlin/sort-using-a-custom-comparator-3.kotlin → Task/Sort-using-a-custom-comparator/Kotlin/sort-using-a-custom-comparator-3.kts
View file

0
Task/Sort-using-a-custom-comparator/Kotlin/sort-using-a-custom-comparator-4.kotlin → Task/Sort-using-a-custom-comparator/Kotlin/sort-using-a-custom-comparator-4.kts
View file

0
Task/Sort-using-a-custom-comparator/OCaml/sort-using-a-custom-comparator-1.ocaml → Task/Sort-using-a-custom-comparator/OCaml/sort-using-a-custom-comparator-1.ml
View file

0
Task/Sort-using-a-custom-comparator/OCaml/sort-using-a-custom-comparator-2.ocaml → Task/Sort-using-a-custom-comparator/OCaml/sort-using-a-custom-comparator-2.ml
View file

0
Task/Sort-using-a-custom-comparator/OCaml/sort-using-a-custom-comparator-3.ocaml → Task/Sort-using-a-custom-comparator/OCaml/sort-using-a-custom-comparator-3.ml
View file

0
Task/Sort-using-a-custom-comparator/Rust/sort-using-a-custom-comparator.rust → Task/Sort-using-a-custom-comparator/Rust/sort-using-a-custom-comparator.rs
View file

0
Task/Sort-using-a-custom-comparator/Scheme/sort-using-a-custom-comparator-1.ss → Task/Sort-using-a-custom-comparator/Scheme/sort-using-a-custom-comparator-1.scm
View file

0
Task/Sort-using-a-custom-comparator/Scheme/sort-using-a-custom-comparator-2.ss → Task/Sort-using-a-custom-comparator/Scheme/sort-using-a-custom-comparator-2.scm
View file

0
Task/Sort-using-a-custom-comparator/Scheme/sort-using-a-custom-comparator-3.ss → Task/Sort-using-a-custom-comparator/Scheme/sort-using-a-custom-comparator-3.scm
View file