単純な整数演算のスクリプト可能な計算機を実装します。

概念

アキュムレータは0から始まり、操作が実行されます。プログラムの最後に、アキュムレーターの値が出力されます。

操作：

• +1アキュムレータに追加します
• -1アキュムレータから減算します
• * アキュムレータに乗算します 2
• / アキュムレータを除算します 2

サンプルスクリプト

入力++**--/は出力を与えるべき3です。

実装例

def calc(s)
    i = 0
    s.chars.each do |o|
        case o
            when '+'
                i += 1
            when '-'
                i -= 1
            when '*'
                i *= 2
            when '/'
                i /= 2
        end
    end
    return i
end

ルール

• これはcode-golfであるため、バイト単位の最小の回答が優先されますが、選択されません。
• 創造的な実装が奨励されます。
• 標準的な抜け穴は禁止されています。
• プログラムは標準入力または引数で取得し、戻り値または標準出力で回答を出力できます。
• 楽しむ。
• 整数除算のため、除算は切り捨てられます。
• プログラム-/はを返します-1。

テストケース

*///*-*+-+
-1
/*+/*+++/*///*/+-+//*+-+-/----*-*-+++*+**+/*--///+*-/+//*//-+++--++/-**--/+--/*-/+*//*+-*-*/*+*+/+*-
-17 
+++-+--/-*/---++/-+*-//+/++-*--+*+/*/*/++--++-+//++--*/***-*+++--+-*//-*/+*/+-*++**+--*/*//-*--**-/-*+**-/*-**/*+*-*/--+/+/+//-+*/---///+**////-*//+-+-/+--/**///*+//+++/+*++**++//**+**+-*/+/*/*++-/+**+--+*++++/-*-/*+--/++*/-++/-**++++/-/+/--*/-/+---**//*///-//*+-*----+//--/-/+*/-+++-+*-*+*+-/-//*-//+/*-+//+/+/*-/-/+//+**/-****/-**-//+/+-+/*-+*++*/-/++*/-//*--+*--/-+-+/+/**/-***+/-/++-++*+*-+*+*-+-//+/-++*+/*//*-+/+*/-+/-/*/-/-+*+**/*//*+/+---+*+++*+/+-**/-+-/+*---/-*+/-++*//*/-+-*+--**/-////*/--/*--//-**/*++*+/*+/-+/--**/*-+*+/+-*+*+--*///+-++/+//+*/-+/**--//*/+++/*+*////+-*-//--*+/*/-+**/*//+*+-//+--+*-+/-**-*/+//*+---*+//*/+**/*--/--+/*-*+*++--*+//+*+-++--+-*-*-+--**+/+*-/+*+-/---+-*+-+-/++/+*///*/*-+-*//-+-++/++/*/-++/**--+-////-//+/*//+**/*+-+/+/+///*+*///*-/+/*/-//-*-**//-/-+--+/-*--+-++**++//*--/*++--*-/-///-+/+//--+*//-**-/*-*/+*/-*-*//--++*//-*/++//+/-++-+-*/*-+++**-/-*++++**+-+++-+-***-+//+-/**-+/*+****-*+++*/-*-/***/-/*+/*****++*+/-/-**-+-*-*-++**/*+-/*-+*++-/+/-++*-/*-****-*
18773342

Python 2、48バイト

i=0
for c in input():exec"i=i%s2&-2"%c
print i/2

DOES +2、-2、*2、または/2。+2and -2ではなく+1andを実行することにより-1、2倍の単位で作業するため、最終出力を半分にする必要があります。例外として、フロア分割/は2の倍数に切り捨てる必要があります&-2。

Haskell、51バイト

