19
\$\begingroup\$

The program should take input the number, the start of the range and the end of the range, and output how many integers the number appears between the start and end of the range, inclusive. Both programs and functions are allowed.

Example Inputs

For example:

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

All the above four input examples are valid and all of them mean that 3 is the number in question, 1 is the beginning of the range and 100 the the end of the range.

And then the program should output how many times 3 appears in the range from 1 to 100 inclusive. 3 appears in the integers 3, 13, 23, 30, 31, 32, 33, ..., 93 at a total of 19 times. So the program should output 19 as the output because that is how many times 3 appears in the range from 1 to 100.

Rules

  • Both programs and functions are allowed.
  • All numbers will be integers, meaning that there will not be any floats or doubles.
  • Note: the sought number will always be in the range 0≤x≤127. There will be no cases where it will be outside this 0≤x≤127 range.
  • As in the first example, with the case as 33, the number 3 will be counted as appearing only once, not twice.
  • The values of the start and end of the range will be between -65536 and 65535 inclusive.
  • The value of range's start will never exceed or equal to range's end. start < end
  • Also the range is inclusive. For example if the input was 8 8 10, the range would be 8≤x≤10 and hence the output will be 1.
  • Input can be taken in any of the ways shown in the examples. Input can be taken as a string or as a number, any way you wish.

Test Cases

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

To make sure that your answer shows up, please start your answer with a headline, using the following Markdown template:

# Language Name, N bytes

where N is the size of your submission. If you improve your score, you can keep old scores in the headline, by striking them through. For instance:

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

If there you want to include multiple numbers in your header (e.g. because your score is the sum of two files or you want to list interpreter flag penalties separately), make sure that the actual score is the last number in the header:

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

You can also make the language name a link which will then show up in the leaderboard snippet:

# [><>](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>

\$\endgroup\$

30 Answers 30

8
\$\begingroup\$

05AB1E, 6 bytes

Input in the form: upper bound, lower bound, number.

Ÿvy³åO

Explanation:

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

Uses the CP-1252 encoding. Try it online!

\$\endgroup\$
  • 4
    \$\begingroup\$ Chooses Groovy {a,b,c->} Aww... dangit, I lost before I started again. \$\endgroup\$ – Magic Octopus Urn Nov 4 '16 at 14:42
  • \$\begingroup\$ Congrats for winning this challenge! \$\endgroup\$ – Cows quack Nov 10 '16 at 16:39
  • \$\begingroup\$ @KritixiLithos Thank you! :) \$\endgroup\$ – Adnan Nov 10 '16 at 16:40
  • \$\begingroup\$ 6-bytes alternative: Ÿʒ³å}g \$\endgroup\$ – Kevin Cruijssen Sep 13 '18 at 11:13
9
\$\begingroup\$

Bash, 20 bytes

the obvious answer

seq $2 $3|grep -c $1

example

$ bash golf 3 1 100
19
\$\endgroup\$
6
\$\begingroup\$

Perl, 20 bytes

Saved 2 bytes by using grep as in @ardnew's answer.

Bytecount includes 18 bytes of code and -ap flags.

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

Give the 3 numbers on three separate lines :

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

Python 2, 47 43 Bytes

Relatively straightforward, making use of Python 2's repr short-form.

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
\$\endgroup\$
  • \$\begingroup\$ Why did you have to be all fancy and use -~a instead of a+1? \$\endgroup\$ – Artyer Nov 4 '16 at 18:15
  • 1
    \$\begingroup\$ @Artyer for fun! \$\endgroup\$ – Kade Nov 4 '16 at 19:05
4
\$\begingroup\$

JavaScript (ES6), 46 45 bytes

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

(My best nonrecursive version was 61 bytes.) Edit: Saved 1 byte thanks to @edc65.

\$\endgroup\$
  • \$\begingroup\$ !!match instead of includes. \$\endgroup\$ – edc65 Nov 3 '16 at 17:56
4
\$\begingroup\$

Jelly, 7 bytes

rAẇ@€⁵S

TryItOnline!

Input: Start, End, ToFind

How?

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

