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

12
Task/Sorting-algorithms-Bubble-sort/Tailspin/sorting-algorithms-bubble-sort-1.tailspin Normal file
View file

@ -0,0 +1,12 @@
templates bubblesort
@: $;
$::length..2:-1 -> 2..$ -> #
$@ !
when <?($@($) <..~$@($ - 1)>)> do
def temp: $@($);
@($): $@($ - 1);
@($ - 1): $temp;
end bubblesort
[4,5,3,8,1,2,6,7,9,8,5] -> bubblesort -> !OUT::write

12
Task/Sorting-algorithms-Bubble-sort/Tailspin/sorting-algorithms-bubble-sort-2.tailspin Normal file
View file

@ -0,0 +1,12 @@
bubblesort templates
@ set $;
$::length..2:-1 -> 2..$ -> !#
$@ !
when <|?($@($) matches <|..~$@($ - 1)>)> do
temp is $@($);
@($) set $@($ - 1);
@($ - 1) set $temp;
end bubblesort
[4,5,3,8,1,2,6,7,9,8,5] -> bubblesort !

21
Task/Sorting-algorithms-Bubble-sort/Tailspin/sorting-algorithms-bubble-sort.tailspin
View file

@ -1,21 +0,0 @@
templates bubblesort
templates bubble
@: 1;
1..$-1 -> #
$@ !
when <?($@bubblesort($+1) <..~$@bubblesort($)>)> do
@: $;
def temp: $@bubblesort($@);
@bubblesort($@): $@bubblesort($@+1);
@bubblesort($@+1): $temp;
end bubble
@: $;
$::length -> #
$@ !
when <2..> do
$ -> bubble -> #
end bubblesort
[4,5,3,8,1,2,6,7,9,8,5] -> bubblesort -> !OUT::write