私が子供だったとき、私の貯金でドル札を数えたいとき、私は大声で数えたでしょう

1、2、3、4、5、6、7、8、9、10。
11、12、13、14、15、16、17、18、19、20。
21、22、23、24、25 ...

最終的に、これらの複数音節の数字の発音にうんざりしました。数学的に気にかけて、より効率的なカウント方法を作成しました。

1、2、3、4、5、6、7、8、9、10。
1、2、3、4、5、6、7、8、9、20;
1、2、3、4、5、6、7、8、9、30 ...

ご覧のとおり、前の番号から変更された数字のみを発音します。これには、数字の英語名よりもはるかに反復性が高いという利点があり、計算に必要な頭脳が少なくてすみます。

チャレンジ

正の整数を取り、それをカウントする方法を出力/返すプログラム/関数を作成します。つまり、右端のゼロ以外の数字とすべての後続ゼロです。

例

   1    1
   2    2
  10   10
  11    1
  29    9
  30   30
  99    9
 100  100
 119    9
 120   20
 200  200
 409    9
1020   20

テストケースの完全なリストは必要ないはずです。これは、OEIS上のA274206です。

ルール

• エントリは、精度とメモリの問題を無視して、理論的にはすべての正の整数で機能する必要があります。
• 入力と出力は10進数でなければなりません。
• 入力または出力を数値、文字列、または数字の配列として選択できます。
• 入力は正の整数であることが保証されています。エントリは無効な入力に対して何でもできます。

これはcode-golfであるため、バイト単位の最短コードが優先されます。

Python 2、28バイト

f=lambda n:n%10or 10*f(n/10)

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

再帰式は非常にきれいに機能します。最後の桁がゼロ以外の場合、それを出力します。そうでない場合は、最後のゼロを削除し、その出力を計算して、10を掛けます。

ゼリー、6 3 バイト

数字の10進数リストとしてI / Oを使用することにより、-3バイト。

ṫTṪ

オンラインで試す

どうやって？

ṫTṪ - Main link: listOfDigits  e.g.  [1,    0,    2,    0]  or [1,      1,    9  ]
 T  - truthy indexes                 [1,          3      ]     [1,      2,    3  ]
ṫ   - tail (vectorises)              [[1,0,2,0],  [2,0]  ]     [[1,1,9],[1,9],[9]]
  Ṫ - tail pop                                    [2,0]                       [9]

10進リストを取得できなかった場合、6バイトは次のようになります。

DµṫTṪḌ

ここで見ることができます。

これは同じことを行いますが、事前に整数を10進数リストに変換し、その後整数に戻します。

C、30 29 27バイト

これを誇りに思って、2つのCエクスプロイトを悪用してこれをゴルフします（投稿の最後で説明）。これは特にC（GCC）向けです

3）b=10;f(a){a=a%b?:b*f(a/b);}// 27バイト

2）b;f(a){b=a=a%10?:10*f(a/10);}// 29バイト

1）f(i){return i%10?:10*f(i/10);}// 30バイト

オンラインで試す（27バイトバージョン）

最初の試行（30バイト）：GCCでは、3項で値が宣言されていない場合、条件値が返されるという事実を悪用します。したがって、真の戻り値が3項演算子であるのはなぜですか。

2回目の試行（29バイト）：GCCのメモリバグを悪用します。ここで理解している限り、関数に戻り値がない場合、関数で2つ以上の変数が有意に利用されている場合、最初の引数変数の最後の設定値返されます。
   （編集：ただし、この「値の設定」は特定の方法で設定する必要があります。たとえば、変数を設定する、=または+=機能するが、設定すると%=機能しない、奇妙なことです）

3回目の試行（27バイト）：上記のメモリバグを適切に悪用するには、2番目の変数（b）を有意義に使用する必要があるため、「10」の実際の変数として使用することもできます。
   （注：私はスワップすることができるはずa=a%bでa%=b、別のバイトを保存するが、残念ながら、これはメモリバグが「作業」停留所に上記のエクスプロイトなり、私はできませんので）

網膜、7 6バイト

