Inspirado en un viejo manual ...

El reto

Defino la una ^ésimo sufijo vector de b como la lista de Boole de longitud una con b arrastra valores Truthy.

Escriba un programa o función que, dado a a y b por cualquier medio, devuelve el a ^th sufijo vector de b por cualquier medio.

Ahora esto puede parecer trivial, pero este es el truco: su puntaje es el recuento de bytes más el primer año en que su solución hubiera funcionado.

Reglas

Se aplican todas las reglas estándar, excepto que también se pueden usar los idiomas y las versiones de idiomas que se lanzaron después de este desafío.

Salida utilizando cualquier representación de valores booleanos que utilice su idioma, por ejemplo 1/ 0, True/ False, TRUE/ FALSE, "True"/ "False", etc.

Salida utilizando cualquier representación de las listas que su uso del lenguaje, por ejemplo 0 0 1, [False,False,True], (FALSE;FALSE;TRUE), {"False","False","True"}, etc.

Puede suponer que un ≥ b siempre es cierto y que son de un tipo de datos apropiado.

Casos de prueba

Dado a = 7 yb = 3, retorno0 0 0 0 1 1 1

Dado a = 4 y b = 4, retorno[True,True,True,True]

Dado a = 2 yb = 0, retorno(FALSE;FALSE)

Dado a = 0 yb = 0, retorno{}

Ejemplo de solución y puntuación

Es posible que desee enviar la solución {⌽⍺↑⍵⍴1}usando Dyalog APL. Eso sería un bytecount de 8. Esta es una función dinámica, que funciona desde la versión 8.1 de Dyalog APL, lanzada en 1998, por lo que mi puntaje total es 2006. Mi respuesta presentada debería ser algo así como:

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

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

¡La puntuación más baja gana!

APL \ 360, 1968 + 3 bytes = 1971

⎕⍵⎕

Una creación del tutorial @NBZ vinculada a. No sé por qué @NBZ dijo que obtendría un puntaje de 1970, porque APL \ 360 no se implementó hasta 1968, y APL anteriores como APL \ 1130 no tenían la función de sufijo vectorial (consulte la página 208 de aquí ).

Adelante, 1970 + 38 = 2008

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

uso: 7 3 simprime "0 0 0 0 -1 -1 -1"

APL, 1968 + 5 = 1973

Hasta 5 caracteres:

⌽⎕≥⍳⎕

Versión antigua:

⌽⎕↑⎕⍴1

Bueno, en realidad ya dio la respuesta, simplemente eliminé la definición de función dinámica y verifiqué que funcionara en 1968. Para referencia aquí está el manual:

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; 

¡Es hora de que SAS brille!

SAS no se publicó por primera vez hasta 1972, pero este paso de datos solo usa características muy básicas que estoy bastante seguro de que habrían estado disponibles incluso en las primeras versiones preliminares desde 1966 en adelante, por lo que creo que habría funcionado en ese momento. La entrada va después a=y b=, y la salida se imprime en el registro.

¡Me sorprendería si alguien todavía tuviera un IBM System / 360 con la versión correcta de SAS para verificar esto realmente!

Ratón-1979 , 1979 + 19 = 1998

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

Traducción de: Forth .

La especificación es realmente críptica para mí, pero creo que esto hace lo correcto.

TI-Basic, 1990 + 21 = 2011

La primera calculadora TI en la que funciona este programa es la TI-81, introducida en 1990.

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

Editar: noté que debo admitir una lista vacía ... aumentó el código en 4 bytes

Casos de prueba

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,#]&

No estoy seguro de si esto funciona, solo revisé la documentación en 10.3 y busqué cosas que decían Presentado en 1988 (1.0)

68k TI-Basic, 1995 + 25 = 2020

La primera calculadora TI en la que funciona este programa es la TI-92, presentada en 1995.

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

A diferencia de la serie TI-83, 68k TI-Basic admite la lista vacía.

Python 1.0, 1994 + 26 = 2020

Guardado 2 bytes gracias a DSM.

Lambda se presentó con la primera versión principal, 1.0

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

MATL , 2015 + 1 + 4 = 2020

:P<~

Esto funciona desde la versión 6.0.0 del lenguaje (utiliza entrada implícita, que se introdujo en esa versión), con fecha del 31 de diciembre de 2015.

He agregado 1al puntaje de acuerdo con el comentario de @drolex sobre posibles configuraciones regionales diferentes.

