SO（スポイラーアラート！）でこの質問を引用：

この質問は、Oracleのインタビューで尋ねられました。

*、/、+、-、％、演算子を使用せずに数値を3で除算するにはどうすればよいですか？

番号は署名されている場合と署名されていない場合があります。

タスクは解決可能ですが、最短のコードを記述できるかどうかを確認してください。

ルール：

• 必要な整数除算を実行します（/3）
• 非テキストベースの演算子を使用しないでください*、/、+、-、または%（またはその等価物、など__div__またはadd()）。これは、i++またはのような演算子のインクリメントとデクリメントにも適用されますi--。文字列の連結とフォーマットに演算子を使用しても問題ありません。これらの文字をさまざまな演算子（-負の数の単項演算子など）に使用したり*、Cでポインターを表すことも同様に問題ありません。
• 入力値は、正と負の両方の任意の大きさ（システムが処理できるもの）にすることができます
• 入力は、STDINまたはARGVに入力するか、他の方法で入力できます
• 上記を実行できる最短のコードを作成します

J、45 44 10文字

".,&'r3'":

ネガで動作します：

".,&'r3'": 15
5
   ".,&'r3'": _9
_3
   ".,&'r3'": 3e99
1e99

": -テキストとしてフォーマット

,&'r3'- r3最後に追加

". -文字列を実行します、例えば 15r3

C、167503724710

これが私の問題の解決策です。厳格なコードのゴルフ大会で優勝する可能性は低いと思いますが、組み込みの除算機能を間接的に呼び出すためのトリックは一切使用せず、ポータブルCで記述されています（元のStack Overflowの質問のとおり）、完全に機能します負の数の場合、コードは非常に明確で明示的です。

私のプログラムは、次のスクリプトの出力です。

#!/usr/bin/env python3
import sys

# 71
sys.stdout.write('''#include <stdint.h>
#include <stdio.h>
int32_t div_by_3(int32_t input){''')

# 39 * 2**32
for i in range(-2**31, 2**31):
    # 18 + 11 + 10 = 39
    sys.stdout.write('if(input==%11d)return%10d;' % (i, i / 3))

# 95
sys.stdout.write(r'''return 7;}int main(int c,char**v){int32_t n=atoi(a[1]);printf("%d / 3 = %d\n",n, div_by_3(n));}''')

文字数：71 + 39 * 2 ** 32 + 95 = 167503724710

ベンチマーク

これにかかる時間と使用するメモリ量を尋ねられたので、いくつかのベンチマークを示します。

• スクリプトの実行時間— ./test.py | pv --buffer-size=1M --average-rate > /dev/null約30秒間実行すると、約14.8 MB / sのレートが得られます。出力レートはほぼ一定であると合理的に仮定できるため、完了までの実行時間は約167503724710 B /（14.8 * 1048576 B / s）≈10794 sである必要があります。
• コンパイル時間— TCCコンパイラは、Cコードを29.6 MB / sでコンパイルすると主張しています。これにより、コンパイル時間が167503724710 B /（29.6 * 1048576 B / s）≈5397 sになります。（もちろん、これはスクリプトを使用してパイプラインで実行できます。）
• コンパイル済みコードのサイズ—を使用して推定しようとしましたが./test.py | tcc -c - -o /dev/stdout | pv --buffer-size=1M --average-rate > /dev/null、tccソースファイル全体を読み込むまで何も出力されないようです。
• 実行するメモリ使用量—アルゴリズムは線形であるため（また、tccは複数行にわたって最適化しないため）、メモリオーバーヘッドは数キロバイトにすぎません（もちろん、コード自体は別です）。

ルビー28

b=->n{n.to_s(3).chop.to_i 3}

3で除算するには、基数3の末尾のゼロを削除するだけです。 120 -> 11110 -> 1111 -> 40

ネガで動作します：

ice distantstar:~/virt/golf [349:1]% ruby ./div3.rb
666
222
ice distantstar:~/virt/golf [349]% ruby ./div3.rb
-15        
-5

ルビー、60 45

または、ベース変換を使用しない場合：

d =-> n {x = n.abs; r =（0..1.0 / 0）.step（3）.take（x）.index x; n> 0？r：-r}

d=->n{(r=1.step(n.abs,3).to_a.size);n>0?r:-r}

Mathematica、13文字

