Si se proporciona un dígito entre 0 y 9 (inclusive), su función / subrutina debe imprimir todos los números entre -100 y 100 (inclusive) que contengan el dígito dado.

Por ejemplo:

Input: 9
Output: -99 -98 -97 -96 -95 -94 -93 -92 -91 -90 -89 -79 -69 -59 -49 -39 -29 -19 -9 9 19 29 39 49 59 69 79 89 90 91 92 93 94 95 96 97 98 99

Reglas:

• No puede usar cadenas (de cualquier forma que estén representadas en el idioma elegido) o matrices de caracteres. (Excepto para imprimir la respuesta en la consola).
• No puedes usar matrices.

Tanteo:

Puntuación = longitud de la subrutina / función (no se contará el espacio en blanco)

La respuesta con la puntuación más baja gana.

Los espacios en blanco NO serán contados. ¡Formatee su código correctamente!

Algunas respuestas están utilizando expresiones regulares, que pueden violar la regla de sin cadenas, como señalan algunos miembros. Estas respuestas no serán aceptadas.

Por favor, pruebe su código 0antes de publicar.

Espacio en blanco, 834 caracteres (0 si resta espacios en blanco)

Usé este intérprete para probarlo.

Esto me llevó unas 4 horas de trabajo duro y una depuración horrible para crear. Pero ya está hecho!

EDITAR : Texto seleccionable provisto con trucos HTML. Si lo copia y pega desde aquí en otro lugar, verifique si obtuvo exactamente [space][tab][linefeed][linefeed][linefeed]al final con 100 o 101 líneas (dependiendo de si su editor cuenta o no una nueva línea si la última termina con un salto de línea).

En el caso de que no pueda usarlo de esta manera, considerando el espacio como S, el salto de línea como Ly la pestaña como T, y separando las líneas después del L's, aquí está:

SSSTSSSSTSL
SSSTSSSSTSL
TL
TSSSSTSSSSTSL
TTTSSSTTSSSSL
TSSTTTSSSSTSSSSTTL
SSTTTSSSTTL
TTSSSSTSSSSSTL
SSSL
TTSSSSTSSSSTSL
TTTL
TSSTSSTSTTL
SSSTSSSSTSL
TTTSSSTL
TSSTL
TSSTSSTSTTL
L
SSSTSSSTSSL
SSSTSSSSTTL
TTTSL
SSSSTTSSTSSL
TSSTL
TSSTSSSTSTL
SL
SSSTTL
TSSL
L
TTSTSSSTTTL
SSTTL
TSSL
L
SSSTSSSTTTL
SL
SSSSTSSSSTSL
TTTL
TSSTSSTSSSL
SSSTSTSL
TSTSSSSTSSSSTSL
TTTTSSTL
TSSTSSTSSTL
L
SSSTSSTSSSL
SSSTSTSL
TSTTSSSTSSSSTSL
TTTTSSTL
TSSTSSTSSTL
L
SL
STSSTSTSL
L
SSSTSSTSSTL
SSSTSSSSSTL
TTTL
TSSTSSSTTSL
SSSTSSSSSL
TL
SSL
SSSTSSSTTSL
SSSTSSSSSTL
SSSTL
TTSSSSTSSSSTTL
TTTTL
STL
SSSTSSTSTSL
SSSTSSSSTTL
SSSTSSSSTTL
TTTSSSTL
TSSSTTSL
SL
STSSSTSSL
L
SSSTSSSTSTL
SSSTSSSSTSL
TTTL
TSSTSSTTSSL
SSSTSSSSTSL
TTTSSSTL
TSSTL
TSSTSSTTSSL
L
L
L
L
SSSTSSTSTTL
SSTTTSSTSSL
TL
STSSSTSSSSSL
TL
SSL
SL
STSSSTSSL
L
SSSTSSTTSSL
SSSTSSSSSL
TL
SSSSSTTSSTSSL
TL
STL
L
L

Bash + utils - 20

seq -100 100|grep 9

O 21 bytes si en un script

