Program powinien wprowadzić liczbę, początek zakresu i koniec zakresu, oraz wypisać liczbę całkowitą, która pojawia się między początkiem i końcem zakresu, włącznie . Zarówno programy, jak i funkcje są dozwolone.

Przykładowe dane wejściowe

Na przykład:

//Input example 1
3,1,100
//Input example 2
3
1
100
//Input example 3
3 1 100
//Input example 4
a(3, 1, 100);

Wszystkie powyższe cztery przykłady wejściowe są poprawne i wszystkie oznaczają, że 3to liczba, o której mowa, 1jest początkiem zakresu i100 końcem zakresu.

Następnie program powinien wypisać, ile razy 3pojawia się w przedziale od 1do 100 włącznie . 3pojawia się w całkowitych 3, 13, 23, 30, 31, 32, 33, ..., 93w sumie 19 razy. Zatem program powinien wyświetlać 19dane wyjściowe, ponieważ tyle razy 3pojawia się w zakresie od 1do 100.

Zasady

• Zarówno programy, jak i funkcje są dozwolone.
• Wszystkie numery będą liczbami całkowitymi, co oznacza, że nie będzie nie być żadnych floats lub doubles.
• Uwaga: szukany numer zawsze będzie w zakresie 0≤x≤127. Nie będzie żadnych przypadków, gdzie będzie poza tym 0≤x≤127zakresem.
• Podobnie jak w pierwszym przykładzie, w przypadku as 33liczba 3będzie liczona jako pojawiająca się tylko raz , a nie dwa razy.
• Wartości początku i końca zakresu będą pomiędzy -65536i 65535włącznie.
• Wartość początku zakresu nigdy nie przekroczy lub nie przekroczy końca zakresu. start < end
• Zakres obejmuje również. Na przykład, jeśli wejście było 8 8 10, zakres będzie, 8≤x≤10a zatem wyjście będzie wynosić 1.
• Dane wejściowe można pobierać w dowolny ze sposobów pokazanych w przykładach. Dane wejściowe można traktować jako ciąg lub liczbę, w dowolny sposób.

Przypadki testowe

3 1 100
19

3 3 93
19

12,-200,200
24          //This is because 12 appears in -129, -128, ..., -112, -12, 12, 112, 120, 121, 122, ...

123,1,3
0           //This is because all of 123's digits have to appear in the same order

3 33 34
2           //Because 3 appears in 2 numbers: 33 and 34

a(0,-1,1);
1

$ java NotVerbose 127 -12 27
0

Snack Snippet

Aby upewnić się, że Twoja odpowiedź się pojawi, zacznij od nagłówka, korzystając z następującego szablonu Markdown:

# Language Name, N bytes

gdzie Njest rozmiar twojego zgłoszenia. Jeśli poprawić swój wynik, to może zachować stare porachunki w nagłówku, uderzając je przez. Na przykład:

# Ruby, <s>104</s> <s>101</s> 96 bytes

Jeśli chcesz umieścić w nagłówku wiele liczb (np. Ponieważ twój wynik to suma dwóch plików lub chcesz osobno wymienić kary za flagi tłumacza), upewnij się, że rzeczywisty wynik jest ostatnią liczbą w nagłówku:

# Perl, 43 + 2 (-p flag) = 45 bytes

Możesz także ustawić nazwę języka jako link, który pojawi się we fragmencie tabeli wyników:

# [><>](http://esolangs.org/wiki/Fish), 121 bytes

/* Configuration */

var QUESTION_ID = 98470; // Obtain this from the url
// It will be like https://XYZ.stackexchange.com/questions/QUESTION_ID/... on any question page
var ANSWER_FILTER = "!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe";
var COMMENT_FILTER = "!)Q2B_A2kjfAiU78X(md6BoYk";
var OVERRIDE_USER = 41805; // This should be the user ID of the challenge author.

/* App */

var answers = [], answers_hash, answer_ids, answer_page = 1, more_answers = true, comment_page;

function answersUrl(index) {
  return "https://api.stackexchange.com/2.2/questions/" +  QUESTION_ID + "/answers?page=" + index + "&pagesize=100&order=desc&sort=creation&site=codegolf&filter=" + ANSWER_FILTER;
}

