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

all tasks

Browse source
This commit is contained in:
Ingy döt Net 2013-04-11 01:07:29 -07:00
parent b83f433714
commit 68f8f3e56b
14735 changed files with 178959 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

15
Task/Sorting-algorithms-Gnome-sort/Metafont/sorting-algorithms-gnome-sort-1.metafont Normal file
View file

@ -0,0 +1,15 @@
def gnomesort(suffix v)(expr n) =
begingroup save i, j, t;
i := 1; j := 2;
forever: exitif not (i < n);
if v[i-1] <= v[i]:
i := j; j := j + 1;
else:
t := v[i-1];
v[i-1] := v[i];
v[i] := t;
i := i - 1;
i := if i=0: j; j := j + 1 else: i fi;
fi
endfor
endgroup enddef;

7
Task/Sorting-algorithms-Gnome-sort/Metafont/sorting-algorithms-gnome-sort-2.metafont Normal file
View file

@ -0,0 +1,7 @@
numeric a[];
for i = 0 upto 9: a[i] := uniformdeviate(40); message decimal a[i]; endfor
message char10;
gnomesort(a, 10);
for i = 0 upto 9: message decimal a[i]; endfor
end