文字列を入力として受け取り、文字列内のすべての数字の加算/減算を実行し、それらの演算の合計を結果として出力します。

ルール

• 文字列の数字は左から右に読み取られます
• 数字（n）が奇数の場合、次の数字（n + n1）で加算を実行します
• 数字（n）が偶数の場合、次の数字（n-n1）で減算を実行します
• 文字列の最後の数字に達した場合は、文字列の最初の数字で操作を実行します
• 出力は、結果のすべての値の合計になります
• 文字列に1桁しかない場合は、それ自体で操作を実行します（n + nまたはnn）
• 文字列に数字がない場合、出力は0

例

Input: r5e6o9mm!/3708dvc    
Process: (5+6) + (6-9) + (9+3) + (3+7) + (7+0) + (0-8) + (8-5)
Output: 32

ノート

• 機能または完全なプログラムのいずれかが受け入れられます
• 最大入力長は、文字列入力の言語の制限に依存します
• 文字入力に制限はありませんが、半角数字のみが出力にカウントされます
• 最少バイト数が勝つ

ゼリー、17 15 12バイト

fØDV€ḂT‘ịƲSḤ

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

テストケースを試してください。

プログラムは、奇数の数字に続く数字のみを保持し、合計の2倍を計算します。

fØDV€ḂT‘ịƲSḤ   
f                   Remove anything that isn't...
 ØD                 a digit.
   V€               Cast each digit to an integer
         Ʋ          Monad:
     Ḃ              Parity of each digit.
      T             Indices of truthy elements (odd digits).
       ‘            Increment.
        ị           Index into list of digits.
                    Wraps to beginning and if there are no digits this returns 0.
          S         Sum.
           Ḥ        Double.

K（oK）、47 43 40 31バイト

解決：

{+/(1_x,*x)*2*2!x^:(x-:48)^!10}

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

説明：

数値ではない文字列からすべてを削除し（変換中も）、2を法として、2を乗算し、xを1回転させて乗算し、合計します。

{+/(1_x,*x)*2*2!x^:(x-:48)^!10} / solution
{                             } / lambda taking implicit x
                           !10  / range 0..10
                          ^     / except
                   (     )      / do this together
                    x-:48       / subtract 48 from x (type fudging char ascii value -> ints), save back into x
                x^:             / x except right, and save back to x
              2!                / modulo 2
            2*                  / multiply by 2
           *                    / multiply by
   (      )                     / do this together
        *x                      / first element of x
       ,                        / append to
      x                         / x
    1_                          / drop first (ie rotate everything by 1)
 +/                             / sum, add (+) over (/)

素朴な解決策：

数値ではない文字列からすべてを削除し（変換も行います）、2アイテムのスライディングウィンドウを使用して、それらが奇数か偶数かを判断し、必要に応じて加算/減算を適用し、合計します。

{+/((-;+)2!x).'2':(1+#x)#x^:(x-:48)^!10}

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

ノート：

• 入力をよりスマートにフィルタリングする方法により、@ ngnのおかげで-4バイト
• 形状変更ではなくスライディングウィンドウを使用して-3バイト
• -9バイトの ngnのソリューションの移植（非単純なアプローチ）

Python 2、86バイト

k=[int(a)for a in input()if'/'<a<':']
print sum(a-(-1)**a*b for a,b in zip(k,k[1:]+k))

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

Perl 6、41バイト

{2*sum rotate($!=.comb(/\d/))Z*(@$! X%2)}

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

DylnanのJelly answerと同じロジックを使用します。これは、奇数に続く数字のみを合計し、2を掛けます。

Powershell、80 78 76バイト

($d="$args"-split'\D*'-ne'')+$d[0]|?{$p-match'[13579]';$p=$_}|%{$s+=2*$_};$s

-2バイト、Reilソリューション付きNeilに感謝

-2バイト、AdmBorkBorkに感謝

テストスクリプト：

$f = {
($d="$args"-split'\D*'-ne'')+$d[0]|?{$p-match'[13579]';$p=$_}|%{$s+=2*$_};$s
}

&$f 'r5e6o9mm!/3708dvc'

説明

まず、前の数字が奇数の場合は2 * nを追加し、前の数字が偶数の場合は0を追加する必要があります。

($d="$args"-split'\D*'-ne'')+ # let $d is array contains digits only, each element is a digit
$d[0]|                        # apend first digit to the end of the array
?{                            # where for each digit
    $p-match'[13579]'         # predicate is 'previous digit is odd' (it is false on the first iteration because $p is null)
    $p=$_                     # let previous digit is current
}|
%{                            # for each digit matched to the predicate
    $s+=2*$_                  # add current digit multiply 2 to $s. 
}
$s                            # return sum

追加、99バイト

@Neilに触発されました。「前の数字が奇数」のみの正規表現一致数字。Matchesは自動変数です。

param($d)$d+($d-match'\d')+$Matches[0]|sls '(?<=[13579]\D*)\d'-a|%{$_.Matches.Value|%{$s+=2*$_}};$s

MATL、18 17バイト

t4Y2m)!Ut1YSof)sE

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

