4 lines
135 B
Text
4 lines
135 B
Text
median1 := proc()
|
|
local L := sort( [ args ] );
|
|
( L[ iquo( 1 + nargs, 2 ) ] + L[ 1 + iquo( nargs, 2 ) ] ) / 2
|
|
end proc:
|