Malbolgeプログラミング言語の多くのユニークな機能の1つは、非常に直感的ではないOP演算子です。ドキュメントとソースコードでは「op」と呼ばれますが、一般的に「crazy」演算子として知られています。言語の作成者であるベン・オルムステッドがその文書で説明しているように、「パターンを探してはいけない、そこにはない」。

opは「tritwise」演算子です。2つの引数の対応する3進数で動作します。各トリット（3進ビット）について、opの結果は次のルックアップテーブルによって与えられます。

           a
op(a,b)  0 1 2
       +-------
     0 | 1 0 0
   b 1 | 1 0 2
     2 | 2 2 1

たとえば、を計算するにはop(12345, 54321)、最初に両方の数値を3進数で書き出してから、テーブル内の各トリットのペアを検索します。

   0121221020   (12345_3)
op 2202111220   (54321_3)
--------------
   2202220211   (54616_3)

最後に重要な点は、入力値が10の幅にゼロで埋めなければならないのでMalbolgeのすべての値が10個のトリットが広いということである（例えば、op(0, 0)ある1111111111三元に）。

あなたの仕事は、2つの整数0≤ a、b<59049を入力として受け取り、の整数値を出力することですop(a,b)。

テストケース（形式a b op(a,b)）：

0 0 29524
1 2 29525
59048 5 7
36905 2214 0
11355 1131 20650
12345 54321 54616

これがリファレンス実装です（Malbolgeのソースコードから直接コピーされます）。

C（gcc）、99 98 96バイト

• ceilingcatのおかげで1バイト節約できました。ゴルフを19683しますL'䳣'。
• 2バイトを保存しました。ゴルフを108609しますL'𚡁'。

M,a,l,b,o;L(g,e){for(o=b=L'䳣',l=0;o/=2.4;b/=3)M=g/b,g%=b,a=e/b,e%=b,l+=b*(L'𚡁'>>M+6*a+M&3);g=l;}

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

JavaScript（ES7）、56バイト

f=(a,b,k=9)=>~k&&(a%3|b%3<<9|8)**2%82%3+3*f(a/3,b/3,k-1)

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

どうやって？

