5 added 2 characters in body; edited title
source | link

How todo I extract the element in the middle positionelement(s) of a given list?

How do I extract the middle elementselement(s) of a given list?

Here is some code that works, but seems a little too long:

extract[x_] := 
      Part[x, If[IntegerQ[#], {#}, {Floor[#], Ceiling[#]}] & @ Median[Range[Length @ x]]]

Here is another, shorter routine, but for a list of even length, it only gives one value, not two. I think two values would be better for even lists:

extract[x_] := Part[x, Quantile[Range[Length @ x], 1/2]]

So is there concise, efficient code that will return two elements for a list of even length?

How to extract the element in the middle position of a list?

How do I extract the middle elements of a given list?

Here is some code that works, but seems a little too long:

extract[x_] := 
      Part[x, If[IntegerQ[#], {#}, {Floor[#], Ceiling[#]}] & @ Median[Range[Length @ x]]]

Here is another, shorter routine, but for a list of even length, it only gives one value, not two. I think two values would be better for even lists:

extract[x_] := Part[x, Quantile[Range[Length @ x], 1/2]]

So is there concise, efficient code that will return two elements for a list of even length?

How do I extract the middle element(s) of a given list?

How do I extract the middle element(s) of a given list?

Here is some code that works, but seems a little too long:

extract[x_] := 
      Part[x, If[IntegerQ[#], {#}, {Floor[#], Ceiling[#]}] & @ Median[Range[Length @ x]]]

Here is another, shorter routine, but for a list of even length, it only gives one value, not two. I think two values would be better for even lists:

extract[x_] := Part[x, Quantile[Range[Length @ x], 1/2]]

So is there concise, efficient code that will return two elements for a list of even length?

4 added 74 characters in body
source | link

How do I extract the middle elements of a given list?

Here is some code that works, but seems a little too long:

extract[x_] := 
      Part[x, If[IntegerQ[#], {#}, {Floor[#], Ceiling[#]}]&] & @ Median[Range[Length @ x]]]

Here is another, shorter routine, but for a list of even lengyhlength, it only gives one value, not two. I think two values would be better for even list.lists:

extract[x_] := Part[x, Quantile[Range[Length@x]Quantile[Range[Length @ x], 1/2]]

So is there concise, efficient code that will return two elements for a list of even length?

Here is some code that works but seems a little too long:

extract[x_] := 
  Part[x, If[IntegerQ[#], {#}, {Floor[#], Ceiling[#]}]& @ Median[Range[Length @ x]]]

Here is another, shorter, but for a list of even lengyh, it only gives one value, not two. I think two values would be better for even list.

extract[x_] := Part[x, Quantile[Range[Length@x], 1/2]]

So is there concise, efficient code that will return two elements for a list of even length?

How do I extract the middle elements of a given list?

Here is some code that works, but seems a little too long:

extract[x_] := 
      Part[x, If[IntegerQ[#], {#}, {Floor[#], Ceiling[#]}] & @ Median[Range[Length @ x]]]

Here is another, shorter routine, but for a list of even length, it only gives one value, not two. I think two values would be better for even lists:

extract[x_] := Part[x, Quantile[Range[Length @ x], 1/2]]

So is there concise, efficient code that will return two elements for a list of even length?

3 General cleanup
source | link

Here is one samplesome code, that works but seems a little too long:

extract[x_] := 
  Part[x, If[IntegerQ[#], {#}, {Floor[#], Ceiling[#]}]& @ Median[Range[Length@x]]]Median[Range[Length @ x]]]

Here is another, shorter, but for an evena list of even lengyh, it only gives one value, not two. I think two values would be better for even list.

extract[x_] := Part[x, Quantile[Range[Length@x], 1/2]]

So is there concise, efficient code that will return two elements for a list of even length?

Here is one sample code, seems a little too long:

extract[x_] := 
 Part[x, If[IntegerQ[#], {#}, {Floor[#], Ceiling[#]}]& @ Median[Range[Length@x]]]

Here is another, shorter, but for an even list, it only gives one value, not two. I think two values would be better for even list.

extract[x_] := Part[x, Quantile[Range[Length@x], 1/2]]

So is there concise, efficient code that will return two elements for a list of even length?

Here is some code that works but seems a little too long:

extract[x_] := 
  Part[x, If[IntegerQ[#], {#}, {Floor[#], Ceiling[#]}]& @ Median[Range[Length @ x]]]

Here is another, shorter, but for a list of even lengyh, it only gives one value, not two. I think two values would be better for even list.

extract[x_] := Part[x, Quantile[Range[Length@x], 1/2]]

So is there concise, efficient code that will return two elements for a list of even length?

2 General cleanup
source | link
    Tweeted twitter.com/#!/StackMma/status/343278264560803841
1
source | link