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

Sync

Browse source
This commit is contained in:
Ingy döt Net 2013-10-27 22:24:23 +00:00
parent 6f050a029e
commit 776bba907c
3887 changed files with 59894 additions and 7280 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Task/Sorting-algorithms-Shell-sort/Forth/sorting-algorithms-shell-sort-1.fth
View file

@ -2,7 +2,7 @@ defer less? ' < is less?
: shell { array len -- }
1 begin dup len u<= while 2* 1+ repeat { gap }
begin gap 5 11 */ dup to gap while
begin gap 2 = if 1 else gap 5 11 */ then dup to gap while
len gap do
array i cells +
dup @ swap ( temp last )

2
Task/Sorting-algorithms-Shell-sort/Forth/sorting-algorithms-shell-sort-2.fth
View file

@ -20,7 +20,7 @@ defer precedes ' < is precedes
loop r> swap
;
( a n --)
: shell dup begin 5 11 */ dup while (shell) repeat drop 2drop ;
: shell dup begin dup 2 = if 2/ else 5 11 */ then dup while (shell) repeat drop 2drop ;
create array 8 , 1 , 4 , 2 , 10 , 3 , 7 , 9 , 6 , 5 ,