（Luis Mendo / Giuseppe / bothのおかげで1バイト！）

説明：

     % Implicit input
 t   % duplicate input
     % stack: ['r5e6o9mm!/3708dvc' 'r5e6o9mm!/3708dvc']
 4Y2 % push inbuilt literal, characters '0':'9'
     % stack: ['r5e6o9mm!/3708dvc' 'r5e6o9mm!/3708dvc' '0123456789']
 m)  % extract only characters from input that belong to '0':'9'
     % stack: ['5693708']
 !U  % transpose and convert each value from string to number
     % stack: [5 6 9 3 7 0 8]
 t   % duplicate that
 1YS % circular shift by 1
     % stack: [[5 6 9 3 7 0 8] [8 5 6 9 3 7 0]]
 o   % parity check - 1 for odd, 0 for even
     % stack: [[5 6 9 3 7 0 8] [0 1 0 1 1 1 0]]
 f   % find non-zero value indices in last array
     % stack: [[5 6 9 3 7 0 8] [2 4 5 6]]
 )   % index at those places in the first array
 s   % sum
 E   % multiply by 2
     % (implicit) convert to string and display

基本的な考え方は、偶数に続く数字は無視でき、奇数に続く数字は2倍になり、最終結果はそれらの2倍にされた値の合計になるということです。

fパリティチェックoが必要になるとは思いませんでしたが、何らかの理由でMATLは0から1のo配列を論理配列として認識せず、代わりにそれらを数値インデックスおよびインデックスとして位置1およびに取り込みますend。

K（ngn / k）、33バイト

{+/(1_x,*x)*2*2!x:-48+x^x^,/$!10}

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

{ } 引数付きの関数です x

!10 リストです 0 1 ... 9

$ 文字列に変換する

,/ 連結する

x^x右側にないものを意味します

x^x^x右側のものと交差することを意味します。つまり、数字のみを保持しますx

-48+減算48、これはASCIIコードです"0"

x: に割り当てます x

2! mod 2

2* 2倍

1_x,*xの1つのドロップ：xの最初のx; すなわちx、1ステップ左に回転します

+/ 和

Japt（v2.0a0）、25 19バイト

^{Shaggyのおかげで-6バイト。}

kè\D
íÈ°*2*Y°u}Ué)x

ここで試してみてください。

今回は数字なしで動作します！入力は文字のリストです。

05AB1E、12 9バイト

Dylnanのパリティトリックを利用して、単純な方法で1バイト
節約します。Xcoder氏のおかげで3バイト節約できました。

þDÁ€ÉÏSO·

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

説明

þ              # push only digits of input
 D             # duplicate
  Á            # rotate right
   ۃ          # get the parity of each
     Ï         # keep only true items
      SO       # calculate digit-sum
        ·      # double

網膜、37バイト

(\d).*
$&$1
L$`(?<=[13579]\D*).
2**
_

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

(\d).*
$&$1

最初の数字の複製を追加します。

L$`(?<=[13579]\D*).

最初の前の数字が奇数であるものに一致します。

2**

すべての一致を単項に変換し、それらを2倍にします。（非数字はゼロとして扱われます。）

_

合計を取ります。一致がなかった場合、必要に応じてゼロが生成されます。

Retina 0.8.2でできることは44バイトでした。

[^\d]

(.).*
$&$1
(?<![13579]).

.
$*
.
..
.

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

[^\d]

数字以外を削除します。

(.).*
$&$1

最初の数字のコピーを追加します。

(?<![13579]).

奇数の数字に続かない数字を削除します。

.
$*

単項に変換します。