The default casting of an integer to an iterable for the sublist existence check casts to a decimal list (not a character list), so negative numbers have a leading negative value (e.g. -122->[-1,2,2] which won't find a sublist of [1,2]) so taking the absolute value first seems like the golfiest solution.

\$\endgroup\$
4
\$\begingroup\$

PowerShell v2+, 64 62 56 bytes

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

-6 bytes thanks to mazzy

Input via command-line arguments of the form number lower_bound upper_bound. A little goofy on the notation, because of the semicolons inside the for causing parse errors if it's not surrounded in $(...) to create a script block. We basically loop upward through $a until we hit $b, using Where-Object (the |?{...}) to pull out those numbers that regex -match against $c. That's encapsulated in parens, we take the .count thereof, and that's left on the pipeline and output is implicit.


If, however, we guarantee that the range will be no more than 50,000 elements, we can skip the loop and just use the range operator .. directly, for 45 43 bytes. Since that's not in the challenge specifications, though, this isn't valid. Bummer.

param($c,$a,$b)($a..$b|?{$_-match$c}).count
\$\endgroup\$
  • \$\begingroup\$ Great! Thanks for 50K elements info. A couple of suggestions param($c,$a,$b)$(for(;$a-le$b){1|?{$a++-match$c}}).count \$\endgroup\$ – mazzy Sep 12 '18 at 19:56
  • \$\begingroup\$ The param($c,$a,$b)($a..$b|?{$_-match$c}).count works with range -65536..65535 on Powershell 5.1 \$\endgroup\$ – mazzy Sep 12 '18 at 20:43
3
\$\begingroup\$

Vim, 46, 41 bytes

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

Input is in this format:

1, 100
3
\$\endgroup\$
2
\$\begingroup\$

Haskell, 65 bytes

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

The import ruins the score. Usage example: ((-200)#200)12 -> 24.

\$\endgroup\$
  • \$\begingroup\$ The usage example should output 24 because 12 appears 24 times between -200 and 200 \$\endgroup\$ – Cows quack Nov 3 '16 at 17:47
  • \$\begingroup\$ @KritixiLithos: Oh sorry! It does of course, it's just a copy & pase error. \$\endgroup\$ – nimi Nov 3 '16 at 17:49
2
\$\begingroup\$

Java 7 85 bytes

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

Swift 3, 96 93 bytes

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

Edit 1:

Saved 3 bytes by using shorthand parameters

\$\endgroup\$
2
\$\begingroup\$

Scala, 50 bytes

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

takes the first input curried; call it like this: f("12")(-200,200)

Explantion:

(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
  )
\$\endgroup\$
2
\$\begingroup\$

R, 32 bytes

Quite straightforward:

function(a,b,c)sum(grepl(a,b:c))
\$\endgroup\$
  • 1
    \$\begingroup\$ Welcome to PPCG! Nice answer but assuming that input is already specified is generally not accepted. To make your answer qualify you would either have to read input from stdin such as: a=scan();sum(grepl(a,a[2]:a[3])) or as arguments to a function: function(a,b,c)sum(grepl(a,b:c)), both equivalent in this case. \$\endgroup\$ – Billywob Nov 5 '16 at 14:23
  • \$\begingroup\$ @Billywob thanks, will keep this in mind! edited the answer accordingly. \$\endgroup\$ – Nutle Nov 10 '16 at 3:49
1
\$\begingroup\$

C#, 71 bytes

Beat my Java answer thanks to lambdas

(t,l,u)=>{int d=0;for(;l<=u;)if((l+++"").Contains(t+""))d++;return d;};
\$\endgroup\$
  • \$\begingroup\$ Java also has lambdas \$\endgroup\$ – Cows quack Nov 3 '16 at 18:27
  • \$\begingroup\$ Yeah I just started reading about it, but don't they require some boilerplate stuff that would make the bytecount larger, or can I not count it \$\endgroup\$ – Yodle Nov 3 '16 at 18:28
  • \$\begingroup\$ Shamelessly stole @Grax s javascript answer (n,s,e)=>s>e?0:((""+s).Contains(n+"")?1:0)+f(n,++s,e); is way shorter \$\endgroup\$ – hstde Nov 10 '16 at 8:49
1
\$\begingroup\$

Ruby 44 bytes

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

Test Cases:

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
\$\endgroup\$
1
\$\begingroup\$

PHP, 62 bytes

Pretty straight forward approach:

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

Try it online

\$\endgroup\$
  • \$\begingroup\$ Save 4 bytes with underscore or any letter as regex delimiter. (needs no quotes) \$\endgroup\$ – Titus Nov 28 '16 at 15:22
  • \$\begingroup\$ You can save 3 Byte <?=count(preg_grep("/$argv[1]/",range($argv[2],$argv[3]))); \$\endgroup\$ – Jörg Hülsermann May 8 '17 at 17:29
1
\$\begingroup\$

C, 143 135 bytes

Thanks to @Kritixi Lithos for helping save 8 bytes

Surely this can be done better, but its the best I've got for now. C doesn't handle strings very gracefully, so naturally it takes quite a few operations.

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

Ungolfed + program

#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));
}
\$\endgroup\$
  • \$\begingroup\$ I think you can remove the int i=l from the for-loop and instead initialise it with int t=0 like such int t=0,i=l to save a few bytes. \$\endgroup\$ – Cows quack Nov 4 '16 at 6:59
  • \$\begingroup\$ This not compile? C( N, l, h){char b[99], n[99];int t=0,i=l;sprintf(n,"%d",N);for(;i<=h;i++){sprintf(b,"%d",i);if(strstr(b,n))++t;}return t;} I think compile even with no include... \$\endgroup\$ – RosLuP Nov 4 '16 at 7:24
  • \$\begingroup\$ 93 bytes b[9],n[9],t;C(N,l,h){for(t=!sprintf(n,"%d",N);l<=h;strstr(b,n)&&++t)sprintf(b,"%d",l++);N=t;} \$\endgroup\$ – ceilingcat Sep 12 '18 at 20:30
1
\$\begingroup\$

JavaScript, 46 45 bytes

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

Recursively count until start > end

Edit: Switch to RegExp test to save a byte

\$\endgroup\$
1
\$\begingroup\$

PHP, 68 63 bytes

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

use like:

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

edit: 5 bytes saved thanks to Titus

\$\endgroup\$
  • \$\begingroup\$ strstr($a[2]++,$a[1])>"" instead of strpos($a[2]++,$a[1])!==false saves 5 bytes. \$\endgroup\$ – Titus Nov 28 '16 at 15:27
1
\$\begingroup\$

Powershell, 48 bytes

According to the rule, the range can contain more than 50,000 elements. So we can't use the range operator .. directly. Thanks AdmBorkBork.

Straightforward:

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

Test script:

$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"
}

