私の親愛なる友人や同僚にインスパイアされ、その記念に、

ダンバロネット、1956 –2016。RIP

彼は、このタスクに対する最短のAPLソリューションを見つけました。

仕事

ブールリストを指定して、後続の真理値の数をカウントします。

事例の例

{} → 0

{0} → 0

{1} → 1

{0, 1, 1, 0, 0} → 0

{1, 1, 1, 0, 1} → 1

{1, 1, 0, 1, 1} → 2

{0, 0, 1, 1, 1} → 3

{1, 1, 1, 1, 1, 1} → 6

Dyalog APL、6 2バイト

⊥⍨

TryAPLでテストします。

使い方

⊥（uptack、dyadic：decode）はベース変換を実行します。左のオペランドがベクトルの場合、混合ベース変換を実行します。これは、このタスクに最適です。

基底ベクトルをB = Bの_N、⋯、B ₀及び桁ベクトルA = _N、⋯、₀、B⊥Aは変換混合基にB、すなわち、それは計算B ₀ ⋯B _{N-1 n} +⋯+ b ₀ b ₁ a ₂ + b ₀ a ₁ + a ₀。

ここで、⍨（チルダ分音記号、通勤）は次のように演算子を左に変更します。モナドコンテキストでは、等しい左および右引数で演算子を呼び出します。

例えば、⊥⍨として定義される⊥計算した、₀ ⋯ _N +⋯+ _{0 1 2} + _{0 1} + ₀、右から左へのすべての累積積の和。

以下のためにK末尾もの、K右端製品は1と他のすべては0それらの合計が等しくなるように、kは。

JavaScript（ES6）、21バイト

f=l=>l.pop()?f(l)+1:0

テストケース

f=l=>l.pop()?f(l)+1:0

console.log(f([])); // → 0
console.log(f([0])); // → 0
console.log(f([1])); // → 1
console.log(f([0, 1, 1, 0, 0])); // → 0
console.log(f([1, 1, 1, 0, 1])); // → 1
console.log(f([1, 1, 0, 1, 1])); // → 2
console.log(f([0, 0, 1, 1, 1])); // → 3
console.log(f([1, 1, 1, 1, 1, 1])); // → 6

ゼリー、4バイト

ŒrṪP

オンラインでお試しください！またはすべてのテストケースを検証します。

リストが空の場合、奇妙な観察がいくつかあります。最初に、空のリストをランレングスエンコードすると、[]別の空のリストが返されます[]。次に、末尾を使用して最後の要素を取得すると、ランレングスエンコードされた配列の通常の要素であるペアの代わりにtail Ṫが返されます。その後、製品は、呼び出されたときに期待される結果を返します。0[value, count]P00

説明

ŒrṪP  Main link. Input: list M
Œr    Run-length encode
  Ṫ   Tail, get the last value
   P  Product, multiply the values together

Brachylog、7 6 5バイト

@]#=+

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

説明

@]        A suffix of the Input...
  #=      ...whose elements are all equal
    +     Sum its elements

以来@] - Suffixずっと、最大最小のものへの最大の接尾辞から始まり、それは最初の最長があります。

CJam（8バイト）

