Jeśli podana jest cyfra od 0 do 9 (włącznie), twoja funkcja / podprogram powinien wypisać wszystkie liczby od -100 do 100 (włącznie), które zawierają daną cyfrę.

Na przykład:

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

Zasady:

• Nie możesz używać łańcuchów (w żaden sposób, które są reprezentowane w wybranym języku) ani tablic znakowych. (Z wyjątkiem wydrukowania odpowiedzi na konsoli.)
• Nie możesz używać tablic.

Punktacja:

Wynik = długość podprogramu / funkcji (białe znaki nie będą liczone)

Odpowiedź z najniższym wynikiem wygrywa.

Białe spacje NIE będą liczone. Proszę poprawnie sformatować kod!

Niektóre odpowiedzi używają wyrażeń regularnych, które mogą naruszać zasadę braku ciągów, jak zauważyli niektórzy członkowie. Te odpowiedzi nie będą akceptowane.

0Przed wysłaniem sprawdź swój kod .

Białe znaki, 834 znaki (0 po odjęciu białych znaków)

Użyłem tego interpretera do przetestowania go.

Tworzenie zajęło mi około 4 godzin ciężkiej pracy i okropnego debugowania. Ale to już koniec!

EDYCJA : Tekst do wyboru wyposażony w sztuczki HTML. Jeśli skopiujesz go i wkleisz stąd w inne miejsce, sprawdź, czy otrzymałeś dokładnie [space][tab][linefeed][linefeed][linefeed]na końcu 100 lub 101 wierszy (w zależności od tego, czy Twój edytor się liczy, czy nie nowego wiersza, jeśli ostatni kończy się wysuwem wiersza).

W przypadku, gdy nie możesz użyć tego w ten sposób, biorąc pod uwagę spację jako S, podawanie linii jako Li tab jako Toraz łamanie linii po L's, oto:

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

Lub 21 bajtów, jeśli jest w skrypcie

seq -100 100|grep $1

Aby uruchomić skrypt:

sh myscript 9

JavaScript 133-1 = 132

Z pewnością teraz nie może być nic złego w tej wersji ...?

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 bajty]

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

Opis:

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

Rubin: 92 znaków

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

Wersja do odczytu:

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

Przykładowy przebieg:

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

Testowe uruchomienie:

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 znaków

Nie wygrywa żadnych nagród, ale gra w golfa K jest niedostatecznie reprezentowana. K nie robi się ładniejszy z odpowiednim odstępem, więc zostawię to tak, jak jest, ponieważ K bardzo wybrednie określa, które białe znaki są ważne, a które nie.

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

Wyjaśnił:

• a:100-!201- Zrób listę od 0 do 200 włącznie, a następnie odejmij ją od 100. Teraz mamy liczby od -100 do 100 włącznie, ale wstecz od specyfikacji pytania. Zawsze możemy to naprawić później, więc na razie po prostu to przypisamy a.
• _ _abs- Podnieś wartość bezwzględną tych liczb, ponieważ z jakiegokolwiek powodu K uważa, że _abspowinno to dać wyniki zmiennoprzecinkowe. Na szczęście ich podłoga zamienia je z powrotem w liczby całkowite.
• 10_vs'- Rozwiń każdą 'liczbę całkowitą jako liczbę podstawową 10 ( _vsoznacza „wektor ze skalara”). Zauważ, że nie musieliśmy używać operatora Each 'w powyższych funkcjach, ponieważ działają one na atomach.
• @[...;100;0,]- Zmień pozycję na naszej liście pod indeksem 100 (pusta lista, która jest wynikiem rozwinięcia 0 do podstawy 10) przez funkcję 0,, która wstawia zero na początek. Bez tej korekty funkcja ta zawiedzie na wejściu 0.
• &x in'- Teraz zwróć indeksy ( &), gdzie xjest cyfrą w ( _in) każdym ( ') z rozwinięć, które tak starannie skonstruowaliśmy powyżej.
• |a@- Na koniec użyj tych indeksów, aby zaindeksować ai odwrócić listę we właściwej kolejności.

Użycie jest oczywiste, ale powodzenia w tłumaczeniu K. (Na Github istnieje implementacja typu open source , którą można skompilować).

  {|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

grzmotnąć 55 49 znaków:

(nie licząc białych znaków &&)

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

Wykonując to, mówiąc:

bash filename 9

wyprodukowałby:

-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 bajtów:

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

Tak, istnieje połączenie typu „strpos”, ale używam tylko numerów!

Oto wersja „bez golfa”:

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

Aby to zadziałało, możesz to przetestować tutaj: http://writecodeonline.com/php/

Pamiętaj tylko, aby dodać $_GET[n]='<number>';na początku kodu.

Lub, na lampie lub serwerze xampp, możesz utworzyć stronę, a następnie uzyskać do niej dostęp w przeglądarce, z parametrem ?n=<number>po nazwie pliku.

Mathematica 28

Przepraszam, po prostu nie mogłem się oprzeć.

:)

