Skip to main content
Improved formatting
Source Link
m_goldberg
  • 108.1k
  • 16
  • 104
  • 259

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]

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]

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]

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]
added 6 characters in body
Source Link

You post my question that I ask you. ^_^ My

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]

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]

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]

Source Link

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]