seq -100 100|grep $1

Para ejecutar el script:

sh myscript 9

JavaScript 133-1 = 132

¿Seguramente no podría haber nada malo con esta versión ahora ...?

for(k=prompt(),c=console,j=-100;100>=j;j++)if(i=j,0==j&j==k)c.log(0);else for(;i;)if(h=i%10,h=0>h?-h:h,i=i/10|0,h==k){c.log(j);break}

PROMPT: 2
CONSOLE.LOG:
-92
-82
-72
-62
-52
-42
-32
-29
-28
-27
-26
-25
-24
-23
-22
-21
-20
-12
-2
 2
 12
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 32
 42
 52
 62
 72
 82
 92

CONTROL, using zero
PROMPT: 0
CONSOLE.LOG:
    -100
    -90
    -80
    -70
    -60
    -50
    -40
    -30
    -20
    -10
      0
     10
     20
     30
     40
     50
     60
     70
     80
     90
    100

GolfScript [24 bytes]

`:x;201,{100-}%{`x?-1>},

Descripción:

`:x;             - save input value to variable 'x' and remove from the stack
201,{100-}%      - create range from -100 to 100
{`x?-1>},        - filter the range by "index-of" condition

DEMO: http://golfscript.apphb.com/?c=MwoKYDp4OzIwMSx7MTAwLX0le2B4Py0xPn0sYA%3D%3D

Ruby: 92 caracteres

s=gets.to_i
$><<(-100..100).select{|n|a=n.abs;loop{break""if a%10==s;break if 0==a/=10}}*" "

Versión legible:

searchfor = gets.to_i
$><< (-100..100).select { |number|
  absnumber = number.abs
  loop {
    break "" if absnumber % 10 ==s
    break if 0 == absnumber /= 10
  }
} * " "

Ejecución de muestra:

bash-4.2$ ruby -e 's=gets.to_i;$><<(-100..100).select{|n|a=n.abs;loop{break""if a%10==s;break if 0==a/=10}}*" "' <<< 9
-99 -98 -97 -96 -95 -94 -93 -92 -91 -90 -89 -79 -69 -59 -49 -39 -29 -19 -9 9 19 29 39 49 59 69 79 89 90 91 92 93 94 95 96 97 98 99

Prueba de funcionamiento:

bash-4.2$ for i in {0..9}; do diff -w <(ruby -e 's=gets.to_i;$><<(-100..100).select{|n|a=n.abs;loop{break""if a%10==s;break if 0==a/=10}}*" "' <<< $i) <(seq -100 100|grep $i|tr \\n \ ) > /dev/null; echo "$i : $?"; done
0 : 0
1 : 0
2 : 0
3 : 0
4 : 0
5 : 0
6 : 0
7 : 0
8 : 0
9 : 0

K - 45 char

No gana ningún premio, pero K golf está subrepresentado. K no se pone más bonito con el espacio adecuado, así que lo dejaré como está, porque K se pone muy exigente sobre qué espacio en blanco es importante y cuál no.

{|a@&x _in'@[10_vs'_ _abs a:100-!201;100;0,]}

Explicado:

• a:100-!201- Haga una lista de 0 a 200 inclusive, luego reste de 100. Ahora tenemos los números de -100 a 100 inclusive, pero al revés de las especificaciones de la pregunta. Siempre podemos arreglar eso más tarde, así que por ahora solo asignaremos esto a a.
• _ _abs- Tome el piso del valor absoluto de estos números, porque, por alguna razón, K piensa que _absdebería dar resultados en coma flotante. Afortunadamente, colocarlos en el suelo los convierte de nuevo en enteros.
• 10_vs'- Expanda cada 'entero ( ) como un número base 10 ( _vssignifica "vector de escalar"). Tenga en cuenta que no tuvimos que usar el operador Each 'en las funciones anteriores porque operan en átomos.
• @[...;100;0,]- Modifique el elemento en nuestra lista en el índice 100 (una lista vacía, que es el resultado de expandir 0 en la base 10) por la función 0,, que antepone un cero al frente. Sin esta corrección, esta función fallará en la entrada 0.
• &x in'- Ahora, devuelve los índices ( &) donde xhay un dígito en ( _in) cada ( ') de las expansiones que construimos con tanto cuidado anteriormente.
• |a@- Finalmente, use estos índices para indexar ae invertir la lista en el orden correcto.

