古いマニュアルに触発された...

チャレンジ

私は定義^番目のサフィックスベクトルBの長さのブールリストとして、AとBの後続truthy値。

与えられ、そのプログラムまたは機能を記述し、AとBは任意の手段によって、戻り^番目のサフィックスベクトルBを任意の手段によって。

さて、これは些細なことのように思えるかもしれませんが、キャッチは次のとおりです。あなたのスコアは、バイトカウントとソリューションが機能する最初の年です。

ルール

すべての標準ルールが適用されますが、このチャレンジの後にリリースされた言語と言語バージョンも使用できます。

言語が使用するブール値の表現、たとえば1/ 0、True/ False、TRUE/ FALSE、"True"/ "False"などを使用して出力します。

リストのどんな表現言語の使用していること、例えば使用して出力0 0 1、[False,False,True]、(FALSE;FALSE;TRUE)、{"False","False","True"}、など

あなたは、と仮定してよい≥ bが常に真であると彼らは適切なデータ型であること。

テストケース

与えられた= 7、B = 3、リターン0 0 0 0 1 1 1

与えられた= 4、B = 4、リターン[True,True,True,True]

与えられた= 2、B = 0、リターン(FALSE;FALSE)

与えられた= 0と、B = 0、リターン{}

ソリューション例とスコアリング

{⌽⍺↑⍵⍴1}Dyalog APLを使用してソリューションを提出したい場合があります。これは8のバイトカウントになります。これは動的関数で、1998年にリリースされたDyalog APLのバージョン8.1から機能するため、合計スコアは2006です。提出された回答は次のようになります。

# Dyalog APL 8.1, 1998 + 8 = 2006
    {⌽⍺↑⍵⍴1}

Optional explanation...
Recommended: Link to documentation showing when the features you used were released.

最低スコアが勝ちます！

APL \ 360、1968 + 3バイト= 1971

⎕⍵⎕

リンクされた@NBZ チュートリアルの組み込み。APL \ 360は1968年まで実装されておらず、APL \ 1130のような初期のAPLにはサフィックスベクトル関数がなかったため、@ NBZが1970年のスコアを出すと言った理由はわかりません（ここの 208ページを参照）。

1970年+ 38 = 2008年

:s tuck +do 0 . loop 0 +do -1 . loop ;

使用法： 7 3 s「0 0 0 0 -1 -1 -1」を出力します

APL、1968 + 5 = 1973

5文字まで：

⌽⎕≥⍳⎕

古いバージョン：

⌽⎕↑⎕⍴1

さて、あなたは実際にすでに答えを出しました、私は動的関数定義を削除し、この定義が1968年に機能することを確認しました。参照はマニュアルです：

http://www.softwarepreservation.org/projects/apl/Books/APL360ReferenceManual

SAS、1966 + 45 = 2011

data;a=;b=;do i=1to a;c=a-i<b;put c@;end;run; 

SASが輝く時！

SASは1972年まで最初に公開されませんでしたが、このデータステップは、1966年以降の最も古いプレリリースバージョンでも使用できると確信している非常に基本的な機能のみを使用しているため、その時点で機能していました。入力はとの後に続きa=、b=出力はログに出力されます。

実際にこれを検証するための適切なバージョンのSASを備えたIBM System / 360をまだ持っている人がいたら、私は驚くでしょう！

マウス-1979、1979 + 19 = 1998

??&TUCK (0.a)0(1-.)

翻訳：Forth。

仕様は本当に私にはわかりにくいですが、これは正しいことだと思います。

TI-Basic、1990 + 21 = 2011

このプログラムが動作する最初のTI計算機は、1990年に導入されたTI-81です。

