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

22
Task/Sorting-algorithms-Merge-sort/Tailspin/sorting-algorithms-merge-sort-1.tailspin Normal file
View file

@ -0,0 +1,22 @@
templates mergesort
templates merge
@: $(2);
[ $(1)... -> \(
when <?($@merge<[](0)>)
| ..$@merge(1)> do
$ !
otherwise
^@merge(1) !
$ -> #
\),
$@...] !
end merge
$ -> #
when <[](0..1)> do $!
otherwise
def half: $::length ~/ 2;
[$(1..$half) -> mergesort, $($half+1..last) -> mergesort] -> merge !
end mergesort
[4,5,3,8,1,2,6,7,9,8,5] -> mergesort -> !OUT::write

35
Task/Sorting-algorithms-Merge-sort/Tailspin/sorting-algorithms-merge-sort-2.tailspin Normal file
View file

@ -0,0 +1,35 @@
templates mergesort
templates merge
@: $(2);
$(1)... -> \(
when <?($@merge<[](0)>)
| ..$@merge(1)> do
$ !
otherwise
^@merge(1) !
$ -> #
\) !
$@... !
end merge
templates mergePairs
when <[](1)> do
$(1) !
when <[](2..)> do
[$(1..2) -> merge] !
$(3..last) -> #
end mergePairs
templates mergeAll
when <[](0)> do
$ !
when <[](1)> do
$(1) !
otherwise
[ $ -> mergePairs ] -> #
end mergeAll
$ -> [ $... -> [ $ ] ] -> mergeAll !
end mergesort
[4,5,3,8,1,2,6,7,9,8,5] -> mergesort -> !OUT::write