El uso es obvio, aunque la buena suerte es tener un intérprete de K. (Hay una implementación de código abierto en Github que puede compilar).

  {|a@&x _in'@[10_vs'_ _abs a:100-!201;100;0,]} 0
-100 -90 -80 -70 -60 -50 -40 -30 -20 -10 0 10 20 30 40 50 60 70 80 90 100
  {|a@&x _in'@[10_vs'_ _abs a:100-!201;100;0,]} 5
-95 -85 -75 -65 -59 -58 -57 -56 -55 -54 -53 -52 -51 -50 -45 -35 -25 -15 -5 5 15 25 35 45 50 51 52 53 54 55 56 57 58 59 65 75 85 95

golpetazo 55 49 caracteres:

(sin contar espacios en blanco &&)

for i in {-100..100}
do
  [[ $i =~ $1 ]] && echo $i
done

Ejecutándolo diciendo:

bash filename 9

produciría:

-99
-98
-97
-96
-95
-94
-93
-92
-91
-90
-89
-79
-69
-59
-49
-39
-29
-19
-9
9
19
29
39
49
59
69
79
89
90
91
92
93
94
95
96
97
98
99

PHP 67 bytes:

for($i=-100;$i<101;++$i)if(strpos($i,$_GET[n])!==!1)echo$i,PHP_EOL;

Sí, hay una llamada 'strpos', ¡pero estoy usando solo números!

Aquí hay una versión 'no golfista':

for($i=-100;$i<101;++$i)
{
    if(strpos($i,$_GET[n])!==false)
    {
        echo $i,PHP_EOL;
    }
}

Para que esto funcione, puede probarlo aquí: http://writecodeonline.com/php/

Solo recuerde agregar $_GET[n]='<number>';al comienzo del código.

O, en una lámpara o servidor xampp, puede crear una página y luego acceder a ella en el navegador, con el parámetro ?n=<number>después del nombre del archivo.

Mathematica 28

Lo siento, no pude resistirme.

:)

Las instrucciones son: "Siempre que haya un dígito entre 0 y 9 (inclusive), su función / subrutina debe imprimir todos los números entre -100 y 100 (inclusive) que contengan el dígito dado".

Lo siguiente imprime todos esos números en orden.

f@n_ :=Print/@Range[-100,100]

Como un bono especial, imprime esos números en el mismo rango que no contienen el dígito dado. :)

Mi primer intento aquí, así que tal vez estoy haciendo algo mal, disculpe;)
Entonces, no estaba seguro de si tenía que agregar toda la clase o solo la lógica interna.

Java - 199 caracteres

intx=System.in.read()-48;for(inti=-100;i<101;i++){if((i<10&&i==-x)||(i>-10&&i==x)||(i<-9&&((i/100==x&&i<-99)||i%10==-x||i/10==-x))||(i>9&&((i/100==x&&i>99)||i%10==x||i/10==x)))System.out.println(i);}

Aquí una forma más legible:

int x = System.in.read() - 48;
for(int i = -100; i < 101; i++) {

    if((i < 10 && i == -x) || (i > -10 && i == x)
        || (i < -9 && ((i / 100 == x && i < -99 ) || i % 10 == -x || i / 10 == -x))
        || (i > 9 && ((i / 100 == x && i > 99) || i % 10 == x || i / 10 == x)))

        System.out.println(i);

}

Supongo que la idea básica no era tan mala, pero necesitaba demasiadas excepciones, para finalmente resolver todos los casos ...: /

C - 104 107 114 caracteres - 0 = 104 107 114

