You post my question that I ask you. ^_^
My code： midextract[ls_List]:=Module[{L=Length[ls],d,r},d=Floor[L/2];r:=Extract[ls,1+d]/;OddQ[L];r:=Extract[ls,List/@{d,1+d}]/;EvenQ[L];r]
esetlzn
- 61
- 2