function commentUrl(index, answers) {
  return "https://api.stackexchange.com/2.2/answers/" + answers.join(';') + "/comments?page=" + index + "&pagesize=100&order=desc&sort=creation&site=codegolf&filter=" + COMMENT_FILTER;
}

function getAnswers() {
  jQuery.ajax({
    url: answersUrl(answer_page++),
    method: "get",
    dataType: "jsonp",
    crossDomain: true,
    success: function (data) {
      answers.push.apply(answers, data.items);
      answers_hash = [];
      answer_ids = [];
      data.items.forEach(function(a) {
        a.comments = [];
        var id = +a.share_link.match(/\d+/);
        answer_ids.push(id);
        answers_hash[id] = a;
      });
      if (!data.has_more) more_answers = false;
      comment_page = 1;
      getComments();
    }
  });
}

function getComments() {
  jQuery.ajax({
    url: commentUrl(comment_page++, answer_ids),
    method: "get",
    dataType: "jsonp",
    crossDomain: true,
    success: function (data) {
      data.items.forEach(function(c) {
        if (c.owner.user_id === OVERRIDE_USER)
          answers_hash[c.post_id].comments.push(c);
      });
      if (data.has_more) getComments();
      else if (more_answers) getAnswers();
      else process();
    }
  });  
}

getAnswers();

var SCORE_REG = /<h\d>\s*([^\n,]*[^\s,]),.*?(\d+)(?=[^\n\d<>]*(?:<(?:s>[^\n<>]*<\/s>|[^\n<>]+>)[^\n\d<>]*)*<\/h\d>)/;

var OVERRIDE_REG = /^Override\s*header:\s*/i;

function getAuthorName(a) {
  return a.owner.display_name;
}

function process() {
  var valid = [];
  
  answers.forEach(function(a) {
    var body = a.body;
    a.comments.forEach(function(c) {
      if(OVERRIDE_REG.test(c.body))
        body = '<h1>' + c.body.replace(OVERRIDE_REG, '') + '</h1>';
    });
    
    var match = body.match(SCORE_REG);
    if (match)
      valid.push({
        user: getAuthorName(a),
        size: +match[2],
        language: match[1],
        link: a.share_link,
      });
    
  });
  
  valid.sort(function (a, b) {
    var aB = a.size,
        bB = b.size;
    return aB - bB
  });

  var languages = {};
  var place = 1;
  var lastSize = null;
  var lastPlace = 1;
  valid.forEach(function (a) {
    if (a.size != lastSize)
      lastPlace = place;
    lastSize = a.size;
    ++place;
    
    var answer = jQuery("#answer-template").html();
    answer = answer.replace("{{PLACE}}", lastPlace + ".")
                   .replace("{{NAME}}", a.user)
                   .replace("{{LANGUAGE}}", a.language)
                   .replace("{{SIZE}}", a.size)
                   .replace("{{LINK}}", a.link);
    answer = jQuery(answer);
    jQuery("#answers").append(answer);

    var lang = a.language;
    if (/<a/.test(lang)) lang = jQuery(lang).text();
    
    languages[lang] = languages[lang] || {lang: a.language, user: a.user, size: a.size, link: a.link};
  });

  var langs = [];
  for (var lang in languages)
    if (languages.hasOwnProperty(lang))
      langs.push(languages[lang]);

  langs.sort(function (a, b) {
    if (a.lang > b.lang) return 1;
    if (a.lang < b.lang) return -1;
    return 0;
  });

  for (var i = 0; i < langs.length; ++i)
  {
    var language = jQuery("#language-template").html();
    var lang = langs[i];
    language = language.replace("{{LANGUAGE}}", lang.lang)
                       .replace("{{NAME}}", lang.user)
                       .replace("{{SIZE}}", lang.size)
                       .replace("{{LINK}}", lang.link);
    language = jQuery(language);
    jQuery("#languages").append(language);
  }

}

body { text-align: left !important}

#answer-list {
  padding: 10px;
  width: 290px;
  float: left;
}

#language-list {
  padding: 10px;
  width: 290px;
  float: left;
}

table thead {
  font-weight: bold;
}

table td {
  padding: 5px;
}