Instrukcje są następujące: „Jeśli podana jest cyfra od 0 do 9 (włącznie), twoja funkcja / podprogram powinien wypisać wszystkie liczby od -100 do 100 (włącznie), które zawierają daną cyfrę.”

Poniżej drukowane są wszystkie takie liczby w kolejności.

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

Jako specjalny bonus drukuje te liczby w tym samym zakresie, które nie zawierają danej cyfry. :)

Moja pierwsza próba tutaj, więc może robię coś źle, przepraszam;)
Nie byłem więc pewien, czy muszę dodać całą klasę, czy tylko logikę.

Java - 199 znaków

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

Oto bardziej czytelna forma:

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

}

Myślę, że podstawowy pomysł nie był taki zły, ale potrzebował zbyt wielu wyjątków, aby w końcu wypracować wszystkie przypadki ...: /

C - 104 107 114 znaków - 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;}}

Nie golfowany:

#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

Oto poprawa:

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

(Potencjalnie) Bardziej czytelny, z notatkami:

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

Prolog: 75

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

Odpowiedź C w 98 znakach

To jedna z najseksowniejszych rzeczy, jakie kiedykolwiek kodowałem

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

Starsza wersja, z 104 znakami spacjami:

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

„Działa dla mnie” przy użyciu GCC i CLANG.

GNU coreutils (44)

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

gdzie trsłuży do konwertowania nowych linii na spacje i echozapewnia jedną końcową nową linię.

$ 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 znaków

Wszystkie białe znaki można bezpiecznie usunąć, co oznacza 27 znaków. Liczby ujemne na wyjściu będą miały _znak ujemny: w ten sposób J zapisuje liczby ujemne.

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

Wyjaśnił:

• V & (i: 100)- Bind ( &) zestaw liczb od -100 do 100 włącznie ( i:100) jako prawy argument głównego czasownika ( V). Pojedynczy argument całego czasownika zostaje przeniesiony na lewą stronę.
• (U"0 # ])- Użyj wyniku czasownika Unad każdą liczbą z prawego argumentu ( "0), aby wybrać ( #) elementy z prawego argumentu ( ]).
• (e. 10 #.^:_1 |)- Biorąc pod uwagę cyfrę do sprawdzenia jako lewy argument i liczbę do sprawdzenia jako prawy argument, rozwiń w bazie 10 ( 10 #.^:_1) wartość bezwzględną liczby ( |) i sprawdź, czy cyfra jest elementem tego rozszerzenia ( e.).

Stosowanie:

   ((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
            }

Bez ciągów znaków (z wyjątkiem wyświetlania spacji między liczbami), bez tablic znaków lub innych tablic, bez wyrażeń regularnych. Testowane z 0. Wyjście:

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

JavaScript - 108

Nie jestem pewien, czy istniejąca odpowiedź w javascript zostanie wzięta pod uwagę, ponieważ używa wyrażenia regularnego, więc stworzyłem jedną bez niej:

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)

Można również skrócić do 101, jeśli zmienna x zostanie wstawiona bezpośrednio, np .:

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)

Zasadniczo sprawdza, czy wartości bezwzględne operacji div lub mod są równe cyfrze (co działa również dla 100).

GW Basic: 107 znaków bez białych znaków

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

Używanie pojedynczych cyfr w numerach linii pomaga, a spacja białych znaków oznacza, że ​​tak naprawdę nie ma potrzeby posiadania wielu instrukcji w wierszu więcej niż jeden raz, aby liczby osiągały 10.

GROOVY, 71

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

println f(0)
println f(9)

Prowadzi do

[-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

Za pomocą bitowego lub:

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 z niezbędnymi odstępami)

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

Nie golfowany:

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 znaki

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)

Aby przetestować w Pythonie:

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

VBA 121

(nie Sublicząc białych znaków ani definicji):

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 z usuniętymi nieistotnymi znakami białych znaków

Myślę, że szukałeś czegoś takiego. Odczytuje ze standardowego wyjścia, generuje jeden wiersz na dopasowanie. Żadnych wyrażeń regularnych, tablic (lub zestawów, skrótów lub czegokolwiek innego, co jest tablicą pod okładkami) lub ciągów, niejawnych lub innych, z wyjątkiem ciągów przekazanych do drukowania:

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"

na przykład:

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

dodano 5 znaków, ponieważ 0 nie było poprawnie obsługiwane. (Wszystkie wartości jednocyfrowe zostaną zwrócone).

To moja pierwsza gra w golfa kodowego. To wygląda całkiem interesująco. Nie mogę wygrać, ale próbowałem i chciałem pokazać, co mogę zrobić.

Python: 104 (89, jeśli mogę powtórzyć import) - jeśli wyniki muszą być wydrukowane dokładnie tak, jak pokazano w przykładzie

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 - jeśli dane wyjściowe można wykonać poza funkcją, a jedynym ograniczeniem dla danych wyjściowych jest to, że nie są drukowane żadne naruszające liczby

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 znaków

Przepraszam za kilka zmian, które miałem problemy z zrobieniem tego z mojego telefonu :)

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 znaki niebiałe

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

To samo co moje rozwiązanie Python, właśnie przekonwertowane na Dogelang .