順列セットの$S = \{s_1, s_2, \dotsc, s_n\}$である全単射関数$\pi: S \to S$。例えば、$S = \{1,2,3,4\}$、関数$\pi: x \mapsto 1 + (x + 1 \mod 4)$は順列です：

我々はまた、のは、見てみましょう、無限集合の順列を持つことができる$\mathbb{N}$例として：関数$\pi: x \mapsto x-1 + 2\cdot(x \mod 2)$は、2つのブロックの奇数と偶数の整数を交換する順列です。最初の要素は次のとおりです。

チャレンジ

この挑戦のためにあなたの仕事は、任意の実装の機能/プログラムの書き込みにある^1つの正の自然数の順列を。ソリューションのスコアは、実装された順列でマッピングした後のコードポイントの合計です。

例

Pythonで実装された上記の順列をとると仮定します。

def pi(x):
    return x - 1 + 2*(x % 2)

オンラインでお試しください！

文字のdコードポイントは$100$、$\texttt{pi}(100) = 99$です。すべてのキャラクターに対してこれを行うと、以下が得られます。

これらのマップされたすべての文字の合計は$2463$、これはその関数のスコアになります。

ルール

関数またはプログラムとして置換$\pi$を実装します

• 自然数$x$与えられ、戻り値/出力$\pi(x)$
• このチャレンジのために、$\mathbb{N}$は0が含まれていません$0$
• 順列はNの無限サブセットを非自明に置換しなければならない$\mathbb{N}$
• 関数/プログラムは独自のソースを読み取ることが許可されていません

得点

スコアは、その順列の下のすべてのコードポイントの合計によって与えられます（ゼロバイトはソースコードの一部ではない場合があります）（コードポイントは言語^2に依存します。あなたの言語はそれをサポートしています）。

最も低いスコアの提出が勝ち、最も早い提出によって同点が破られます。

1. $\mathbb{N}$有限サブセットのみを置換する順列を除き、集合$\{ x | \pi(x) \neq x \}$は無限でなければなりません。

2. スコアが改善される場合、たとえば、通常のSBCSの代わりにUTF-8エンコードのJelly提出を使用できます。

ゼリー、スコア 288 250 212  199

-38アウトゴルファーのエリックに感謝！

C-*+

奇数でもスワップします。

スコアは$67+45+44+43=199$ - ここで自己採点を参照してください。

オンラインでお試しください！

JavaScript（ES6）、スコア=  276  268

$=>(--$^40)+!0

オンラインでお試しください！

Perl 6、スコア：201

*-!0+^40+!0

オンラインでお試しください！

港アルノーの答え。これは、xor（+^）が-andと同じ優先順位を持っていることの恩恵を受けます+し、どのようなラムダを使用することは、全体の文字を低減することができます。それ以外は、より良いスコアを得るためにそれを異なって表現する方法を見つけることができませんでした。

Perl 6、スコア804 702

{{(++$∉ords(q[!$%()+-2?[]_doqrsx{}∉])??++$+22-$++%2-$++%2!!++$)xx$_}()[-!$+$_]}

オンラインでお試しください！

ここで最初のクイニータイプの答えは、かなり良いスコアだと思います。

これにより、シーケンス生成されます。$23,22,25,24...$$1,2,3,4...21$$50, 53, 52, 1, 55, 54$!

Python 2スコア：742 698 694ポイント

lambda a:a^96or~~96

オンラインでお試しください！

-44ポイントはØrjanJohansenに感謝します。-4はthxからxnorを指します。

Retina 0.8.2、6バイト、スコア260

T`O`RO

オンラインでお試しください！リンクには自己採点フッターが含まれます。数字1とand 9および3and 7の10進表現を単純に交換します。そのため、互いに素な数字を含まない数値10は影響を受けません。

C＃（Visual C＃Interactive Compiler）、22バイト、スコア247 245

A=>A>65?A-1+A%2*2:66-A

オンラインでお試しください！

単純で、66未満の場合は66マイナス入力を返します。そうでない場合は、偶数と奇数を入れ替える質問の式を使用します。

TI-BASIC、9バイト、スコア1088 1051 1000

Ans-cos(π2fPart(2⁻¹Ans

奇数でもスワップします。へのAns-1偶数マップとへの奇数マップAns+1。

TI-BASICはトークン化されているため、このプログラムには次の16進値が含まれます。

Ans   -    cos(  π    2    fPart(  2   ⁻¹  Ans
72    71   C4    AC   32   BA      32  0C  72

したがって、スコアは次のとおりです。 $113+114+195+171+49+185+49+11+113=1000$

出力テストプログラム：

For(I,1,10
I
Ans-cos(π2fPart(2⁻¹Ans
Disp Ans
Pause
End

どの出力：

2
1
4
3
6
5
8
7
10
9

ノート：

• TI-BASICのトークン値はこちらにあります。

• Pause計算機には8行しかないため、出力プログラムで順列を見やすくするために使用されます。[ENTER]を押して、次の順列を表示します。

炭、13バイト、スコア681

⁻⁺²³²ι⊗﹪⊖ι²³³

オンラインでお試しください！リンクは、バイトコードの配列にマップするヘッダー付きの自己採点バージョンです。（Charcoalにはカスタムコードページがあるため、入力に正しいバイトコードを手動で挿入しました。）233番号の範囲を逆にすることで機能し、117、350、583 ...は変更されません。説明：

     ι          Value
 ⁺              Plus
  ²³²           Literal 232
⁻               Minus
         ι      Value
        ⊖       Decremented
       ﹪        Modulo
          ²³³   Literal 233
      ⊗         Doubled

Haskell、スコア985

(\((.),(-))->(.)*200+mod(-39+(-))200+1).(\(*)->divMod((*)-1)200)

オンラインでお試しください！

05AB1E、スコア：05AB1Eのコードページで 488

È·<-

例の関数のように奇数と偶数を交換します。

ここからスコアを改善しようとします。

範囲内の入力でオンラインで試す[1, 100]か、コードポイントでオンラインで試します。

説明：

È     # Check if the (implicit) input is even (1 if truthy; 0 if falsey)
 ·    # Double (2 if truthy; 0 if falsey)
  <   # Decrease by 1 (1 if truthy; -1 if falsey)
   -  # Subtract it from the (implicit) input (and output implicitly)

Brainfuck、47バイト、スコア2988

,[-<+<+>>]<[->[>+<[-]]+>[<->-]<<]>[-<<++>>]<<-.

オンラインでお試しください！

序論で示した順列を使用しました。これは全単射なので、ROT13やAtbashに似た単純な対称暗号として使用できます。私のソリューションは、無制限のセルで動作します。ただし、8ビットセルに制限することにより、に置き換え[-]て2ポイント節約できます[+]。