Output:

True: 19
True: 19
True: 24
True: 0
True: 2
True: 1
True: 0
True: 44175
\$\endgroup\$
1
\$\begingroup\$

Japt, 14 8 bytes

Takes the integer to be found as the last input value.

õV èÈsøW

Try it online


Explanation

             :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
\$\endgroup\$
  • \$\begingroup\$ Since the previous versions lack an explanation I'm not sure about those, but your current 6-byte solution is incorrect I'm afraid. See this rule: "As in the first example, with the case as 33, the number 3 will be counted as appearing only once, not twice." Your occurrence-count for W would count the 3 twice. \$\endgroup\$ – Kevin Cruijssen Sep 13 '18 at 11:16
  • \$\begingroup\$ Thanks, @KevinCruijssen, came back to it ~a month later and was wondering why I was doing it the way I was when there was a shorter way - should have reread the challenge before updating! I've rolled it back now. \$\endgroup\$ – Shaggy Sep 13 '18 at 11:38
  • \$\begingroup\$ I had the same thing happen a few times. I see my answer, think: this can be much easier, am changing it. And right before I hit save changes I see I now misinterpret the challenge. Btw, I'm still curious about the explanation for the 8-byte solution. :) \$\endgroup\$ – Kevin Cruijssen Sep 13 '18 at 12:35
  • 1
    \$\begingroup\$ @KevinCruijssen: explanation added. \$\endgroup\$ – Shaggy Sep 13 '18 at 12:40
0
\$\begingroup\$

Java, 92 89 71 bytes

Now with lambdas!

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

Old 89 byte function solution:

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

Hooray for the super increment function!

\$\endgroup\$
  • \$\begingroup\$ You can remove int i=l from the for-loop and instead declare it with a like int a=0,i=l; to save few bytes \$\endgroup\$ – Cows quack Nov 3 '16 at 17:56
  • \$\begingroup\$ Ah I knew I missed something, thanks! \$\endgroup\$ – Yodle Nov 3 '16 at 18:10
  • 1
    \$\begingroup\$ Basically the same as this answer. \$\endgroup\$ – Cows quack Nov 3 '16 at 19:52
0
\$\begingroup\$

GolfSharp (non competing), 41 bytes

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

competing 45 bytes

(w,q,e)=>r(q,1+e-q).w(n=>n.T().I(w.T())).L();
\$\endgroup\$
  • 1
    \$\begingroup\$ The last commit was 8 minutes ago, so for this to be a competing answer requires that this worked before the challenge started. Can you verify this? \$\endgroup\$ – Kade Nov 3 '16 at 19:46
  • \$\begingroup\$ I think so, if not i will change it to non competing, edit the bugs fixed are necessary. will change now (i use challenges to improve the language) \$\endgroup\$ – downrep_nation Nov 3 '16 at 19:48
  • 2
    \$\begingroup\$ The code commit 8 minutes ago changed the I function to convert the element to a string first before checking if it contains it. \$\endgroup\$ – Kade Nov 3 '16 at 19:49
0
\$\begingroup\$

Groovy, 48 bytes

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

Racket 91 bytes

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

Ungolfed:

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

Testing:

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

Output:

19
19
24
0
2
1
\$\endgroup\$
0
\$\begingroup\$

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)

results

(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
\$\endgroup\$
0
\$\begingroup\$

Mathematica, 70 bytes

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

input

[12,-200,200]

output

24

\$\endgroup\$
0
\$\begingroup\$

Clojure, 65 bytes

#(count(for[i(range %2(inc %3)):when(some(set(str %))(str i))]i))
\$\endgroup\$
0
\$\begingroup\$

PHP, 56 Bytes

run as pipe Try it online

Input

$argv = [number_to_find, range_start, range_end];

Code

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

Explanation

#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
\$\endgroup\$
0
\$\begingroup\$

Perl 6, 32 bytes

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

Try it online!

\$\endgroup\$

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Not the answer you're looking for? Browse other questions tagged or ask your own question.