Pruébalo en línea!

Explicación

:    % 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

Argh Estaba investigando esta respuesta y alguien llegó a APL antes de que pudiera esperar entender el idioma. Aquí está mi solución J en su lugar.

Prólogo, 1972 + 57 = 2029

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

Uso: a(7,3,L). se unificará Lcon[0,0,0,0,1,1,1] .

Realmente no estoy muy seguro de cuándo isse implementó en el lenguaje, y dudo que realmente pueda encontrar la fecha exacta. Sin embargo, es una función bastante básica incorporada, así que supongo que ya existía cuando apareció por primera vez el lenguaje en 1972 .

No es que realmente importe, estoy lejos de ganar con esta respuesta.

SMP , 1983 + 28 bytes = 2011

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

Creo que entendí bien ... S: 2.10, página 48 Ar: 7.1, página 102 Map : 7.2, página 106 $1 : 7.1, página 104

Y si está familiarizado con Mathematica, no, Arno funciona así que . Más como Range+ Select.

Vim, 1991 + 21 = 2012

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

La entrada se ve así:

7
3

Y la salida se ve así:

0000111

Explicación:

"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);}

Consulte " La referencia del usuario a B " para ver el manual de este precursor C sin tipo.

Pyth, 2015 + 9 4 = 2024 2019

¡Gracias a @FryAmTheEggman por su ayuda!

gRQE

Pruébalo aquí!

Explicación

gRQE # Q = cantidad de valores de verdad finales
        # E = longitud del vector
 RE # mapa sobre rango (E)
g Q # d> = Q

> <> , 2009 + 14 + 3 para -v = 2026

b y a debe proporcionarse directamente en la pila con-v , en orden inverso.

La salida no está separada por espacios como en los ejemplos, pero eso no parece ir en contra de ninguna regla establecida. Utiliza 0 y 1 para representar falso y verdadero, como lo usa el lenguaje.

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

No funciona con la versión actual desde ? ahora muestra su valor de prueba de la pila.

No estoy seguro de que todas las funciones se implementaron desde el día 1, -vpor ejemplo, podrían haberse proporcionado más tarde como un producto básico. Intentaré asegurarme de que mi respuesta sea correcta este fin de semana.

05AB1E , 2016 + 9 = 2025

Esto definitivamente se puede jugar más, pero aquí hay un comienzo: p. Código:

-0s×1¹×«S

Pruébalo en línea! La entrada se da como b, a .

También 9 bytes: 0×1I×0ñRS.

PowerShell v1, 2006 + 28 = 2034

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

Utiliza el operador de coma para construir la matriz (s), que ha estado en PowerShell desde el principio.

Mathcad, 1998 + 42 = 2040

Los "bytes" se interpretan como el número de caracteres distintos del teclado (por ejemplo, el operador 'for' (incluida una línea de programación) es un solo carácter ctl-shft- #, o un clic en la barra de herramientas de Programación)).

El recuento de bytes anterior supone que las definiciones a y b no cuentan para el total; agregue 4 bytes para las definiciones si esta suposición no es válida.

La versión de la función que se muestra a continuación agrega 5 bytes para la definición y otros 3 bytes para cada uso (suponiendo que los valores ayb se escriben directamente).

Como mi solución Mathcad claramente debería estar jugando con las camisetas rojas y no con las de la competencia, he agregado una tabla de soluciones. Tenga en cuenta que como Mathcad no tiene una matriz vacía, he usado una cadena vacía ("") en su lugar; He usado 0 para indicar dónde no he calculado los pares b> a.

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

Devuelve una matriz de 0 y 1

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

Javascript ES6, 2015 + 50 = 2065

Devuelve una cadena de 0y 1caracteres

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

Javascript, 1995 + 61 = 2056

Devuelve una cadena de 0y 1caracteres

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

Crea una lista de valores b verdaderos y los concatena en una lista de valores (ab) falsos.

R , 20 bytes + 1993 = 2013

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

Pruébalo en línea!

Posiblemente esto podría funcionar en S, lo que reduciría el puntaje a 2008, pero no he podido verificarlo.

Sonrisa BÁSICO 3, 2014 + 25 = 2039

La primera versión pública de SmileBASIC 3 se lanzó en Japón con la aplicación SmileBASIC para Nintendo 3DS en noviembre de 2014.

Imprime una cadena donde 0 es falso y 1 es verdadero (ya que están en el lenguaje mismo).

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