a,b;main(i){i=getchar()-48;for(a=-100;a<101;a++){for(b=a;a&&abs(a%10)!=i;a/=10);if(a|!i&!b)printf("%i ",b);a=b;}}

Sin golf:

#include <stdio.h>

int a, b;

int main(int i) {
    i = getchar() - '0';
    for( a = -100 ; a < 101 ; a++ ) {
        for( b = a ; a && abs(a % 10) != i ; a /= 10 );
        if( a | !i & !b )
            printf("%i ", b);
        a = b;
    }
}

R 87 93

Aquí hay una mejora:

a=scan();r=-100:100;s=abs(r);r[(!a&!r%%10)|a&(a==s%%10|a==floor(s/10)|a==floor(s/100))]

(Potencialmente) Más legible, con notas:

a=scan() # take user input of selected digit
r=-100:100 # define our scanning range
s=abs(r) # copy the range as the absolute value for proper floor() calculation
#r[<criteria>] is functionally the same as subset(r,<criteria>)
r[ # when any of the criteria below are met, use that value from the range
    (!a & !r%%10) # case when input is 0, !a is evaluated as "a when a<>0 == true"
    | a & # all other digits below
    a==s%%10
    |
    a==floor(s/10)
    |
    a==floor(s/100)
    ] # R does not require a print command, so this as-is will display the corresponding values

Prólogo: 75

f(D) :-
  between(-100,100,N) ,
  number_chars(N,Ds) ,
  member(D,Ds) ,
  writeln(N) ,
  fail
  .

C respuesta en 98 caracteres

Esta es una de las cosas más sexys que he codificado

main()
{
    int t=getchar()-48,i=100,j=-i;
    while ((i=t-i%10?i/10:!printf("%d\n",j)) || (i=++j<0?-j:j)<101  );
}

La versión anterior, con 104 caracteres que no son espacios en blanco:

int main()
{
    int t=getchar()-48,i,j=-101;
    while(++j<101)
    {
        i=j<0?-j:j;
        while(i = t-i%10?i/10:!printf("%d\n",j));
    }
}

"Funciona para mí" usando GCC y CLANG.

GNU coreutils (44)

read N
seq -100 100 | grep $N | tr '\n' ' '
echo

donde trse utiliza para convertir nuevas líneas en espacios, y echoproporciona una nueva línea final.

$ bash ./script
9
-99 -98 -97 -96 -95 -94 -93 -92 -91 -90 -89 -79 -69 -59 -49 -39 -29 -19 -9 9 19 29 39 49 59 69 79 89 90 91 92 93 94 95 96 97 98 99

Javascript 116

   a = 0
        for(i=-100;101>i;i++){
        m=Math
        f=m.floor
        j = m.abs(i)
        if((j>10&&f(j/10)==a)||j-f(j/10)*10==a||j/100==a){

             console.log(i)

        }
        }

J - 27 caracteres

Todo el espacio en blanco se puede quitar de forma segura, lo que significa 27 caracteres. Los números negativos en la salida tendrán _un signo negativo: esta es la forma en que J escribe sus números negativos.

