Wolfram Language (Mathematica), 124 113 101 bytes. Flatten@{s=⌈2#⌉;q=Range[r=2s+1];g=Mod[q s-s,r];{Sort@g[[#+1;;]],g[[;;#]]}&~Array~r ...
確定! 回上一頁