とが与えられ場合、以下を計算します。b [ 0..2 $a$$b$$[0..2]$

につながる：

 a | b | 512b | a + 512b |  + 8 | squared | MOD 82 | MOD 3
---+---+------+----------+------+---------+--------+-------
 0 | 0 |    0 |      0   |    8 |      64 |   64   |   1                  a
 1 | 0 |    0 |      1   |    9 |      81 |   81   |   0                0 1 2
 2 | 0 |    0 |      2   |   10 |     100 |   18   |   0              +-------
 0 | 1 |  512 |    512   |  520 |  270400 |   46   |   1            0 | 1 0 0
 1 | 1 |  512 |    513   |  521 |  271441 |   21   |   0    -->   b 1 | 1 0 2
 2 | 1 |  512 |    514   |  522 |  272484 |   80   |   2            2 | 2 2 1
 0 | 2 | 1024 |   1024   | 1032 | 1065024 |    8   |   2
 1 | 2 | 1024 |   1025   | 1033 | 1067089 |   23   |   2
 2 | 2 | 1024 |   1026   | 1034 | 1069156 |   40   |   1

機能選択

フォームには、他にもいくつかの候補関数があります。

最も短いものの1つ：

しかし、良いところ、それはこのように暗黙的の小数部分破棄、ビット演算子で実行することができるということであると。これが、各反復間で丸めることなく、単純にそれらを除算できる理由です。a b $(a+512b+8)$$a$$b$$3$

コメント済み

f = (a, b,            // given the input integers a and b
           k = 9) =>  // and starting with k = 9
  ~k &&               // if k is not equal to -1:
    ( a % 3           //   compute (a mod 3)
      | b % 3 << 9    //   add 512 * (b mod 3)
      | 8             //   add 8
    ) ** 2            //   square the result
    % 82              //   apply modulo 82
    % 3               //   apply modulo 3, leading to crazy(a % 3, b % 3)
    + 3 * f(          //   add 3 times the result of a recursive call with:
      a / 3,          //     a / 3  \__ no rounding required
      b / 3,          //     b / 3  /   (see 'Function choice')
      k - 1           //     k - 1
    )                 //   end of recursive call

05AB1E、18バイト

コード：

3Tm+3Bø5+3m5(^3%3β

05AB1Eエンコードを使用します。オンラインでお試しください！

アルゴリズムの説明

数字をゼロで埋めるには、両方の数字に59049を追加する必要があります（3進数の59049は10000000000であるため）。先頭の1を必要はありません。数値を10進数から3進数に変換し、各ペアをそれぞれの数値として結合します。$(1, 1) \rightarrow 0$

たとえば、入力12345および54321の場合、これらは次のものにマッピングされます。

これにより、結合された整数の次のリストが得られます。

これらの整数は、OP内の指定されたルックアップテーブルによってマップされる必要があります。これらの数値を対応するトリット（ 1、10）にマッピングする現在使用している式は次のとおりです。$0 \rightarrow 1, 10 \rightarrow 0, \dots$

一方、はビット単位のxor関数を示します。$\oplus$

最終的に、この関数を結合整数のリストにマッピングした後、この結果のリストを基数3で表される数値として扱い、基数3から10進数に変換します。

コードの説明

3Tm+                  # Add 59049 to pad the ternary number with zeroes.
    3B                # Convert to base 3.
      ø               # Zip the list to get each joined integer.
       5+             # Add 5 to each element.
         3m           # Raise each element to the power of 3.
           5(^        # XOR each element with -5.
              3%      # Modulo each element with 3.
                3β    # Convert from base 3 to decimal.

R、64 62バイト

function(a,b,x=3^(9:0))30801%/%x[a%/%x%%3*3+b%/%x%%3+1]%%3%*%x

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

黒魔法のゴルフトリックと-2バイトのJADに感謝します！

30801、10トリットの3進整数に変換すると1120020210、列を下に読み取ったときに末尾のゼロが操作テーブルに追加されるだけです。次に、aおよびb要素単位の3進数を整数に変換し、それをの3進数のインデックスとして使用し30801ます。

C（gcc）、74 72 71バイト

f(a,b,i,r){for(r=0,i=59049;i/=3;)r+=(108609>>a/i%3*2+b/i%3*6&3)*i;i=r;}

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

壊す

真理値表

           a
op(a,b)  0 1 2
       +-------
     0 | 1 0 0
   b 1 | 1 0 2
     2 | 2 2 1

3x3の配列と考えることができます。aは列、bは行です。これを1次元のリストに変換すると、100102221が得られます。スペースを節約するために、リストと文字列を避けて、代わりに数値にします。そのために、順序を反転し、すべてのトリットを2ビット数に変換します。それらを一緒に接着すると、右にシフトして2 * (b * 3 + a)マスキングすることで「インデックス付け」できるバイナリ番号が得られます。

 1 0 0 1 0 2 2 2 1
 1 2 2 2 0 1 0 0 1
011010100001000001

次に、操作の優先順位の力を使用して式をマッサージし、上記の憎悪になります。

3 ^ 9 = 19683なので、これは適切なループ制限です。カウンターに毎回3を掛けるため、2e4代わりに制限を記述できます。また、わずらわしいものpow()や似たようなものを保存します。

考え直して、3 ^ 10から始めて、ループ前の分割とテストを下に向かっていきましょう。

Haskell、108バイト

2%2=1
_%2=2
0%_=1
2%1=2
_%_=0
g=take 10.map(`mod`3).iterate(`div`3)
(foldr((.(3*)).(+))0.).(.g).zipWith(%).g

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

APL（Dyalog）、41 25バイト

@Adámのおかげで9バイト節約

3⊥(b⊤6883)[3⊥⍉⎕⊤⍨3,b←9⍴3]

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

ゼリー、 23  18 バイト

-1エリックOutgolferのおかげで（再配置3*⁵¤します⁵3*）

⁵3*+b3Zḅ3ị⁽½Ṡb3¤ḅ3

2つの整数のリストを受け入れる単項リンク。

オンラインでお試しください！または、テストスイートを参照してください。

⁹*%733%3ị⁽½Ṡb3¤:( より長いバイトです

どうやって？

⁵3*+b3Zḅ3ị⁽½Ṡb3¤ḅ3 - Link: [a, b]      e.g. [11355,1131]
⁵                  - literal ten            10
 3                 - literal three          3
  *                - exponentiation         59049
   +               - addition (vectorises)  [70404,60180]
     3             - literal three          3
    b              - to base (vectorises)   [[1,0,1,2,0,1,2,0,1,2,0],[1,0,0,0,1,1,1,2,2,2,0]]
      Z            - transpose              [[1,1],[0,0],[1,0],[2,0],[0,1],[1,1],[2,1],[0,2],[1,2],[2,2],[0,0]]
        3          - literal three          3
       ḅ           - from base (vectorises) [4,0,3,6,1,4,7,2,5,8,0]
               ¤   - nilad followed by link(s) as a nilad:
          ⁽½Ṡ      -   literal 3706         3706
              3    -   literal three        3
             b     -   to base              [1,2,0,0,2,0,2,1]
         ị         - index into             [0,1,0,0,1,0,2,2,2,1,1]
                 3 - literal three          3
                ḅ  - from base              20650

また18：⁵3*+b3ZḌ19*%74%3ḅ3（10を基数から19の累乗に変換するペアワイズトリットを取得し、74を法として3を法として出力の必要なトリットを取得する-Pythonでの検索を使用して見つけた後、魔法の式を使用します）

パイソン2、79の 65 63 61バイト

Arnauldの式（-2バイト）に感謝します。

f=lambda a,b,i=9:i+1and(a%3+b%3*5+2)**4%25%3+f(a/3,b/3,i-1)*3

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

J、37バイト

((3 3$d 30801){~{@,.)&.(d=.(10$3)&#:)

説明：

((3 3$d 30801){~{@,.)&.(d=.(10$3)&#:)   
                       (d=.(10$3)&#:)   convert to 10 trits, and name this function as d
                     &.                 ... which is done on both args and inverted on the result
                {@,.                    make boxed indices: 1 2 3 4 {@,. 5 6 7 8  ->  1 5 ; 2 6 ; 3 7 ; 4 8
              {~                        index out of a lookup table
 (3 3$d 30801)                          reusing the trits conversion function to make the table

比較的読みやすいものになりました、TBH。

パイソン2、90の 87バイト

f=lambda a,b,A='':f(a/3,b/3,'100102221'[a%3+b%3*3]+A)if a+b else int(A.rjust(10,'1'),3)

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

炭、31バイト

Ｉ↨³⮌⭆χ§200211⁺∨﹪÷θＸ³ι³¦⁴﹪÷ηＸ³ι³

オンラインでお試しください！リンクは、コードの詳細バージョンです。説明：

     χ                          Predefined variable 10
    ⭆                           Map over implicit range and join
                    ι        ι  Current index
                  Ｘ³       Ｘ³   Power of 3
                 θ              Input `a`
                          η     Input `b`
                ÷        ÷      Integer divide
               ﹪     ³  ﹪     ³ Modulo by 3
              ∨       ¦⁴        Replace zero ternary digit of `a` with 4
             ⁺                  Add
      §200211                   Index into literal string `200211`
   ⮌                            Reverse
 ↨³                             Convert from base 3
Ｉ                               Cast to string
                                Implicitly print

代替ソリューション、31バイト：

Ｉ↨³Ｅ↨⁺Ｘ³χ賧200211⁺∨ι⁴§↨⁺Ｘ³χη³κ

オンラインでお試しください！リンクは、コードの詳細バージョンです。

        χ                  χ    Predefined variable 10
      Ｘ³                 Ｘ³     Power of 3 i.e. 59049
         θ                      Input `a`
                            η   Input `b`
     ⁺                  ⁺       Sum
    ↨     ³            ↨     ³  Convert to base 3
   Ｅ                            Map over elements
                    ι           Current ternary digit of `a`
                   ∨ ⁴          Replace zero with 4
                      §       κ Index into ternary digits of `b`
                  ⁺             Add
           §200211              Index into literal string `200211`
 ↨³                             Convert from base 3
Ｉ                               Cast to string
                                Implicitly print

ルビー、70バイト

->a,b,l=10{l>0?6883.digits(3)[8-b%3*3-a%3]*3**(10-l)+f[a/3,b/3,l-1]:0}

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

各10桁を取得するまで、分解aしてb再帰的に。6883平坦化された三元表（反転）を提供します。を乗算して、3進数から10進数に再構成し3**(10-l)ます。

Cjam、31バイト

{{3bA0e[\}2*.{3*+"100102221"=}}

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

J、43バイト

3#.((3 3$t 6883){~<@,~"0)&(_10{.t=.3&#.inv)

それは確かにさらにゴルフすることができます。

説明：

                         &(               ) - for both arguments
                                t=.3&#.inv  - convert to base 3 (and name the verb t)
                           _10{.            - pad left with zeroes
   (              <@,~"0)                   - box the zipped pairs (for indexing)
    (3 3$t 6883)                            - the lookup table
                {~                          - use the pairs as indeces in the table
3#.                                         - back to decimal  

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

スタックス、22 バイト

é╨¼aûé∟ç⌂zπb![5┬◘«╜‼╞♠

実行してデバッグする

Pyth 26 25 24バイト

@ErikTheOutgolferのおかげで1バイト節約

@JonathanAllanの回答に触発された別のバイトを保存する

im@j3422 3id3Cm.[0Tjd3Q3

入力は2要素のリスト[a,b]です。ここでオンラインで試すか、ここですべてのテストケースを確認してください。

im@j3422 3id3Cm.[0Tjd3Q3   Implicit: Q=eval(input())
              m       Q    Map each element d of the input using:
                   jd3       Convert to base 3
               .[0T          Pad to length 10 with 0's
             C             Transpose
 m                         Map each element d of the above using:
   j3422 3                   The lookup table [1,1,2,0,0,2,0,2]
  @                          Modular index into the above using
          id3                Convert d to base 10 from base 3
i                      3   Convert to base 10 from base 3, implicit print

K（ngn / k）、25 22バイト

3/(3\10267)@3/+(10#3)\

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

Japt、24 23バイト

今月の言語としてJaptの実行でボールを転がします。

整数配列（つまり、[b,a]）として逆順で入力を受け取ります。

ms3 ùTA y_n3 g6883ì3Ãì3

それを試してみてください

ms3 ùTA y_n3 g6883ì3Ãì3      :Implicit input of array U=[b,a]
m                            :Map
 s3                          :  Convert to base-3 string
    ù                        :Left pad each
     T                       :  With zero
      A                      :  To length 10
        y                    :Transpose
         _                   :Map
          n3                 :  Convert from base-3 string to decimal
             g               :  Index into
              6883ì3         :    6883 converted to a base-3 digit array
                    Ã        :End map
                     ì3      :Convert from base-3 digit array to decimal

Perl 5、102 -pバイト

sub t{map{("@_"%3,$_[0]/=3)[0]}0..9}@a=t$_;@b=t<>}{$\=(1,1,2,0,0,2,0,2,1)[(3*pop@a)+pop@b]+$\*3while@a

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

Wolfram言語（Mathematica）、75 72 60バイト

(d=IntegerDigits)[6883,3][[{1,3}.d[#,3,10]+1]]~FromDigits~3&

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

ゴルフされていないバージョン：

M[{a_, b_}] := 
  FromDigits[{1, 0, 0, 1, 0, 2, 2, 2, 1}[[
    IntegerDigits[a, 3, 10] + 3*IntegerDigits[b, 3, 10] + 1
  ]], 3];

両方aとb番号のルックアップテーブルに2次元のインデックスとして使用ペアワイズ次いで、10-トリットリストに変換されます{1, 0, 0, 1, 0, 2, 2, 2, 1}。結果は再び10トリットリストとして解釈され、整数形式に変換されます。

ルックアップテーブルはとしてコーディングされていますIntegerDigits[6883,3]。これは、IntegerDigitsシンボルをリサイクルしているため短いです。