((e. 10 #.^:_1 |)"0 # ]) & (i: 100)

Explicado:

• V & (i: 100) - Bind (& ) el conjunto de números de -100 a 100 inclusive ( i:100) como el argumento correcto del verbo principal ( V). El argumento único del verbo completo se canaliza hacia el lado izquierdo.
• (U"0 # ])- Use el resultado del verbo Usobre cada número del argumento correcto ("0 ) para seleccionar ( #) elementos del argumento correcto ( ]).
• (e. 10 #.^:_1 |)- Dado el dígito para probar como argumento izquierdo y el número para verificar como argumento derecho, expanda en la base 10 ( 10 #.^:_1) el valor absoluto del número (| ) y verifique si el dígito es un elemento de esa expansión ( e.).

Uso:

   ((e. 10 #.^:_1 |)"0 # ]) & (i: 100) 0
_100 _90 _80 _70 _60 _50 _40 _30 _20 _10 0 10 20 30 40 50 60 70 80 90 100
   ((e. 10 #.^:_1 |)"0 # ]) & (i: 100) 5
_95 _85 _75 _65 _59 _58 _57 _56 _55 _54 _53 _52 _51 _50 _45 _35 _25 _15 _5 5 15 25 35 45 50 51 52 53 54 55 56 57 58 59 65 75 85 95

Groovy, 127

def x = args[0].toInteger()
for (k in -100..100)
    if (k == x)
        print " ${k}"
    else
        for (n = Math.abs(k); n > 0; n = (int) n / 10)
            if (n % 10 == x) {
                print " ${k}"
                break
            }

Sin cadenas (excepto para generar espacios entre los números), sin matrices de caracteres u otras matrices, sin expresiones regulares. Probado con 0. Salida:

-100-90-80-70-60-50-40-30-30-10 0 10 20 30 40 50 60 70 80 90100

Javascript - 108

No estoy seguro de si la respuesta de JavaScript existente se tendrá en cuenta porque usa expresiones regulares, así que creé una sin ella:

for(x=+prompt(i=-100);i<101;i++)if((j=i<0?-i:i)&&j%10==x||((j/100==x||(0|j/10)==x)&&x)||j==x)console.log(i)

También se puede acortar a 101 si la variable x se coloca directamente, como:

for(x=5,i=-100;i<101;i++)if((j=i<0?-i:i)&&j%10==x||((j/100==x||(0|j/10)==x)&&x)||j==x)console.log(i)

Básicamente verifica si los valores absolutos de las operaciones div o mod son iguales al dígito (que también funciona para 100).

GW Basic: 107 caracteres excluyendo espacios en blanco

1 input n
2 for i=-100 to 100
3 j=abs(i):a=j mod 10
4 if a=n then 8
5 b=j\10
6 if (b=n) and b then 8
7 if (b<10) or n<>1 then 9
8 print i
9 next

El uso de un solo dígito para los números de línea ayuda y eliminar el espacio en blanco significa que no es realmente necesario tener múltiples declaraciones en una línea más de una vez para mantener los números llegando a 10.

MARAVILLOSO, 71

f={z->
  _=10
  (-_*_.._*_).grep {
    a=it.abs()
    b=a%_==z
    a<_?b:b||(int)(a/_)%_==z
  }
}

println f(0)
println f(9)

Resultados en

[-100, -90, -80, -70, -60, -50, -40, -30, -20, -10, 0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100]
[-99, -98, -97, -96, -95, -94, -93, -92, -91, -90, -89, -79, -69, -59, -49, -39, -29, -19, -9, 9, 19, 29, 39, 49, 59, 69, 79, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99]

Javascript 96

Usando bitwise o:

b=Math.abs;
a=prompt();
for(i=-100;i<101;)
    if(!(b(i++/10)^a && b(i%10)^a)||b(i)/a==100)  console.log(i)

Haskell, 86 75 (78 con espacios en blanco necesarios)

f 0=[-100,-90..100]
f d=[b|b<-[-100..100],abs(b`quot`10)==d||abs(b`rem`10)==d]

Sin golf:

f dig =
  if dig == 0
    then [-100, 90 .. 100]
    else [num | num <- [-100 .. 100], abs (num `quot` 10) == d || abs (num `rem` 10) == d]

Python - 172 caracteres

def f(x,y,z):
    if x%10==y or (x>9 and x/10==y) or (x==100 and y==1):
        print z
def g(x,y):
    f(abs(x),y,x)
    if x<100:
        g(x+1,y)
def h(y):
    g(-100,y)

Para probar dentro de Python:

>>> h(4)
-94
-84
-74
...
-49
-48
...

VBA 121

(sin espacios en blanco o Subdefinición contada):

Sub t(d)
For n = -100 To 100
m = Abs(n)
o = o & IIf(d = 0, IIf(d = n Mod 10, " " & n, ""), IIf(d = n Or d = m Mod 10 Or d = Int(m / 10) Or d = Int(m / 100), " " & n, ""))
Next
MsgBox o
End Sub

perl, 117 con caracteres de espacio en blanco no significativos eliminados

Creo que estabas buscando algo más como esto. Lee desde stdin, genera una línea por partido. Sin expresiones regulares, matrices (o conjuntos o hashes o cualquier otra cosa que sea una matriz debajo de las cubiertas) o cadenas, implícitas o de otro tipo, excepto las cadenas pasadas a imprimir:

chomp($x=<>); for($y=-100;$y<101;++$y) { $a=abs $y; print "$y " if $a % 10 == $x || $a > 9 && int( $a/10 ) == $x || $a==100 && $x==1}; print "\n"

p.ej:

ski@anito:~$ echo 0 | perl -e 'chomp($x=<>); for($y=-100;$y<101;++$y) { $a=abs $y; print "$y " if $a % 10 == $x || $a > 9 && int( $a/10 ) == $x || $a==100 && $x==1}; print "\n"'
-100 -90 -80 -70 -60 -50 -40 -30 -20 -10 0 10 20 30 40 50 60 70 80 90 100 

ski@anito:~$ echo 1 | perl -e 'chomp($x=<>); for($y=-100;$y<101;++$y) { $a=abs $y; print "$y " if $a % 10 == $x || $a > 9 && int( $a/10 ) == $x || $a==100 && $x==1}; print "\n"'
-100 -91 -81 -71 -61 -51 -41 -31 -21 -19 -18 -17 -16 -15 -14 -13 -12 -11 -10 -1 1 10 11 12 13 14 15 16 17 18 19 21 31 41 51 61 71 81 91 100 

ski@anito:~$ echo 2 | perl -e 'chomp($x=<>); for($y=-100;$y<101;++$y) { $a=abs $y; print "$y " if $a % 10 == $x || $a > 9 && int( $a/10 ) == $x || $a==100 && $x==1}; print "\n"'
-92 -82 -72 -62 -52 -42 -32 -29 -28 -27 -26 -25 -24 -23 -22 -21 -20 -12 -2 2 12 20 21 22 23 24 25 26 27 28 29 32 42 52 62 72 82 92 

F # 87 92 - 7

let f n = {-100..100}
|>Seq.filter(fun x->abs x%10=n||abs x/10=n&&n>0)
|>Seq.iter(printf"%d ")

agregó 5 caracteres porque 0 no se manejó correctamente. (Se devolverían todos los valores de un dígito).

Esta es la primera vez que juego código golf. Esto se ve bastante interesante. No puedo ganar, pero intenté y quería mostrar lo que podía hacer.

Python: 104 (89 si puedo hacer la importación) - si los resultados deben imprimirse exactamente como se muestra en el ejemplo

from math import *

def g(x):
    t = 10
    p = lambda i: x == i % t or i >= t and p(i / t)
    for i in range(-100, 101):
        if p(abs(i)):
            print i,
    print
# g(0)
# -100 -90 -80 -70 -60 -50 -40 -30 -20 -10 0 10 20 30 40 50 60 70 80 90 100

Python: 71 - si la salida se puede hacer fuera de la función y la única restricción para la salida es que no se imprimen números violadores

f = lambda x: [(-i, i) for i in range(101) for j in (10, 100) if i % j == x or i >= j and i / j == x]
# print f(0)
# [(0, 0), (0, 0), (-10, 10), (-20, 20), (-30, 30), (-40, 40), (-50, 50), (-60, 60), (-70, 70), (-80, 80), (-90, 90), (-100, 100), (-100, 100)]

JavaScript 125 char

Perdón por las varias ediciones que he tenido problemas para hacer esto desde mi teléfono :)

function c(n,i){o=i||0;h=100;j=o-h;f=Math.abs(j);m=f/10|0;if((m==n&&m!=0)||n==f%10||f/h==n)console.log(j);if(o<h*2)c(n,o+1);}

Dogelang, 42 caracteres que no son espacios en blanco

f=n->for i in(-100..101)=>if n in str i=>print i

Igual que mi solución Python, recién convertida a dogelang .