受到旧手册的启发...

挑战

我定义了一个^个后缀矢量的b为长度的布尔列表一个与b尾随truthy值。

写一个程序或功能，给定一个和b通过任何手段，则返回一^次的后缀向量b通过任何手段。

现在看似微不足道，但要注意的是：您的分数是字节数加上解决方案可以使用的最早年份。

规则

所有标准规则均适用，但也可以使用在挑战后发布的语言和语言版本。

使用您的语言使用的布尔值的任何表示形式进行输出，例如1/ 0，True/ False，TRUE/ FALSE，"True"/ "False"等。

使用列表，你的语言使用，例如任何代表输出0 0 1，[False,False,True]，(FALSE;FALSE;TRUE)，{"False","False","True"}，等。

你可以假设一个 ≥ b始终是真实的，他们是合适的数据类型。

测试用例

给定a = 7和b = 3，返回0 0 0 0 1 1 1

给定a = 4和b = 4，返回[True,True,True,True]

给定a = 2和b = 0，返回(FALSE;FALSE)

给定a = 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 教程的内置链接。我不知道为什么@NBZ表示它将获得1970年的收益，因为APL \ 360直到1968年才实施，而更早的APL（例如APL \ 1130）没有后缀矢量功能（请参见此处的第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/APL360参考手册

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字节= 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就不会那样做。更喜欢Range+ Select。

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-

It doesn't work with the current version since ? now pops its test value from the stack.

I'm not confident every feature was implemented from day 1, -v for example could have been provided later as a commodity. I'll try to make sure my answer is correct this weekend.

05AB1E, 2016 + 9 = 2025

This can definitely be golfed further, but here's a start :p. Code:

-0s×1¹×«S

Try it online! The input is given as b, a.

Also 9 bytes: 0×1I×0ñRS.

PowerShell v1, 2006 + 28 = 2034

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

Uses the comma operator to construct the array(s), which has been in PowerShell since the beginning.

Mathcad, 1998 + 42 = 2040

"bytes" are interpreted as number of distinct keyboard characters (eg, 'for' operator (including one programming line) is a single character ctl-shft-#, or a click on the Programming toolbar)).

The above byte count assumes that the a and b definitions don't count towards the total; add 4 bytes for definitions if this assumption is invalid.

The function version shown below adds 5 bytes for the definition and a further 3 bytes for each use (assuming the a and b values are directly typed in).

As my Mathcad solution should clearly be playing off the red tees and not the competition ones, I've added a table of solutions. Note that as Mathcad has no empty array, I've used an empty string ("") instead; I've used 0 to indicate where I haven't calculated the b>a pairs.

PHP, 1995 + 56 bytes = 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

Returns array of 0 and 1

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

Javascript ES6, 2015 + 50 = 2065

Returns a string of 0 and 1 chars

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

Javascript, 1995 + 61 = 2056

Returns a string of 0 and 1 chars

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

Creates list of b True values, and concatenates it to a list of (a-b) False values.

R, 20 bytes + 1993 = 2013

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

Try it online!

Possibly this might work in S, which would drop the score to 2008, but I haven't been able to verify it.

SmileBASIC 3, 2014 + 25 = 2039

The first publicly available version of SmileBASIC 3 launched in Japan with the SmileBASIC app for Nintendo 3DS in November 2014.

Prints a string where 0 is false and 1 is true (as they are in the language itself.)

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