Orz日記 by Akio Morita

_ [SAD]Partition拡張

Partition[list, #-of-elements_Real, stride_Real]にて、#-of-elementsとstrideの意味論を負の整数まで拡張した

負の#-of-elementsには、右からの部分列抽出を割り当てた

Partition[list, negative-#-of-elements, stride] := Reverse/@Partition[list, -(negative-#-of-elements), stride]

また、負のstrideには、右側からlistを舐める動作を割り当てた

Partition[list, #-of-elements, nagative-stride] := Reverse/@Partition[Reverse[list], #-of-elements, -(negative-stride)]

また、zero strideに対しては、#-of-elementsの符号と同じ最小stride(±1)を割り当てた 符号が定まらないケースは、+1を割り当てる

Partition[''list'', 0, 0] := Partition[''list'', 0, 1]