Prompt A,B:"{}
seq(I>A-B,I,1,A

編集：空のリストをサポートする必要があることに気づいた...コードを4バイト増やした

テストケース

A=?7
B=?3
{0 0 0 0 1 1 1}

A=?4
B=?4
{1 1 1 1}

A=?2
B=?0
{0 0}

A=?0
B=?0
{}   * throws an error but still returns successfully

Mathematica 1.0、1988 + 22 bytes = 2010

Array[#>m&/.m->#-#2,#]&

これが機能するかどうかはわかりませんが、10.3のドキュメントを調べて、1988年に導入された（1.0）ということを探しました。

68k TI-Basic、1995 + 25 = 2020

このプログラムが動作する最初のTI計算機は、1995年に導入されたTI-92です。

define f(a,b)=seq(x>a-b,x,1,a)

TI-83シリーズとは異なり、68k TI-Basicは空のリストをサポートします。

Python 1.0、1994 + 26 = 2020

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

Lambdaは最初のメジャーリリース1.0で導入されました

lambda a,b:[0]*(a-b)+[1]*b

MATL、2015 + 1 + 4 = 2020

:P<~

これは、2015年12月31日付のリリース6.0.0の言語（このリリースで導入された暗黙的な入力を使用）から機能します。

1おそらく異なるロケールでの@drolexコメントに従ってスコアに追加しました。

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

説明

:    % take first input implicitly. Generate inclusive range from 1 to that
P    % flip that array
<~   % take second input implicitly. True for elements of flipped array that
     % exceed second number. Display implicitly

J、1990 + 8 = 1998

|.a{.b#1

ああ この答えを研究していて、言語を理解したいと思う前に誰かがAPLに到達しました。代わりに私のJソリューションがあります。

プロローグ、1972 + 57 = 2029

a(0,_,[]).
a(A,B,[H|L]):-Z is A-1,a(Z,B,L),(Z<B,H=1;H=0).

使用法： a(7,3,L).と統合Lし[0,0,0,0,1,1,1]ます。

いつis言語に実装されたかはよくわかりません。実際に正確な日付を見つけることができるとは思いません。それはかなり基本的なビルトインですが、1972年に最初に言語が登場したときにすでに存在していたと思います。

それは本当に重要なことではありませんが、私はこの答えで勝つにはほど遠いです。

SMP、1983 + 28バイト= 2011

Map[S[$1>x,x->$1-$2],Ar[$1]]

私は...私はこの権利を得たと思う S：2.10、48ページ Ar：7.1、ページ102 Map：7.2、ページ106 $1：7.1、ページ104

そして、もしMathematicaに精通していれば、いや、そのArようには動作しません。+のようなもの。RangeSelect

Vim、1991 + 21 = 2012

"adwj<c-x>"bdw@ai0<esc>v@bhr1

入力は次のようになります。

7
3

出力は次のようになります。

0000111

説明：

"adw                            'Delete a word into register a
    j<c-x>                      'Go down a line, and decrement the next number to occur
          "bdw                  'Delete a word into register b
              @ai0<esc>         'Insert a '0' "a" times
                       v        'Enter visual mode
                        @bh     'Move "b" characters left
                           r1   'Replace the whole selection with the character '1'

B、1971 + 54 = 2025

s(l,t){while(t<l--)printn(0,8);while(t--)printn(1,8);}

このタイプのないC前駆体のマニュアルについては、「Bのユーザーリファレンス」を参照してください。

Pyth、2015 + 9 4 = 2024 2019

@FryAmTheEggmanに感謝します！

gRQE

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

説明

gRQE＃Q =後続の真理値の量
        ＃E =ベクトルの長さ
 RE＃範囲全体のマップ（E）
g Q＃d> = Q

> <>、2009 + 14 + 3 -v = 2026の場合

bそして、逆の順序でaスタックに直接提供する必要があります-v。

出力は例のようにスペースで区切られていませんが、規定されたルールに反するようには見えません。言語で使用されているように、0と1を使用してfalseとtrueを表します。

:?!;{:0(n1-}1-

?スタックからテスト値をポップするようになったため、現在のバージョンでは機能しません。

すべての機能が1日目から実装されたとは確信がありません。-vたとえば、後で商品として提供された可能性があります。週末に私の答えが正しいことを確認しようとします。

05AB1E、2016 + 9 = 2025

これは間違いなくさらにゴルフすることができますが、ここからが始まりです。コード：

-0s×1¹×«S

オンラインでお試しください！入力はb、aとして与えられます。

また、9バイト：0×1I×0ñRS。

PowerShellのV1、2006 + 28 = 2034

param($a,$b),0*($a-$b)+,1*$b

コンマ演算子を使用して配列を作成します。配列は最初からPowerShellにあります。

Mathcad、1998 + 42 = 2040

「バイト」は、個別のキーボード文字の数として解釈されます（たとえば、「for」演算子（1つのプログラミング行を含む）は、1文字のctl-shft-＃、またはプログラミングツールバーのクリック）。

上記のバイトカウントは、aおよびbの定義が合計にカウントされないと想定しています。この仮定が無効な場合、定義に4バイトを追加します。

以下に示す関数バージョンは、定義に5バイトを追加し、使用するたびにさらに3バイトを追加します（aとbの値が直接入力されると仮定）。

私のMathcadソリューションは明らかに競争相手ではなく赤ティーでプレーするはずなので、ソリューションの表を追加しました。Mathcadには空の配列がないため、代わりに空の文字列（ ""）を使用していることに注意してください。0を使用して、b> aペアを計算していない場所を示しました。

PHP、1995 + 56バイト= 2051

function s($a,$b){while($i++<$a)$v[]=$i>$a-$b;return$v;}

function s($a,$b) {
  while ($i++ < $a) $v[] = $i > $a - $b;
  return $v;
}

Javascript ES6、2015 + 46 = 2061

0と1の配列を返します

(a,b)=>Array(a-b).fill(0).concat(Array(b).fill(1))

Javascript ES6、2015 + 50 = 2065

文字列0と1文字列を返します

(a,b)=>Array(a-b+1).join(0)+Array(b+1).join(1)

Javascript、1995 + 61 = 2056

文字列0と1文字列を返します

function(a,b){return Array(a-b+1).join(0)+Array(b+1).join(1)}

k（kona）、1993 + 15 = 2008

((a-b)#0b),b#1b

b True値のリストを作成し、それを（ab）False値のリストに連結します。

R、20バイト+ 1993 = 2013

function(a,b)1:a>a-b

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

おそらくこれはSで動作する可能性があり、スコアが2008年に低下しますが、私はそれを確認することができませんでした。

SmileBASIC 3、2014 + 25 = 2039

SmileBASIC 3の最初の一般公開バージョンは、2014年11月にニンテンドー3DS用のSmileBASICアプリで日本で発売されました。

0がfalseで1がtrueである文字列を出力します（言語自体にあるため）。

INPUT A,B?"0"*(A-B)+"1"*B