Mean@{#,0,0}&

JavaScript、56

alert(Array(-~prompt()).join().replace(/,,,/g,1).length)

長さの文字列になりn、繰り返しの,Sと置き換えを,,,しに1。次に、文字列の結果の長さを測定します。（願わくば単項式-が許可されています！）

Python、41 38

print"-"[x:]+`len(xrange(2,abs(x),3))`

xrange すぐに大量の（Cのlongと同じだと思う）を処理できるようです。

>>> x = -72
-24

>>> x = 9223372036854775806
3074457345618258602

ハスケル、90 106

d n=snd.head.dropWhile((/=n).fst)$zip([0..]>>=ν)([0..]>>=replicate 3>>=ν);ν q=[negate q,q]

無限（遅延）ルックアップリストを作成し、[(0,0),(0,0),(-1,0),(1,0),(-2,0),(2,0),(-3,-1),(3,1), ...]一致しないすべての要素をトリミングしn（/=Haskellでは不等式です）、一致する最初の要素を返します。

負の数がない場合、これははるかに簡単になります。

25 27

(([0..]>>=replicate 3)!!)

nリストのth要素を返すだけ[0,0,0,1,1,1,2, ...]です。

C＃、232バイト

私の最初のコードゴルフ...そして、C＃がなかったので、ここで試していない別の方法を試してみたかったので、試してみようと思いました。ここの他のいくつかのように、非負数のみ。

class l:System.Collections.Generic.List<int>{}class p{static void Main(string[] g){int n=int.Parse(g[0]);l b,a=new l();b=new l();while(a.Count<n)a.Add(1);while(a.Count>2){a.RemoveRange(0,3);b.Add(1);}System.Console.Write(b.Count);}}

非ゴルフ

class l : System.Collections.Generic.List<int>
{ }
class p
{
    static void Main(string[] g)
    {
        int n = int.Parse(g[0]);
        l b, a = new l();
        b = new l();
        while (a.Count < n) a.Add(1);
        while (a.Count > 2)
        {
            a.RemoveRange(0, 3);
            b.Add(1);
        }
        System.Console.Write(b.Count);
    }
}

Perl（26 22）

$_=3x pop;say s|333||g

このバージョンは（Perl）Perlの正規表現エンジンを使用します。最後のコマンドライン引数として数値を読み取り（pop）、3この長さのsの文字列を構築します（"3" x $number）。正規表現置換演算子（s///、ここではパズルのルールのために異なる区切りg文字とlobalフラグを使用して記述）は、空の文字列で3文字を置換し、置換数を返します。置換数は、3で整数で割った入力数です。なしでも記述できます3が、上記のバージョンはより面白そうです。

$ perl -E '$_=3x pop;say s|333||g' 42
14

C、160文字

ルックアップテーブルを使用した文字単位の長い除算ソリューション。つまり、文字列atoi（）またはprintf（）を使用せずに、10を基数とする整数と整数の間で変換します。

出力には、先頭にゼロが含まれることがあります-その魅力の一部です。

main(int n,char**a){
char*s=a[1],*x=0;
if(*s==45)s=&s[1];
for(;*s;s=&s[1])n=&x[*s&15],x="036"[(int)x],*s=&x["000111222333"[n]&3],x="012012012012"[n]&3;
puts(a[1]);
}

注意：

• 配列アクセスを悪用して追加を実装します。
• clang 4.0でコンパイルすると、他のコンパイラーがbarfする可能性があります。

テスト：

./a.out -6            -2
./a.out -5            -1
./a.out -4            -1
./a.out -3            -1
./a.out -2            -0
./a.out -1            -0
./a.out 0             0
./a.out 1             0
./a.out 2             0
./a.out 3             1
./a.out 4             1
./a.out 5             1
./a.out 6             2
./a.out 42            14
./a.out 2011          0670

Python 42

int(' -'[x<0]+str(len(range(2,abs(x),3))))

Iveがここに投稿したすべてのソリューションが小数を切り捨てたので、ここでそれを行うソリューションです。

Python 50 51

int(' -'[x<0]+str(len(range([2,0][x<0],abs(x),3))))

Pythonはフロア分割を行うため、これを実装する私のソリューションを次に示します。

入力整数は変数xにあります。

Python 2.7でテストされましたが、3でも動作すると思われます。

JavaScript、55

alert(parseInt((~~prompt()).toString(3).slice(0,-1),3))

を使用できない場合-1は、次のバージョンに置き換えます~0（ありがとう、Peter Taylor！）。

alert(parseInt((~~prompt()).toString(3).slice(0,~0),3))

C 83文字

除算する数値はstdinを介して渡され、終了コードmain()（CMDの％ERRORLEVEL％）として返されます。このコードは、最適化がオンになっていない場合、最後の割り当て値をreturnステートメントとして処理するという点で、MinGWの一部のバージョンを悪用します。おそらく少し減らすことができます。に適合するすべての数字をサポートint

単項否定（-）が許可されていない場合：（129）

I(unsigned a){a=a&1?I(a>>1)<<1:a|1;}main(a,b,c){scanf("%i",&b);a=b;a=a<0?a:I(~a);for(c=0;a<~1;a=I(I(I(a))))c=I(c);b=b<0?I(~c):c;}

単項否定は場合IS許可：（123）

I(unsigned a){a=a&1?I(a>>1)<<1:a|1;}main(a,b,c){scanf("%i",&b);a=b;a=a<0?a:-a;for(c=0;a<~1;a=I(I(I(a))))c=I(c);b=b<0?-c:c;}

編集：ugorenは私に-〜は増分であると指摘しました...

83単項否定が許可されている場合の文字：D

main(a,b,c){scanf("%i",&b);a=b;a=a<0?a:-a;for(c=0;a<~1;a=-~-~-~a)c=-~c;b=b<0?-c:c;}

C、139文字

t;A(a,b){return a?A((a&b)<<1,a^b):b;}main(int n,char**a){n=atoi(a[1]);for(n=A(n,n<0?2:1);n&~3;t=A(n>>2,t),n=A(n>>2,n&3));printf("%d\n",t);}

コマンドライン引数として数値で実行

• 負数と正数の両方を処理します

テスト：

 ./a.out -6            -2
 ./a.out -5            -1
 ./a.out -4            -1
 ./a.out -3            -1
 ./a.out -2            0
 ./a.out -1            0
 ./a.out 0             0
 ./a.out 1             0
 ./a.out 2             0
 ./a.out 3             1
 ./a.out 4             1
 ./a.out 5             1
 ./a.out 6             2
 ./a.out 42            14
 ./a.out 2011          670

編集：

• ローカル変数を削除するために追加（A）をシャッフルすることで10文字を保存しました。

ZSH — 31 20/21

echo {2..x..3}|wc -w

負の数の場合：

echo {-2..x..3}|wc -w

負の数の場合（ZSH + bc）—62 61

私はおそらく2つのプログラムを私の答えとして与えるべきではないので、数字の任意のサインに対して機能するものを以下に示します。

echo 'obase=10;ibase=3;'`echo 'obase=3;x'|bc|sed 's/.$//'`|bc

これは、Artem Iceの答えと同じベース変換トリックを使用します。

C、81 73文字

非負数のみをサポートします。

char*x,*i;
main(){
    for(scanf("%d",&x);x>2;x=&x[~2])i=&i[1];
    printf("%d",i);
}

アイデアは、ポインタarithemticを使用することです。番号はポインターxに読み込まれますが、ポインターはどこにも指していません。&x[~2]= &x[-3]= x-3は3を減算するために使用されます。これは、数値が2 iを超える限り繰り返されます。これが行われた回数をカウントします（&i[1]= i+1）。

Java 86 79

整数がyにあると仮定します。

基数3の文字列に変換し、最後の文字（基数3の右シフト「>>」）を削除してから、整数に戻します。

負の数で動作します。

数値yが<3または> -3の場合、0になります。

System.out.print(~2<y&y<3?0:Long.valueOf(Long.toString(y,3).split(".$")[0],3));

コードゴルフに関する初めての投稿。=）だからまだコメントできません。

ヒントについては、Thx Kevin Cruijssen。

Python2.6（29）（71）（57）（52）（43）

z=len(range(2,abs(x),3))
print (z,-z)[x<0]

print len(range(2,input(),3))

編集-負の整数も処理しなければならないことに気付きました。後で修正します

Edit2-修正済み

Edit3-Joel Cornettのアドバイスに従って5文字保存

Edit4-入力は必ずしもSTDINまたはARGVからのものである必要はないため、stdinから入力を受け取らないことで9文字を節約しました

Javascript、47 29

を使用evalして動的に生成し/ます。+追加ではなく、文字列の連結にのみ使用します。

alert(eval(prompt()+"\57"+3))

編集："\57"代わりに使用String.fromCharCode(47)

ルビー（43 22 17）

ゴルフだけでなく、優雅さも:)

