home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Atari Compendium
/
The Atari Compendium (Toad Computers) (1994).iso
/
files
/
prgtools
/
langs
/
isetl.arc
/
med2.t
< prev
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
Text File
|
1987-08-20
|
248 b
|
19 lines
$ median.test
med := func(s1);
local t,u;
t := func(x);
return {y: y in s1| y<x};
end;
u := func(x);
return {y: y in s1| y>x};
end;
return {x: x in s1| (#(t(x)) = #(u(x)))};
end;
for n in [1..7] do
print med({1..n});
end;