Sorting algorithms/Gnome sort: Difference between revisions
Content added Content deleted
(→{{header|Vlang}}: Rename "Vlang" in "V (Vlang)") |
m (→{{header|Quackery}}: tweaked indentation) |
||
| Line 2,980: | Line 2,980: | ||
<syntaxhighlight lang="quackery">[ dup size times |
<syntaxhighlight lang="quackery">[ dup size times |
||
[ i^ 0 > if |
[ i^ 0 > if |
||
[ dup i^ 1 - peek |
[ dup i^ 1 - peek |
||
over i^ peek |
over i^ peek |
||
2dup > iff |
2dup > iff |
||
[ dip [ swap i^ poke ] |
[ dip [ swap i^ poke ] |
||
swap i^ 1 - poke |
swap i^ 1 - poke |
||
-1 step ] |
-1 step ] |
||
else 2drop ] ] ] is gnomesort ( [ --> [ )</syntaxhighlight> |
else 2drop ] ] ] is gnomesort ( [ --> [ )</syntaxhighlight> |
||
=={{header|R}}== |
=={{header|R}}== |
||