x#'+'=x+1
x#'-'=x-1
x#'*'=x*2
x#_=div x 2 
foldl(#)0

使用例：foldl(#)0 $ "++**--/"-> 3。

ゼリー、18 17 バイト

‘

’

:2
Ḥ
O0;ṛĿ/

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

使い方

第6行は、の範囲のインデックスを持つヘルパーリンク定義1に6。インクリメント、何もしない、デクリメント、何もしない、半分（床）、そしてダブル。

メインリンク– O0;ṛĿ/–入力文字をコードポイント（O）に変換し、コードポイントの配列の先頭に0（初期値）を0;追加し、生成された配列を次のように縮小します。

初期値は、配列の最初の要素、つまり先頭に0が追加されます。クイックリンクṛĿは、最後の戻り値を左の引数として、現在の要素を右の引数として、配列内のすべての後続要素に対して呼び出されます。正しい引数（ṛ）を検査し、そのインデックスを持つリンクを一元的に評価し（Ŀ）、目的の操作を適用します。

Python 2、54バイト

i=0
for c in input():exec"i=i"+c+`~ord(c)%5%3`
print i

入力は文字列リテラルとして取得されます。~ord(c)%5%3演算子を対応する右オペランドにマップします。

以前は、hash(c)%55%3Pythonの異なるバージョン間で一貫した結果が得られなかったものを使用しました。これは私に他の式を探求することを奨励しました。

SILOS、133 211バイト

:s
def : lbl G GOTO
readIO
i-46
if i a
i+2
if i b
i+2
if i c
i+1
if i d
G e
:a
G v
:p
a-1
a/2
G o
:v
a+1
if a p
a-1
j=a
j/2
k=j
k*2
k-a
a/2
if k t
G o
:t
a-1
:o
G s
:b
a-1
G s
:c
a+1
G s
:d
a*2
G s
:e
printInt a

演算子のASCIIコードを取得します。

テストケースでオンラインで試してください。
-/
++**--/
*///*-*+-+

チューリングマシン-23の状態（684バイト）

ここで試してください- パーマリンク

0 * * r 0
0 _ . l 1
1 * * l 1
1 _ * l 2
2 * 0 r 3
3 _ * r 3
3 + _ l +
3 - _ l -
3 x _ l x
3 / _ l /
+ _ * l +
+ * * * 4
4 - * l 5
4 _ 1 r 6
4 0 1 l 7
4 1 0 l 4
- _ * l -
- * * * 5
5 - * l 4
5 _ * r 8
5 0 1 l 5
5 1 0 l 7
x * * l x
x 1 0 l 9
x 0 0 l a
9 _ 1 r 6
9 1 1 l 9
9 0 1 l a
a _ _ r 6
a 1 0 l 9
a 0 0 l a
/ _ * l /
/ * * l b
b * * l b
b _ * r c
c 0 0 r d
c 1 0 r e
d * * l 7 
d 0 0 r d
d 1 0 r e
e _ * l 7
e - * l 4
e 0 1 r d
e 1 1 r e
8 * * r 8
8 - _ r 3
8 _ - r 3
7 * * l 7
7 _ * r f
f 0 _ r f
f 1 * r 6
f * _ l g
g * 0 r 6
6 * * r 6
6 _ * r 3
3 . _ l h
h _ * l h
h - _ l i
h * * l halt
i * * l i
i _ - r halt

入力はチューリングマシンコードの特殊文字であるため、「*」を含めないでください。代わりに「x」を使用してください。回答をバイナリで出力します。

難読化されていないコード

init2 * * r init2
init2 _ . l init0
init0 * * l init0
init0 _ * l init1
init1 * 0 r readop
readop _ * r readop
readop + _ l +
readop - _ l -
readop x _ l x
readop / _ l /
+ _ * l +
+ * * * inc
inc - * l dec
inc _ 1 r return
inc 0 1 l zero
inc 1 0 l inc
- _ * l -
- * * * dec
dec - * l inc
dec _ * r neg
dec 0 1 l dec
dec 1 0 l zero
x * * l x
x 1 0 l x1
x 0 0 l x0
x1 _ 1 r return
x1 1 1 l x1
x1 0 1 l x0
x0 _ _ r return
x0 1 0 l x1
x0 0 0 l x0
/ _ * l /
/ * * l //
// * * l //
// _ * r div
div 0 0 r div0
div 1 0 r div1
div0 * * l zero 
div0 0 0 r div0
div0 1 0 r div1
div1 _ * l zero
div1 - * l inc
div1 0 1 r div0
div1 1 1 r div1
neg * * r neg
neg - _ r readop
neg _ - r readop
zero * * l zero
zero _ * r zero1
zero1 0 _ r zero1
zero1 1 * r return
zero1 * _ l zero2
zero2 * 0 r return
return * * r return
return _ * r readop
readop . _ l fin
fin _ * l fin
fin - _ l min
fin * * l halt
min * * l min
min _ - r halt

状態の説明：

初期化：
これらの状態は、init2で始まる各実行の開始時に1回アクセスされます。

• init2：右端まで移動して「。」を入力します。これにより、TMはいつ停止するかを認識します。「init0」に変更します。
• init0：頭がスペースを読み取るまで、すべてを左に移動します。次に、1つのセルを左に移動します。「init1」に変更します。
• init1：ゼロを入力して、1つのセルを右に移動し、「readop」に変更します。

指示を読む：
これらの州は、プログラム全体で複数回訪問されます

• readop：演算子または「。」を読み取るまで、右端まで移動します。演算子にヒットした場合、対応する状態（+、-、x、/）に変更します。「。」がヒットした場合は、「fin」状態に変更します。

• return：積算合計と演算子の間の空のスペースに頭を返します。次に、「readop」に変更します。

操作：
これらの操作は実際の汚い仕事をします

• +：ヘッドが非空白文字を読み取るまで左に移動します。この文字が「-」の場合、左に移動して「dec」に変更します。それ以外の場合は、「inc」に変更します。

• -：「+」に似ていますが、「-」があれば「inc」に、そうでなければ「dec」に変更されます。

• inc：頭の下の数字が0（または空白）の場合、それを1に変更し、「ゼロ」に変更します。数字が1の場合、0に変更し、次の数字で繰り返します。

• dec：incと似ていますが、1が0になり、0が1になり、頭が空白を読み取る場合は「neg」に変更します。

• x、x0、x1：数値1を左にビットシフトします。「戻る」に変更します。

• /、//、div、div0、div1：数値の右にずっと移動してから、1つ右にビットシフトします。「-」がある場合は、「inc」に変更します。これは、負数の切り捨てをシミュレートします。それ以外の場合は、「ゼロ」に変更します

• neg：番号の後に「-」を付けてから「readop」に変更します

• zero、zero1、zero2：先行ゼロを削除し、「readop」に変更します

クリーンアップ： 出力を表示可能にします

• fin、min：必要に応じて、数字の前に「-」を移動します。停止します。

Perl 6の、53の  52バイト

{([Ro] %(<+ - * />Z=>*+1,*-1,* *2,*div 2){.comb})(0)}

{[Ro](%(<+ - * />Z=>*+1,*-1,*×2,*div 2){.comb})(0)}

説明：

# bare block lambda that has one implicit parameter ｢$_｣
{
  (
    # reduce the code refs using ring operator ｢∘｣ in reverse ｢R｣
    [R[o]]

      # produce a hash from:
      %(

        # list of pairs of "operator" to code ref
        # ( similar to ｢'+' => { $^a + 1 }｣ )

          # keys
          < + - * / >

        # keys and values joined using infix zip operator ｢Z｣
        # combined with the infix Pair constructor operator ｢=>｣
        Z[=>]

          # values (Whatever lambdas)
          * + 1,
          * - 1,
          * × 2, # same as ｢* * 2｣
          * div 2,

      ){

        # split the block's argument into chars
        # and use them as keys to the hash
        # which will result in a list of code refs
        .comb

      }

  # call composed code ref with 0
  )(0)
}

使用法：

my $input = '++**--/'
my $output = {[Ro](%(<+ - * />Z=>*+1,*-1,*×2,*div 2){.comb})(0)}.( $input );
say $output; # 3
say $output.^name; # Int

C、63 62 57バイト

s,t;c(char*x){for(;*x;s+=t<4?t?2-t:s:-s>>1)t=*x++%6;s=s;}

ワンドボックス

05AB1E、20バイト

修正してくれたエニグマに感謝-/-bugます！

整数除算ではなかった場合の16バイトの場合：Î"+-*/""><·;"‡.V。

Î…+-*"><·"‡'/"2÷":.V

説明：

Î                      # Push 0, which is our starting variable, and input
 …+-*                  # Push the string "+-*"
     "><·"             # Push the string "><·"
          ‡            # Transliterate. The following changes:
                           "+" -> ">"
                           "-" -> "<"
                           "*" -> "·"
           '/"2÷":     # Replace "/" by "2÷"
                  .V   # Evaluate the code as 05AB1E code...
                           '>' is increment by 1
                           '<' is decrement by 1
                           '·' is multiply by 2
                           '2÷' is integer divide by two
                       # Implicitly output the result

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

JavaScriptのES6、80の 68バイト

k=>[...k].reduce((c,o)=>+{"+":c+1,"-":c-1,"*":c*2,"/":c/2|0}‌​[o],0)

ニールのおかげでなんと12バイト節約できました！

ルビー、48 44 42 + 1 = 43バイト

-nフラグ用に+1バイト。STDINで入力を受け取ります。

i=0
gsub(/./){i=i.send$&,"+-"[$&]?1:2}
p i

ideoneでご覧ください（$_ideoneはコマンドラインフラグを使用しないため、使用します）：http ://ideone.com/3udQ3H

PHP 76バイト

for(;$c=$argv[1][$n++];)eval('$s=floor($s'.$c.(2-ord($c)%11%3).');');echo$s;

パイソン2、58の 56バイト

@Lynnのおかげで-2バイト

r=0
for c in input():exec'r=r'+c+`2-ord(c)%11%3`
print r

文字の序数が+-*/ある43,45,42,47これらはモジュロ11 10,1,9,3たものであるモジュロ3 1,1,0,0、2より少ないものをしている1,1,2,2：私たちは、各操作のために必要な量を与えr=r+1、r=r-1、r=r*2、およびr=r/2

前：

r=0
for c in input():exec'r=r'+c+`(ord(c)%5==2)+1`
print r

Mathematica、83 73 70バイト

^{@MartinEnderにより10バイト節約。}

(#/*##2&@@#/.Thread[{"+","-","*","/"}->{#+1&,#-1&,2#&,⌊#/2⌋&}])@0&

匿名関数。入力として文字のリストを受け取り、出力として数値を返します。ゴルフの提案を歓迎します。

SILOS、175 164バイト

loadLine
a=256
o=get a
lbla
a+1
o-42
p=o
p-1
p/p
p-1
r-p
s=o
s-3
s/s
s-1
r+s
m=o
m/m
m-2
m|
r*m
t=r
t%2
d=o
d-5
d/d
d-1
t*d
d-1
d|
r-t
r/d
o=get a
if o a
printInt r

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

正しい入力方法。整数除算を修正します（-infinityに向かって丸めます）。

C＃、87 81バイト

int f(string s){int i=0;foreach(var c in s)i=c<43?i*2:c<46?i+44-c:i>>1;return i;}

ゴルフをしていない：

int f(string s)
{
    int i = 0;

    foreach (var c in s)
        i = c < 43 ? i * 2
          : c < 46 ? i + 44 - c
          : i >> 1;

    return i;
}

入力は有効であると想定されます。通常の除算は常にゼロに丸められ、ビットシフトは常に切り捨てられるため、2による除算は右に1ビットシフトすることによって行われます。インクリメントとデクリメントはのためのASCIIコード間の1つの距離の便利な使用を作る+と-。

Javascript（ES6）、57バイト（配列）/ 60バイト（整数）

すべての中間結果の配列を返す：

o=>[...o].map(c=>x=[x>>1,x+1,x*2,x-1][eval(2+c+3)&3],x=0)

たとえば、の出力はに"++**--/"なります[1, 2, 4, 8, 7, 6, 3]。

最終結果のみを返す：

o=>[...o].reduce((x,c)=>[x>>1,x+1,x*2,x-1][eval(2+c+3)&3],0)

使い方

どちらのソリューションも同じ考え方に基づいています。完全なハッシュ関数eval(2+c+3)&3を使用して、異なる演算子文字をにマップcし[0, 3]ます。

 operator | eval(2+c+3)  | eval(2+c+3)&3
----------+--------------+---------------
    +     |  2+3 = 5     |    5 & 3 = 1
    -     |  2-3 = -1    |   -1 & 3 = 3
    *     |  2*3 = 6     |    6 & 3 = 2
    /     |  2/3 ~= 0.67 | 0.67 & 3 = 0

JavaScript（ES6）、57

a=>[...a].map(c=>a=c<'+'?a<<1:c<'-'?-~a:c<'/'?~-a:a>>1)|a

注：アキュムレーターの初期値はプログラム文字列で、ビット操作（〜、>>、<<、|）を使用して、最初の使用時に0に変換されます。

サイドノートとして、@ xnorの賢い答えは、javascriptに移植された40を獲得します。

a=>[...a].map(c=>a=eval(~~a+c+2))&&a>>1

（これが好きなら、彼に投票してください）

テスト

f=a=>[...a].map(c=>a=c<'+'?a<<1:c<'-'?-~a:c<'/'?~-a:a>>1)|a

function update() {
  O.textContent = f(I.value);
}

update()

<input value='++**--/' id=I oninput='update()'><pre id=O></pre>

Java、77バイト

int f(String s){return s.chars().reduce(0,(r,c)->c<43?r*2:c<46?r+44-c:r>>1);}

Java 8ストリームを使用します。

GNU sed, 65 59 57 bytes

Edit: 2 bytes shorter thanks to Toby Speight's comments

s/[+-]/1&/g
s/*/2&/g
s:/:d0>@2&:g
s/.*/dc -e"0[1-]s@&p"/e

Run:

sed -f simple_calculator.sed <<< "*///*-*+-+"

Output:

-1

The sed script prepares the input for the dc shell call at the end, the latter accepting the input in Reverse Polish notation. On division, if the number is negative (d0>), the [1-] decrement command stored in register @ is called. Conversion example: + - * / --> 1+ 1- 2* d0>@2/.

PHP, 75 bytes

This uses a modified version of Jörg Hülsermann's answer.

eval(preg_replace('~.~','$s=($s\0(2-ord("\0")%11%3))|0;',$argv[1]));echo$s;

It heavily relies on string substitution, using a simple regular expression (~.~).

The variable $s is re-assigned with the new value for each character. At the end, it outputs the result.

Try it here:

if('\0' == "\0")
{
	$argv = Array($s = 0, prompt());
	function preg_replace($pattern, $replacement, $subject)
	{
		$regexp = new RegExp($pattern.replace(new RegExp('~', 'g'), ''), 'g');
		return $subject.replace($regexp, $replacement.split('\0').join('$&'));
	}
	
	function printf($string)
	{
		console.log($string);
	}
	
	function ord($chr)
	{
		return $chr.charCodeAt(0);
	}
}
else
{
    if(!isset($argv))
    {
        $argv = array('', '++*+');
    }
}

eval(preg_replace('~.~','$s=($s\0(2-ord("\0")%11%3))|0;',$argv[1]));printf($s);

Or try on: http://sandbox.onlinephpfunctions.com/code/7d2adc2a500268c011222d8d953d9b837f2312aa

Differences:

• Instead of echo$s, I'm using sprintf($s). Both perform the same action on numbers. Since this is just for testing, it is fine.
• In case there's no passed argument, it will run as if you passed ++*+ as the first argument, which should show 5.

Batch, 61 bytes

@set n=
@for %%a in (%*)do @set/an=n%%a2^&-2
@cmd/cset/an/2

Translation of @xnor's xcellent Python answer.

Pyke, 24 22 bytes

\*\}:\/\e:\+\h:\-\t:0E

Try it here!

Or 12 bytes (noncompetitive)

~:"ht}e".:0E

Try it here!

Add translate node - basically multiple find and replace.

~:           -   "+-*/"
        .:   -  input.translate(^, V)
  "ht}e"     -   "ht}e"
          0E - eval(^, stack=0)

PHP, 104 102 82 bytes

First version with eval:

$i=0;while($c<9999)eval('$i'.['+'=>'++','-'=>'--','*'=>'*=2','/'=>'>>=1'][$argv[1]{$c++}].';');echo$i;

Second version with ternary operators:

while($o=ord($argv[1]{$c++}))$i=$o<43?$i*2:($o<44?$i+1:($o<46?$i-1:$i>>1));echo$i;

Takes the input string as first argument from the command line.

This "only" works for input strings shorter than 10,000 characters - which should be plenty. Tested with all the test cases, unfortunately can't save on the initialization in the beginning. Second version works with strings of any length and without initialization. :-)

The main element is the eval function which manipulates $i based on a map of arithmetic operations, which are pretty straightforward except for the division. PHP returns a float when using / and intdiv is too many bytes, so we do a right-shift.

Updates

1. Saved 2 bytes by shortening $i=$i>>1 to $i>>=1 for integer division.
2. Threw out eval in favor of ternary operators.

Python 3, 98 66 60 bytes

Thanks Tukkax!

Not as golfy as the other answer, but I can't compete with them without plagiarism.

i=0
for c in input():i+=[1,-i//2,-1,i][ord(c)%23%4]
print(i)

Also, I have a recursive lambda solution as well

73 67 bytes (improved!)

s=lambda x,z=0:s(x[1:],z+[1,-z//2,-1,z][ord(x[0])%23%4])if x else z

R, 201 bytes

Golfed

p=.Primitive;"-"="+"=function(x)p("+")(x,1);body(`-`)[[1]]=p("-");"*"="/"=function(x)p("*")(x,2);body(`/`)[[1]]=p("%/%");Reduce(function(f, ...)f(...),rev(mget(strsplit(scan(stdin(),""),"")[[1]])),0,T)

Commented

p = .Primitive                       # Redefine
"-" = "+" = function(x)p("+")(x,1)   # Define - and +
body(`-`)[[1]] = p("-")              # Change the body, what we do to save a byte
"*" = "/" = function(x)p("*")(x,2)   # Same as above
body(`/`)[[1]] = p("%/%")            # Same as above
Reduce(function(f, ...)f(...),       # Function wrapper to evaluate list of func.  
  rev(mget(strsplit(scan(stdin(),""),"")[[1]])), # Strsplit input into list of functions
  init = 0,                                      # Starting Arg = 1
  right = T)                                     # Right to left = True 

Strategy is to refine the +, -, % operators. Split the string then parse the string into a long list of functions, to be fed into Reduce()'s accumulator.

Couldn't golf it anymore. If someone can get b=body<- to work, there could be a few bytes of savings (refine every function with b after "-"="+"="/"="*"). Initially tried to substitute and parse eval, but the order of operations and parentheses were terrifying.

Lex + C, 78, 74, 73 bytes

The first character is a space.

 c;F(){yylex(c=0);return c;}
%%
\+ c++;
- c--;
\* c*=2;
\/ c=floor(c/2.);

Reads from stdin, returns result.

Compile with lex golfed.l && cc lex.yy.c main.c -lm -lfl, test main:

int main() { printf("%d\n", F()); }

Javascript (ES5), 127 bytes

function(b){for(a=c=0;a<b.length;++a)switch(b[a]){case"+":++c;break;case"-":--c;break;case"*":c*=2;break;case"/":c/=2}return c}

Ungolfed:

function c(a){
  c=0;
  for(var i=0;i<a.length;++i){
    switch(a[i]){
      case "+":++c;break;
      case "-":--c;break;
      case "*":c*=2;break;
      case "/":c/=2;break;
    }
  }
  return c;
}

Pyth, 23 bytes

FNQ=Z.v%".&%sZ2_2"N;/Z2

A full program that takes input as a string and prints the result.

This is a port of @xnor's Python answer.

Try it online

How it works

FNQ=Z.v%".&%sZ2_2"N;/Z2   Program. Input: Q. Z initialised as 0
FNQ                       For. For N in Q:
        ".&%sZ2_2"         String. Literal string ".&%sZ2_2"
       %          N        String format. Replace %s with the current operator N
           %sZ2            Operator. Yield Z*2, Z//2, Z+2, Z-2 as appropriate
         .&    _2          Bitwise and. Result of above & -2
     .v                    Evaluate. Yield the result of the expression
   =Z                      Assignment. Assign result of above to Z
                   ;      End. End for loop
                    /Z2   Integer division. Yield Z//2
                          Print. Print the above implicitly 

PHP, 79 bytes

<?$i=0;switch($_POST['a']){case"+":$i+1;case"-":$i-1;case"/":$i/2;case"*":$i*2}