<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script>
<link rel="stylesheet" type="text/css" href="//cdn.sstatic.net/codegolf/all.css?v=83c949450c8b">
<div id="answer-list">
  <h2>Leaderboard</h2>
  <table class="answer-list">
    <thead>
      <tr><td></td><td>Author</td><td>Language</td><td>Size</td></tr>
    </thead>
    <tbody id="answers">

    </tbody>
  </table>
</div>
<div id="language-list">
  <h2>Winners by Language</h2>
  <table class="language-list">
    <thead>
      <tr><td>Language</td><td>User</td><td>Score</td></tr>
    </thead>
    <tbody id="languages">

    </tbody>
  </table>
</div>
<table style="display: none">
  <tbody id="answer-template">
    <tr><td>{{PLACE}}</td><td>{{NAME}}</td><td>{{LANGUAGE}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr>
  </tbody>
</table>
<table style="display: none">
  <tbody id="language-template">
    <tr><td>{{LANGUAGE}}</td><td>{{NAME}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr>
  </tbody>
</table>

05AB1E , 6 bajtów

Dane wejściowe w postaci: górna granica , dolna granica , liczba .

Ÿvy³åO

Wyjaśnienie:

Ÿ       # Inclusive range, [a, ..., b]
 vy     # For each element...
   ³å   # Check if the third input is a substring of the number
     O  # Sum up the results

Wykorzystuje kodowanie CP-1252 . Wypróbuj online!

Bash, 20 bajtów

oczywista odpowiedź

seq $2 $3|grep -c $1

przykład

$ bash golf 3 1 100
19

Perl, 20 bajtów

Zaoszczędzono 2 bajty grep jak w użytkownika @ ardnew odpowiedź .

Liczba bajtów zawiera 18 bajtów kodu i -ap flag.

$_=grep/@F/,<>..<>

Podaj 3 liczby w trzech osobnych wierszach:

perl -ape '$_=grep/@F/,<>..<>' <<< "3
1
100"

Python 2, 47 43 bajtów

Stosunkowo prosty, wykorzystując reprkrótką formę Python 2 .

f=lambda n,a,b:a<b and(`n`in`a`)+f(n,-~a,b)

Ouput:

f(  3,    1, 100) -> 19
f(  3,    3,  93) -> 19
f( 12, -200, 200) -> 24
f(123,    1,   3) -> 0
f(  3,   33,  34) -> 2
f(  0,   -1,   1) -> 1
f(127,   12,  27) -> 0

JavaScript (ES6), 46 45 bajtów

f=(n,s,e)=>s<=e&&!!`${s++}`.match(n)+f(n,s,e)

(Moja najlepsza nierekurencyjna wersja miała 61 bajtów.) Edycja: Zapisano 1 bajt dzięki @ edc65.

Galaretka , 7 bajtów

rAẇ@€⁵S

TryItOnline!

Dane wejściowe: Start, End, ToFind

W jaki sposób?

rAẇ@€⁵S - Main link: Start, End, ToFind
r       - range: [Start, ..., End]
 A      - absolute values
     ⁵  - third input: ToFind
  ẇ@€   - sublist exists in with reversed @rguments for €ach
      S - sum

Domyślne rzutowanie liczby całkowitej na iterowalną dla kontroli istnienia podlisty jest rzutowane na listę dziesiętną (nie listę znaków), więc liczby ujemne mają wiodącą wartość ujemną (np. -122-> [-1,2,2]która nie znajdzie podlisty [1,2]), więc wzięcie najpierw wartość bezwzględna wydaje się najbardziej golfowym rozwiązaniem.

PowerShell v2 +, 64 62 56 bajtów

param($c,$a,$b)$(for(;$a-le$b){1|?{$a++-match$c}}).count

-6 bajtów dzięki mazzy

Wprowadzanie za pomocą argumentów wiersza polecenia o numerze postaci dolny_związany górny_związany . Trochę głupkowaty w notacji, ponieważ średniki wewnątrz forpowodują błędy analizy, jeśli nie są otoczone w $(...)celu utworzenia bloku skryptu. My w zasadzie pętli w górę przez $aaż trafiliśmy $b, używając Where-Object(the |?{...}), aby wyciągnąć te numery, które regex -matchprzeciw $c. To jest zamknięte w parens, bierzemy to .count, a to pozostaje w potoku, a wynik jest niejawny.

Jeśli jednak gwarantujemy, że zakres nie będzie większy niż 50 000 elementów, możemy pominąć pętlę i po prostu bezpośrednio użyć operatora zakresu .., dla 45 43 bajtów . Ponieważ jednak nie jest to określone w specyfikacji wyzwania, nie jest to ważne. Porażka.

param($c,$a,$b)($a..$b|?{$_-match$c}).count

Vim, 46 , 41 bajtów

C<C-r>=r<tab><C-r>")<cr><esc>jC0<esc>:g/<C-r>"/norm G<C-v><C-a>
kd{

Dane wejściowe są w tym formacie:

1, 100
3

Haskell, 65 bajtów

import Data.List
(s#e)i=sum[1|x<-[s..e],isInfixOf(show i)$show x]

importNiszczy wynik. Przykład użycia:((-200)#200)12 -> 24.

Java 7 85 bajtów

int x(int a,int b,int c){int t=0;for(;b<=c;)if((b+++"").contains(a+""))t++;return t;}

Swift 3, 96 93 bajtów

import Cocoa
func c(n:Int,s:Int,e:Int){print((s...e).filter{"\($0)".contains("\(n)")}.count)}

Edycja 1:

Zapisano 3 bajty przy użyciu parametrów skróconych

Scala, 50 bajtów

(c:String)=>(_:Int)to(_:Int)count(""+_ contains c)

pobiera pierwsze wejście curry; nazwij to tak:f("12")(-200,200)

Wyjaśnienie:

(c:String)=>  //define an anonymous function taking a string parameter
  (_:Int)     //create a range from an anonymous int parameter
  to          //to
  (_:Int)     //another anonymous int parameter
  count(      //and count how many...
   ""+_       //elements converted to a string
   contains c //contain c
  )

R, 32 bajty

Całkiem proste:

function(a,b,c)sum(grepl(a,b:c))

C #, 71 bajtów

Pokonaj moją odpowiedź Java dzięki lambdas

(t,l,u)=>{int d=0;for(;l<=u;)if((l+++"").Contains(t+""))d++;return d;};

Ruby 44 bajty

m=->(n,s,f){(s..f).count{|x|x.to_s[/#{n}/]}}

Przypadki testowe:

m.(3,1,100)     #=> 19
m.(3,3,93)      #=> 19
m.(12,-200,200) #=> 24
m.(123,1,3)     #=>  0
m.(3,33,34)     #=>  2
m.(0,-1,1)      #=>  1
m.(127,-12,27)  #=>  0

PHP, 62 bajty

Całkiem proste podejście:

<?=count(preg_grep('/'.($a=$argv)[1].'/',range($a[2],$a[3])));

Wypróbuj online

DO, 143 135 bajtów

Dzięki @Kritixi Lithos za pomoc w oszczędzaniu 8 bajtów

Z pewnością można to zrobić lepiej, ale jest to najlepsze, jakie mam na razie. C nie obsługuje napisów bardzo wdzięcznie, więc naturalnie zajmuje sporo operacji.

int C(int N,int l,int h){char b[99],n[99];int t=0,i=1;sprintf(n,"%d",N);for(;i<=h;i++){sprintf(b,"%d",i);if(strstr(b,n))++t;}return t;}

Program bez golfa +

#include <string.h>
#include <stdlib.h>
#include <stdio.h>

int C(int N,int l,int h)
{
    char b[99], n[99];
    int t=0,i=1;
    sprintf(n,"%d",N);
    for(;i<=h;i++)
    {
        sprintf(b,"%d",i);
        if(strstr(b,n))
            ++t;
    }
    return t;
}

int main()
{
  printf("%d\n", C(3, 1, 100));
}

JavaScript, 46 45 bajtów

f=(i,s,e)=>s>e?0:RegExp(i).test(s)+f(i,++s,e)

Rekurencyjnie licz do początku> końca

Edycja: Przejdź do testu RegExp, aby zapisać bajt

PHP, 68 63 bajtów

for($a=$argv;$a[2]<=$a[3];)$o+=strstr($a[2]++,$a[1])>'';echo$o;

użyj jak:

 php -r "for($a=$argv;$a[2]<=$a[3];)$o+=strstr($a[2]++,$a[1])>'';echo$o;" 3 1 100

edycja: 5 bajtów zapisanych dzięki Titusowi

PowerShell, 48 bajtów

Zgodnie z regułą zakres może zawierać ponad 50 000 elementów. Nie możemy więc ..bezpośrednio korzystać z operatora zasięgu . Dzięki AdmBorkBork .

Bezpośredni:

param($c,$a,$b)for(;$a-le$b){$i+=$a++-match$c}$i

Skrypt testowy:

$f = {

param($c,$a,$b)for(;$a-le$b){$i+=$a++-match$c}$i

}

@(
    ,(19, 3,1,100)
    ,(19, 3,3,93)
    ,(24, 12,-200,200)
    ,(0, 123,1,3)
    ,(2, 3,33,34)
    ,(1, 0,-1,1)
    ,(0, 127,-12,27)
    ,(44175, 0,-65536,65535)
) | % {
    $e,$a = $_
    $r = &$f @a
    "$($e-eq$r): $r"
}

Wynik:

True: 19
True: 19
True: 24
True: 0
True: 2
True: 1
True: 0
True: 44175

Japt , 14 8 bajtów

Pobiera liczbę całkowitą jako ostatnią wartość wejściową.

õV èÈsøW

Wypróbuj online

Wyjaśnienie

             :Implicit input of integers U=start, V=end & W=number
õV           :Range [U,V]
    È        :Map
     s       :  Convert to string
      øW     :  Contains W?
   è         :Count truthy values

Java, 92 89 71 bajtów

Teraz z lambdas!

(t,l,u)->{int z=0;for(;l<=u;)if((l+++"").contains(t+""))z++;return z;};

Stare 89-bajtowe rozwiązanie funkcji:

int d(int t,int l,int u){int a=0,i=l;for(;i<=u;)if((i+++"").contains(t+""))a++;return a;}

Brawo dla funkcji super przyrostowej!

GolfSharp (nie konkuruje), 41 bajtów

(w,q,e)=>r(q,1+e-q).w(n=>n.T().I(w)).L();

konkurujące 45 bajtów

(w,q,e)=>r(q,1+e-q).w(n=>n.T().I(w.T())).L();

Groovy, 48 bajtów

{a,b,c->(a..b).collect{"$it".count("$c")}.sum()}

Rakieta 91 bajtów

(for/sum((i(range s(+ 1 e))))(if(string-contains?(number->string i)(number->string d))1 0))

Nie golfowany:

(define(f d s e)
  (for/sum ((i (range s (+ 1 e))))
    (if(string-contains?
        (number->string i)
        (number->string d))
       1 0 )))

Testowanie:

(f 3 1 100)
(f 3 3 93)
(f 12 -200 200)
(f 123 1 3)
(f 3 33 34)
(f 0 -1 1)

Wynik:

19
19
24
0
2
1

Axiom bytes 90

f(y,a,b)==(c:=0;for x in a..b repeat(if position(y::String,x::String,1)~=0 then c:=c+1);c)

wyniki

(3) -> f(3,1,100)=19,f(3,3,93)=19,f(12,-200,200)=24,f(123,1,3)=0,f(3,33,34)=2
   (3)  [19= 19,19= 19,24= 24,0= 0,2= 2]
                                  Type: Tuple Equation NonNegativeInteger
(4) -> f(0,-1,1)=1, f(127,12,27)=0
   (4)  [1= 1,0= 0]
                                  Type: Tuple Equation NonNegativeInteger

Mathematica, 70 bajtów

(w=ToString;t=0;Table[If[StringContainsQ[w@i,w@#1],t++],{i,#2,#3}];t)&

Wejście

[12, -200,200]

wynik

24

Clojure, 65 bajtów

#(count(for[i(range %2(inc %3)):when(some(set(str %))(str i))]i))

PHP, 56 bajtów

uruchom jako potok Wypróbuj online

Wejście

$argv = [number_to_find, range_start, range_end];

Kod

<?=substr_count(join(range(($a=$argv)[1],$a[2])),$a[0]);

Wyjaśnienie

#substrcount, counts the aparitions of a subtring in a string
substr_count( 
           join( range(($a=$argv)[1],$a[2])), # String with the range
           $a[0]);                            # The number you are looking for

Perl 6 , 32 bajty

{+grep *.contains($^a),$^b..$^c}

Wypróbuj online!