!`.0*$

オンラインで試す（すべてのテストケース）

入力文字列の末尾にゼロが続く数字の出力一致。必須ではありませんが、これもたまたま動作し0ます。

Cubix、18 32バイト

後でこれに時間を費やし、少し圧縮できるかどうかを確認する必要があると思います。しかし、今のところはそうです。
私はこれについて全く間違った方法で考えていたことがわかりました。これで、プロセスはmod（1,10,100,1000、...）を入力整数に増分的に適用し、ゼロでない最初の整数を出力します。もう少し退屈ですが、短いです。

!N%*I1^\.u;u@O\;;r

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

    ! N
    % *
I 1 ^ \ . u ; u
@ O \ ; ; r . .
    . .
    . .

JavaScript、21バイト

f=n=>n%10||10*f(n/10)

テストケース

f=n=>n%10||10*f(n/10)

console.log(f(1   )); //  1
console.log(f(2   )); //  2
console.log(f(10  )); //  10
console.log(f(29  )); //  9
console.log(f(99  )); //  9
console.log(f(1020)); //  20

Javascript 19 18バイト

1バイトのゴルフをするETHproductionsと2バイトのゴルフをするPatrick Robertsに感謝します

x=>x.match`.0*$`

入力文字列の末尾にある正規表現に一致する文字列の配列を返します。任意の文字の後に最大数のゼロが続きます。

オンラインで試す

Bash + coreutils、12

grep -o .0*$

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

グライム、5バイト

d\0*e

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

説明

       Find the longest substring of the input matching this pattern:
d      a digit, then
 \0*   zero or more 0s, then
    e  edge of input (which is handled as an Nx1 rectangle of characters).

Brachylog、2バイト

a₁

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

a₁整数の接尾辞builtin は、次のように実装されます。

brachylog_adfix('integer':1, 'integer':0, 'integer':0).
brachylog_adfix('integer':1, 'integer':I, 'integer':P) :-
    H #\= 0,
    H2 #\= 0,
    abs(P) #=< abs(I),
    integer_value('integer':Sign:[H|T], I),
    integer_value('integer':Sign:[H2|T2], P),
    brachylog_adfix('integer':1, [H|T], [H2|T2]).

Brachylogは、整数を数字のリストとして扱うことができることを好み、そのためにカスタムユーティリティpredicateを使用しますinteger_value/2。ここで興味深いのinteger_value/2は、先行ゼロ付きの数字リストを正しく変換できる必要があるため、整数を先行ゼロ付きの数字リストに変換できるようになるため、それを望まない述語（ほとんどの場合、特にのようなnondetの場合a）は、数字リストの先頭が0になることを禁止します。したがって、a₁リストと文字列に対して最初に最短のサフィックスを生成しますが、重複の除去に加えて、生成された最初の接尾辞が、最後にゼロが付いた右端のゼロ以外の数字であることも意味します。

Brain-Flak、74バイト

{({}<>)<>}(()){{}<>(({}<>)[((((()()()){}){}){}){}]<(())>){((<{}{}>))}{}}{}

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

最後の0以外とすべての後続の0のみを出力します。

説明：

{({}<>)<>}                    # Move everything to the other stack (reverse the input)
(())                          # Push a 1 to get started
{                             # do...
  {}<>                        #   pop the result of the equals check (or initial 1)
  (                           #   push...
    ({}<>)                    #     the top value from the other stack (also put this on the stack)
    [((((()()()){}){}){}){}]  #     minus the ASCII value of 0
    <(())>                    #     on top of a 1
  )                           #   close the push   
  {                           #   if not zero (ie. if not equal)
    ((<{}{}>))                #     replace the 1 from 3 lines back with a 0
  }{}                         #   end if and pop the extra 0
}                             # while the copied value != "0"
{}                            # pop the result of the equals check

Vim、19バイト

2つのバージョン、両方とも19バイト：

:s/\v.*([^0]0*)/\1
:s/.*\([^0]0*\)/\1

さらに、それぞれの末尾に改行があります。

すべてのテストケースをオンラインで確認してください！（複数行でテストするために1バイトが追加されました）

TI-Basic、18バイト

If fPart(.1Ans
Return
Ans.1
prgmA
10Ans

R、33バイト

名前のない関数として実装

function(x)rle(x%%10^(0:99))$v[2]

これは、10 ^ 0から10 ^ 99のmodを適用します。 rle2番目の項目が常に必要な結果になるように、結果を減らすために使用されます。
オンラインでお試しください！

Zsh、18 16バイト

<<<${(M)1%[^0]*}

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

Bash、25バイト

r=${1%[^0]*}
echo ${1#$r}

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

シェルは、正規表現を使用するために外部プログラムを呼び出す必要があるため、グロビングに対処する必要があります。

の ${1%[^0]*}拡張はゼロ以外の文字で始まる最短サフィックスと一致し、それを削除します。

• Zshで、追加 (M)フラグをと、一致したサフィックスが削除される代わりに保持されます。
• Bashでは、${1% }展開により、残っているものはすべてプレフィックスとして削除されます。

GNU sed、17 14 + 1（rフラグ）= 15バイト

編集：ライリーのおかげで2バイト少ない

s:.*([^0]):\1:

これは、右端のゼロ以外の数字まですべてを削除することによって機能し、既存の後続ゼロとともに印刷されます。このスクリプトは、1回の実行で複数のテストを個別の行で処理できます。

オンラインでお試しください！（すべてのテスト例）

Mathematica、26バイト

数字のリストを取り、数字のリストを出力する純粋な関数：

#/.{___,x_,y:0...}:>{x,y}&

説明

#                           First argument
 /.                           Replace
   {                              start of list followed by
    ___,                          zero or more elements followed by
        x_,                       an element (referred to later as x) followed by
           y:0...                 a sequence of zero or more 0s (referred to later as y) followed by
                 }                end of list
                  :>            with
                    {x,y}         {x,y}
                         &   End of function.

これは、の左端の一致を検出するためxに機能します。これは、リストの右端のゼロ以外の要素である必要があります0。

Java 8、47バイト

これは、に割り当て可能なラムダ式IntUnaryOperatorです。

x->{int m=1;for(;x%m<1;m*=10);return x%m*m/10;}

説明：mが10になるまでx%m0になり return x%m*m/10ます。mは目的の結果よりも1桁大きいため、除算が必要です。

Perl 6、10バイト

{+m/.0*$/}

簡単な正規表現ソリューション。数値を入力および出力します。

MATL、10 7バイト

@Bのおかげで3バイト節約されました。メタ！

tfX>Jh)

入力と出力は数字の配列です。

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

または、すべてのテストケースを確認します。

説明

t     % Input string implicitly. Duplicate
f     % Push indices of non-zero digits
X>    % Keep maximum, say k
Jh    % Attach 1j to give [k, 1j]. This is interpreted as an index "k:end"
)     % Index into original string. Display implcitly

C＃、30 28バイト

このJavaScriptの回答に基づいて、すべてのクレジットが彼に渡されると思います。

ゴルフ

i=a=>a%10<1?10*i(a/10):a%10;

• エミグナのおかげで()周りを削除して-2バイトa

J、27バイト

10&|`(10*(p%&10))@.(0=10&|)