p Rational gets,3

出力はのようになり(41/1)ます。整数でなければならない.to_i場合は、結果に追加する必要があり、変更to_iするto_fと、floatの出力も取得できます。

TI-Basic、8バイト

勝者？:)

int(mean({Ans,0,0

PS負の数の場合は無限に丸めます（理由についてはこちらを参照）。ラウンドに、代わりにゼロに置き換えint(てiPart(いないバイトの変更のため。

テストケース

-4:prgmDIVIDE
              -2
11:prgmDIVIDE
               3
109:prgmDIVIDE
              36

Python 2.x、54 53 51

print' -'[x<0],len(range(*(2,-2,x,x,3,-3)[x<0::2]))

_配当金はどこにあり、そのように入力されます。

>>> x=-19
>>> print' -'[x<0],len(range(*(2,-2,x,x,3,-3)[x<0::2]))
- 6

注：インタラクティブインタープリターの使用が許可されているかどうかはわかりませんが、OPによると：「入力はSTDINまたはARGVであるか、他の方法で入力できます」

編集：Python 3用になりました（2.xで動作しますが、タプルを出力します）。ネガで動作します。

C ++、191

メインおよびインクルードあり、その246、メインおよびインクルードなしの場合は178のみです。改行は1文字としてカウントされます。すべての数値を符号なしとして扱います。mainがunsigned intを返すための警告が表示されないので、公正なゲームです。

初めてのコードゴルフの提出。

#include<iostream>
#define R return
typedef unsigned int U;U a(U x,U y){R y?a(x^y,(x|y^x^y)<<1):x;}U d(U i){if(i==3)R 1;U t=i&3,r=i>>=2;t=a(t,i&3);while(i>>=2)t=a(t,i&3),r=a(r,i);R r&&t?a(r,d(t)):0;}U main(){U i;std::cin>>i,std::cout<<d(i);R 0;}

シフトを使用して数値を4で繰り返し除算し、合計を計算します（1/3に収束します）

擬似コード：

// typedefs and #defines for brevity

function a(x, y):
    magically add x and y using recursion and bitwise things
    return x+y.

function d(x):
    if x = 3:
        return 1.
    variable total, remainder
    until x is zero:
        remainder = x mod 4
        x = x / 4
        total = total + x
    if total and remainder both zero:
        return 0.
    else:
        return a(total, d(remainder)).

余談ですが、d mainという名前を付けてchar **を取り、プログラムの戻り値を出力として使用することで、mainメソッドを削除できます。コマンドライン引数の数を3で割った値を切り捨てて返します。これにより、その長さは宣伝された1911年になります。

#define R return
typedef unsigned int U;U a(U x,U y){R y?a(x^y,(x|y^x^y)<<1):x;}U main(U i,char**q){if(i==3)R 1;U t=i&3,r=i>>=2;t=a(t,i&3);while(i>>=2)t=a(t,i&3),r=a(r,i);R r&&t?a(r,d(t)):0;}

Golfscript-13文字

~3base);3base

PowerShell 57または46

%PowerShellのforeach演算子として使用する57文字で、モジュロではありません。このソリューションは、正または負の整数を受け入れることができます。

(-join(1..(Read-Host)|%{1})-replace111,0-replace1).Length

*文字列の繰り返し演算子として許可されている場合、46文字で、乗算ではありません。このオプションでは、入力値として正の整数が必要です。

("1"*(Read-Host)-replace111,0-replace1).Length

R

これらは正の整数でのみ機能します：

max(sapply(split(1:x,1:3), length))
# Gives a warning that should be ignored

または：

min(table(rep(1:3, x)[1:x]))

または：

length((1:x)[seq(3,x,3)])

または：

sum(rep(1,x)[seq(3,x,3)])

[[編集]]そして見苦しいもの：

trunc(sum(rep(0.3333333333, x)))

[[EDIT2]]おそらく最高のもの-エリオットGによる上記のmatlabコードに触発されたもの：

length(seq(1,x,3))

SmileBASIC、58 51 36バイト（数学関数なし！）

INPUT N
BGANIM.,4,-3,N
WAIT?BGROT(0)

説明：

INPUT N           'get input
BGANIM 0,"R",-3,N 'smoothly rotate background layer 0 by N degrees over 3 frames
WAIT              'wait 1 frame
PRINT BGROT(0)    'display angle of layer 0

プログラムは背景レイヤーを3フレームにわたってスムーズに移動し、1フレーム後にその合計距離の1/3を移動したときに角度を取得します。

浮動小数点バージョン、38バイト：

INPUT N
BGANIM.,7,-3,N
WAIT?BGVAR(0,7)

説明：

INPUT N           'input
BGANIM 0,"V",-3,N 'smoothly change layer 0's internal variable to N over 3 frames
WAIT              'wait 1 frame
PRINT BGVAR(0,7)  'display layer 0's internal variable

Haskell 41 39文字

正および負の整数のフルセットで動作します

f n=sum[sum$1:[-2|n<0]|i<-[3,6..abs n]]

最初に、0からinputまでの3番目の整数ごとに、リスト1または（-1）を作成します（入力の符号に応じて）n。abs(n)負の数の場合。

例えば n=8 -> [0,3,6]

次に、このリストの合計を返します。

Clojure、87; ネガで動作します。lazyseqsに基づく

(defn d[n](def r(nth(apply interleave(repeat 3(range)))(Math/abs n)))(if(> n 0)r(- r)))

ゴルフをしていない：

(defn d [n]
  (let [r (nth (->> (range) (repeat 3) (apply interleave))
               (Math/abs n))]
        (if (pos? n)
          r
          (- r))))

セージノート （21）

ZZ(n.digits(3)[1:],3)