{W%0+0#}

オンラインテストスイート

解剖

{    e# begin a block
  W%  e# reverse the array
  0+  e# append 0 so there's something to find
  0#  e# find index of first 0, which is number of nonzeros before it
}

Haskell、26 25バイト

a%b|b=1+a|0<3=0
foldl(%)0

使用法：

Prelude> foldl(%)0 [True,False,True,True]
2

ポイントフリーバージョン（26バイト）：

length.fst.span id.reverse

boolリストの代わりに整数リストを使用（21バイト、Christian Sieversに感謝）：

a%b=b*(a+1)
foldl(%)0

使用法：

Prelude> foldl(%)0 [1,0,1,1]
2

ポイントフリーバージョン（25バイト）

sum.fst.span(==1).reverse

網膜、7 5バイト

r`1\G

オンラインでお試しください！（最初の行は、改行で区切られたテストスイートを有効にします。）

Retinaの入力形式の定義は、完全に明確ではありません。Retinaには文字列以外の型の概念がないため（また、真実と偽りの通常の定義に使用できる値もありません）、私は通常、0および1（または一般的に肯定的なもの）を使用して、真実と偽りに対応しますそれぞれゼロまたはいくつかの一致。

単一文字表現では、リストの区切り文字も必要ありません（ある意味、文字列のみを含む言語のリスト表現のほうが自然です）。Adámは、これが受け入れ可能な入力形式であることを確認しました。

正規表現自体に関しては、rightから左に\G一致し、各一致を前の一致にアンカーします。したがって、これは1文字列の末尾から何個のsを照合できるかをカウントします。

05AB1E、12 10 6 5バイト

carusocomputingのおかげで1バイト節約されました。

Î0¡¤g

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

説明

Î      # push 0 and input
 0¡    # split on 0
   ¤   # take last item in list
    g  # get length

Python、31バイト

lambda a:(a[::-1]+[0]).index(0)

ゼリー、4 バイト

ṣ0ṪL

TryItOnline！、またはすべてのテスト

どうやって？

ṣ0ṪL - Main link: booleanList
ṣ0   - split on occurrences of 0 ([] -> [[]]; [0] -> [[],[]]; [1] -> [[1]]; ...)
  Ṫ  - tail (rightmost entry)
   L - length

MATL、4バイト

PYps

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

P       % Flip
 Yp     % Cumulative product
   s    % Sum

Mathematica、25 24バイト

Fold[If[#2,#+1,0]&,0,#]&

Pyth、6バイト

x_+0Q0

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

0を追加し、最初の0のインデックスを逆にして検索します

C90（gcc）、46バイト

r;main(c,v)int**v;{while(0<--c&*v[c])r++;c=r;}

入力はコマンドライン引数（引数ごとに1つの整数）を介して行われ、出力は終了コードを介して行われます。

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

使い方

rはグローバル変数です。その型はデフォルトでintになり、グローバルであるため、値はデフォルトで0になります。

関数の引数cのデフォルトもintです。n個のブール値の配列に対して整数n + 1を保持します。mainの最初の引数は、常に実行可能ファイルのパスです。

関数の引数vはとして宣言されint**ます。vの実際のタイプはになりますがchar**、各引数の最下位ビットのみを調べて文字0（コードポイント48）と1（コードポイント49）を区別するため、リトルエンディアンでは問題になりません。マシン。

whileループはcをデクリメントし、0と比較します。いったんcが到達した0を、我々はループから抜け出すだろう。これは、配列に0が含まれていない場合にのみ必要です。

10<--cが返される限り、c ^番目のコマンドライン引数（）を取得し、ポインターの逆参照（）によって最初の文字を抽出します。私たちは、ビット単位のANDブールの取り状態が返されますので、文字（とそれに続く3ゴミバイト）のコードポイントを0に一度0が検出されたループを抜け出し、。v[c]*0<--c

コマンドライン引数であるが、残りの場合には、1、r++インクリメントRをすることによって1こうして後続の数をカウント、1「Sを。

最後に、rc=rの計算値をcに保存します。デフォルト設定では、コンパイラは割り当てを最適化して削除します。実際に命令を生成します。以来、EAXレジスタの戻り値は、このことは、所望の出力を生成します。movl %eax, -4(%rbp)ret

このコードはC99では機能しないことに注意してください。C99は、メインの最後に到達するとメインから0を返します。

k、6バイト

+/&\|:

この関数構成は、言語の読みやすい兄弟であるsum mins reversein qに変換されます。minsはローリングミニマムです。

J、9 3バイト

#.~

これは、再帰的な混合ベース変換です。これは、混合ベース変換と同じであるためです。 再び。

テストケース

   v =: #.~
   ]t =: '';0;1;0 1 1 0 0;1 1 1 0 1;1 1 0 1 1;0 0 1 1 1;1 1 1 1 1 1
++-+-+---------+---------+---------+---------+-----------+
||0|1|0 1 1 0 0|1 1 1 0 1|1 1 0 1 1|0 0 1 1 1|1 1 1 1 1 1|
++-+-+---------+---------+---------+---------+-----------+
   v&.> t
+-+-+-+-+-+-+-+-+
|0|0|1|0|1|2|3|6|
+-+-+-+-+-+-+-+-+
   (,. v&.>) t
+-----------+-+
|           |0|
+-----------+-+
|0          |0|
+-----------+-+
|1          |1|
+-----------+-+
|0 1 1 0 0  |0|
+-----------+-+
|1 1 1 0 1  |1|
+-----------+-+
|1 1 0 1 1  |2|
+-----------+-+
|0 0 1 1 1  |3|
+-----------+-+
|1 1 1 1 1 1|6|
+-----------+-+

R、40 39 25バイト

@Dasonのおかげで完全に作り直されたソリューション

sum(cumprod(rev(scan())))

stdinから入力を読み取り、ベクトルを逆にして、の最初の要素が!=0ランレングスエンコーディングの最初の長さ（rle）を出力する場合はelseを返します0。

Haskell、24バイト

foldl(\a b->sum[a+1|b])0

リストを反復処理し、要素ごとに1つずつ追加し0、にヒットした後ににリセットしFalseます。

0/1入力の16バイト：

foldl((*).(+1))0

リストが空でないことが保証されている場合、14バイトを取得できます。

sum.scanr1(*)1

これは、後ろから累積積を計算し、それらを合計します。累積積は、0がヒットするまで1のままで、その後0になります。したがって、1は後​​続の1に対応します。

パイク、10 6バイト

_0+0R@

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

C＃6、103 72バイト

using System.Linq;
int a(bool[] l)=>l.Reverse().TakeWhile(x=>x).Count();

非ジェネリックリストを使用すると、ジェネリックリストが1バイト笑います

スコットのおかげで-31バイト

Python、37バイト

f=lambda l:len(l)and-~f(l[:-1])*l[-1]

DASH、16バイト

@len mstr"1+$"#0

最短のDASHソリューションではありませんが、最短のDASHソリューションが私を悩ませています。その代わりに、この斬新なアプローチを投稿しています。

使用法：

(@len mstr"1+$"#0)"100111"

説明

@(                 #. Lambda
  len (            #. Get the length of the array after...
    mstr "1+$" #0  #. ... matching the argument with regex /1+$/
  )                #. * mstr returns an empty array for no matches
)

Scala、25バイト

l=>l.reverse:+0 indexOf 0

ゴルフをしていない：

l=>(l.reverse :+ 0).indexOf(0)

リストを逆にし、0を追加して、最初の0の前の要素数である0の最初のインデックスを見つけます

バッチ、57バイト

@set n=0
@for %%n in (%*)do @set/an=n*%%n+%%n
@echo %n%

入力をコマンドラインパラメーターとして受け取ります。加算する前に現在の値でアキュムレータを乗算することにより機能し、コマンドラインのゼロがカウントをリセットします。%%nはnor %n%変数と同じではないことに注意してください。

GolfSharp、14バイト

n=>n.V().O(F);

Java 7、62バイト

int c(boolean[]a){int r=0;for(boolean b:a)r=b?r+1:0;return r;}

未ゴルフ＆テストコード：

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

class M{
  static int c(boolean[] a){
    int r = 0;
    for (boolean b : a){
      r = b ? r+1 : 0;
    }
    return r;
  }

  public static void main(String[] a){
    System.out.print(c(new boolean[]{}) + ", ");
    System.out.print(c(new boolean[]{ false }) + ", ");
    System.out.print(c(new boolean[]{ true }) + ", ");
    System.out.print(c(new boolean[]{ false, true, true, false, false }) + ", ");
    System.out.print(c(new boolean[]{ true, true, true, false, true }) + ", ");
    System.out.print(c(new boolean[]{ true, true, false, true, true }) + ", ");
    System.out.print(c(new boolean[]{ false, false, true, true, true }) + ", ");
    System.out.print(c(new boolean[]{ true, true, true, true, true, true }));
  }
}

出力：

0, 0, 1, 0, 1, 2, 3, 6

Perl 5.10、22バイト

21バイト+ -aフラグ用の1バイト。正規表現ベースの式が行われたため...：p

配列の入力値はスペースで区切る必要があります。

$n++while pop@F;say$n

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

Perl、22バイト

21バイトのコード+ -pフラグ用の1バイト。

s/.(?=.*0)//g;$_=y;1;

実行するには：

perl -pE 's/.(?=.*0)//g;$_=y;1;' <<< "0 1 1 0 1 1 1"

（実際には、入力のフォーマットは、多くの問題ではありません：0110111、0 1 1 0 1 1 1、[0,1,1,0,1,1,1]などすべての作業でしょう）

perl -pE '/1*$/;$_=length$&' <<< '0110111'

PHP、50バイト

<?=strlen(preg_filter('/.*[^1]/','',join($argv)));

奇妙なことに、正規表現を使用した最初の試行は、配列を
使用した試行よりも短くなりました...次のように使用します。

php tt.php 1 1 0 1 1

Ruby 37 32バイト

->n{n.size-1-(n.rindex(!0)||-1)}

false値の右端のインスタンスを見つける匿名関数を作成し、その値から始まるサブ配列のサイズをカウントします。

!00はRubyの真の値であるため、falseとして使用します。rindex配列内の値の最後のインデックスを見つけます。

使用法：

boolean_list = [true, false, false, true]
->n{n.size-1-(n.rindex(!0)||-1)}[boolean_list]

1を返します

コマンドラインパラメータとして0と1の文字列を渡すことが許可された場合（ルビーがブール値のリストを表す方法ではありません）、24まで下げることができます：

$*[0]=~/(1*)\z/;p$1.size

これは、正規表現を使用し、正規表現によって返される文字列の長さを出力します。/(1*)\z/ここ\zで、文字列の末尾です。$*[0]渡される最初の引数であり、0と1の文字列です。

使用法：

trailing_truths.rb 011101

1を返します。