それはxnorの式に基づいているため、彼の功績です。

Kotlin、49バイト

ラムダ、に割り当て可能 (List<Int>) -> List<Int>

{a->a.slice(a.indexOfLast{it in 1..9}..a.size-1)}

• 暗黙のパラメータ名itでindexOfLast
• .. 建物の範囲用

Perl 5、12バイト

11、プラス1の-nE代わりに-e

say/(.0*$)/

05AB1E、9バイト

RD0Ê1k>£R

オンラインでお試しください！ またはテストスイートとして

説明

R          # reverse input
 D         # duplicate
  0Ê       # check each for inequality with 0
    1k     # get the index of the first 1
      >    # increment
       £   # take that many digits from the input
        R  # reverse

Japt、6バイト

f".0*$

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

スタックス、5 バイト

æΩ$3╚

実行してデバッグする

手順：

1. 「多重度」を10で計算します（10が入力を均等に分割する回数です）
2. 追加1。
3. （文字列としての入力）の右側からその数の文字を保持します。

05AB1E、4 バイト

ĀÅ¡θ

数字のリストとしてのI / O。

オンラインそれを試してみたり、すべてのテストケースを検証（テストスイートが含まれている読みやすくするために参加）。

説明：

Ā     # Python-style truthify each digit in the (implicit) input-list (0 if 0; 1 if [1-9])
      #  i.e. [9,0,4,0,3,0,0] → [1,0,1,0,1,0,0]
 Å¡   # Split the (implicit) input-list on truthy values (1s)
      #  i.e. [9,0,4,0,3,0,0] and [1,0,1,0,1,0,0] → [[],[9,0],[4,0],[3,0,0]]
   θ  # And only leave the last inner list
      #  i.e. [[],[9,0],[4,0],[3,0,0]] → [3,0,0]
      # (after which it is output implicitly as result)

Pyke、13 11 10バイト

`1QY0mN%e>

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

  QY       -     digits(input)
    0mN    -    map(^, i != 0)
 1     %   -   indecies(^, i == 1)
        e  -  ^[-1]
`        > - str(input)[^:]

11バイト：

`D\0mN1R%e>

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

13バイト：

`D\0mN_1R@_t>

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

Haskell 57バイト

f(x:s)a|x=='0'=f s$'0':a|1>0=x:a
t x=f(reverse.show$x)[]

Input    -> Output
t 120    -> "20"
t 30200  -> "200"