.
..

それらを倍増します。

.

合計を取ります。

ゼリー、15バイト

fØDV€1ịṭƊ+_Ḃ?ƝS

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

JavaScript（ES6）、56バイト

入力を文字の配列として受け取ります。

s=>s.map(c=>1/c?r+=p*(p=c*2&2,n=n||c,c):0,n=p=r=0)|r+p*n

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

コメント済み

s =>                     // given the input array s[]
  s.map(c =>             // for each character c in s[]:
    1 / c ?              //   if c is a digit:
      r +=               //     update r:
        p * (            //       p = either 0 or 2 (always 0 on the 1st iteration)
          p = c * 2 & 2, //       p = 0 if c is even, 2 if c is odd
          n = n || c,    //       if n is still equal to 0 (as an integer), set it to c
          c              //       compute p * c
        )                //     add the result to r
    :                    //   else:
      0,                 //     do nothing
    n = p = r = 0        //   n = first digit, p = previous digit, r = result
  )                      // end of map()
  | r + p * n            // compute the last operation with the 1st digit and add it to r

JavaScript（Node.js）、85 84 83 82バイト

ovsにより-1バイト

s=>(s.match(/\d/g)||[]).reduce((r,n,i,a)=>r+(+n)+a[a[++i]!=null?i:0]*-(1-n%2*2),0)

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

文字列の入力を取得し、数字を文字の配列として検索するか、見つからない場合は空の配列を返し、型強制を使用して値が正しく加算/減算されるようにします。前方参照はインデックスを事前にインクリメントし、簡潔さのためにnullチェックを使用し、最後の部分は数値が奇数か偶数かをチェックしてから、加算または減算を強制します（+および-は-など）

R、58バイト

function(x,y=strtoi(x[x%in%0:9]))sum(c(y[-1],y[1])*y%%2*2)

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

• Dylnanのパリティトリックを使用する
• 文字列の代わりに文字のベクトルを受け入れる-8バイト
• @Giuseppeのおかげで3バイト

Perl 5、48バイト

$;=$;[++$-%@;],$\+=$_%2?$_+$;:$_-$;for@;=/\d/g}{

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

私はこれがいかに不可解であるかを非常に気に入っていますが、文字列内のすべての数字を巡る非常に単純なループです。

ジュリア0.6、77の 69バイト

s->(s=s.-'0';s=s[0.<=s.<=9];endof(s)>0?sum(2(s%2).*[s[2:end];s[]]):0)

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

C Sharp 180バイト

これはあまり良いゴルフではありません、笑。

s=>{var q=new Queue<int>(s.Where(Char.IsNumber).Select(n=>n-48));q.Enqueue(q.First());int t,o=0;o=q.Dequeue();try{while(true){t+=o+(o%2==0?-1:1)*(o=q.Dequeue());}}catch{return t;}}

アンゴルフド：

var q = new Queue<int>(s.Where(Char.IsNumber).Select(n=>n-48));
int t,o=0;

q.Enqueue(q.First());    
o=q.Dequeue();

try{
    while(true){
        t += o + (o%2==0?-1:1) * (o=q.Dequeue());
    }
}
catch {
    return t;
}

スタックス、14 バイト

ÿ←«4é■≥B▬ê→█T♥

実行してデバッグする

開梱されていない、コメントされていない、これはこんな感じです。

Vd|&    filter out non-digits
c|(\    zip into pairs after rotating right
F       for each digit pair
  B2%s  first-of-pair % 2, then swap top two stack elements
  eH*   eval digit as integer, double, then multiply
  +     add to running total

これを実行する

JavaScript（ES6）、52バイト

s=>s.filter(t=>1/t&&~(a+=u*t,u=t%2),a=u=0)[0]*u+a<<1

入力を文字の配列として期待します。警告：ビットシフトの使用により、出力の上限は2^31-1

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

説明

奇数の値に続く数字の合計を本質的に2倍にします。

s => s.filter(             // filter to preserve the first digit
    t =>
        1/t &&             // short-circuits if NaN
        ~(                 // coerce to truthy value
            a += u * t,    // adds value only if previous digit is odd
            u = t%2        // store parity of current digit
        ),
    a = u = 0
)[0]                       // first digit
* u + a
<< 1                       // bit-shift to multiply by 2 (also coerces a NaN resulting from a string devoid of digits to 0)