কতগুলি পূর্ণসংখ্যার একটি নির্দিষ্ট ব্যাপ্তিতে একটি সংখ্যা থাকে


19

প্রোগ্রামটির ইনপুট নম্বর নেওয়া উচিত, পরিসীমাটির শুরু এবং পরিসীমাটির শেষ এবং আউটপুটটি সংখ্যার শুরু এবং শেষের মধ্যে কত সংখ্যক পূর্ণসংখ্যার প্রদর্শিত হবে তা অন্তর্ভুক্ত করে । উভয় প্রোগ্রাম এবং ফাংশন অনুমোদিত।

উদাহরণ ইনপুট

উদাহরণ স্বরূপ:

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

উপরের চারটি ইনপুট উদাহরণ বৈধ এবং এগুলির সবকটির অর্থ 3হ'ল প্রশ্নাবলীর সংখ্যা, 1ব্যাপ্তির শুরু এবং ব্যাপ্তির 100শেষ।

এবং তারপরে প্রোগ্রামটি আউটপুট করা উচিত কতগুলি অন্তর্ভুক্ত3 থেকে শুরু 1করে তার পরিসীমাটিতে কতবার প্রদর্শিত হয় । পূর্ণসংখ্যার দেখা , , , , , , , ..., 19 বার মোট করেন। সুতরাং প্রোগ্রাম উচিত আউটপুট আউটপুট কারণ যে কতবার হল থেকে সীমার মধ্যে প্রদর্শিত করতে ।100 33132330313233931931100

বিধি

  • উভয় প্রোগ্রাম এবং ফাংশন অনুমোদিত।
  • সমস্ত সংখ্যা পূর্ণসংখ্যার হবে, মানে কোনও এস বা এস থাকবে নাfloatdouble
  • দ্রষ্টব্য: সন্ধান করা নম্বর সর্বদা সীমার মধ্যে থাকবে 0≤x≤127। এটি এই ব্যাপ্তির বাইরে থাকবে এমন কোনও মামলা থাকবে না 0≤x≤127
  • প্রথম উদাহরণ হিসাবে 33, হিসাবে কেস হিসাবে , সংখ্যাটি একবারে3 প্রদর্শিত হবে , দুবার নয় একবার হিসাবে গণনা করা হবে ।
  • ব্যাপ্তির শুরু এবং শেষের মানগুলি হবে -65536এবং 65535সমেত।
  • ব্যাপ্তির শুরুর মান কখনই সীমার শেষের চেয়ে বেশি বা সমান হবে না। start < end
  • এছাড়াও পরিসীমা অন্তর্ভুক্ত। উদাহরণস্বরূপ যদি ইনপুটটি হয় 8 8 10, তবে পরিসীমা হবে 8≤x≤10এবং তাই আউটপুটটি 1 হবে।
  • উদাহরণগুলিতে দেখানো যেকোন উপায়ে ইনপুট নেওয়া যেতে পারে। ইনপুটটি আপনার ইচ্ছামতো যে কোনও উপায়ে স্ট্রিং বা সংখ্যা হিসাবে নেওয়া যেতে পারে।

পরীক্ষার মামলা

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

নাস্তা স্নিপেট

আপনার উত্তরটি প্রদর্শিত হয়েছে তা নিশ্চিত করার জন্য, দয়া করে নীচের মার্কডাউন টেম্পলেটটি ব্যবহার করে আপনার উত্তরটি শিরোনাম দিয়ে শুরু করুন:

# Language Name, N bytes

Nআপনার জমা দেওয়ার আকারটি কোথায় ? আপনি যদি নিজের স্কোরটি উন্নত করেন তবে আপনি পুরানো স্কোরগুলি শিরোনামে রেখে দিতে পারেন । এই ক্ষেত্রে:

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

যদি আপনি নিজের শিরোনামে একাধিক সংখ্যা অন্তর্ভুক্ত করতে চান (যেমন আপনার স্কোর দুটি ফাইলের সমষ্টি বা আপনি পৃথকভাবে দোভাষী পতাকা দণ্ডের তালিকা করতে চান), নিশ্চিত করুন যে আসল স্কোরটি শিরোনামের শেষ সংখ্যা:

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

আপনি ভাষাটির নামটিকে একটি লিঙ্কও বানাতে পারেন যা লিডারবোর্ড স্নিপেটে প্রদর্শিত হবে:

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

উত্তর:


8

05 এ বি 1 ই , 6 বাইট

আকারে ইনপুট: উপরের বাউন্ড , নিম্ন সীমা , সংখ্যা

Ÿvy³åO

ব্যাখ্যা:

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

সিপি -1222 এনকোডিং ব্যবহার করে । এটি অনলাইন চেষ্টা করুন!


4
গ্রোভি {a,b,c->} ওউ ... বেছে নিন, আবার শুরু করার আগে আমি হেরে গিয়েছিলাম।
ম্যাজিক অক্টোপাস আরন

এই চ্যালেঞ্জ জয়ের জন্য অভিনন্দন!
ক্রিটসি লিথোস

@ ক্রিটিক্সিলিথোস আপনাকে ধন্যবাদ! :)
আদনান

6-বাইট বিকল্প:Ÿʒ³å}g
কেভিন ক্রুইজসেন

9

বাশ, 20 বাইট

সুস্পষ্ট উত্তর

seq $2 $3|grep -c $1

উদাহরণ

$ bash golf 3 1 100
19

6

পার্ল, 20 বাইট

ব্যবহার করে 2 বাইট সংরক্ষিত grep@ ardnew এর হিসাবে উত্তর

বাইটকাউন্টে কোড এবং -apপতাকাগুলির 18 বাইট অন্তর্ভুক্ত রয়েছে ।

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

তিনটি পৃথক লাইনে 3 নম্বর দিন:

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

5

পাইথন 2, 47 43 বাইট

তুলনামূলকভাবে সোজা, পাইথন 2 এর reprস্বল্প-রূপ ব্যবহার করে।

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

কেন আপনি সব অভিনব এবং -~aপরিবর্তে ব্যবহার করতে হবে a+1?
আরটিয়ার

1
মজাদার জন্য আর্টিয়ার!
কেদে

4

জাভাস্ক্রিপ্ট (ES6), 46 45 বাইট

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

(আমার সেরা নন-সংস্করণ সংস্করণটি ছিল 61 বাইট)


!!matchপরিবর্তে includes
edc65

4

জেলি , 7 বাইট

rAẇ@€⁵S

TryItOnline!

ইনপুট: শুরু, শেষ, টুফাইন্ড

কিভাবে?

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

সাবলিস্ট অস্তিত্বের জন্য পুনরাবৃত্তের জন্য একটি পূর্ণসংখ্যার ডিফল্ট ingালাই একটি দশমিক তালিকায় (ক্যারেক্টার তালিকা নয়) চূড়ান্ত হয়, তাই নেতিবাচক সংখ্যার একটি শীর্ষস্থানীয় নেতিবাচক মান থাকে (যেমন -122-> [-1,2,2]যা একটি উপ তালিকা খুঁজে পাবে না [1,2]) তাই গ্রহণ করে পরম মানটি প্রথমে গল্ফিয়াস্ট সমাধানের মতো মনে হয়।


4

পাওয়ারশেল ভি 2 +, 64 62 56 বাইট

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

-6 বাইট মজির ধন্যবাদ

নিম্ন_বাউন্ড উপরের_বাউন্ড ফর্ম নম্বরটির কমান্ড-লাইন আর্গুমেন্টের মাধ্যমে ইনপুট । স্বরলিপিটি সম্পর্কে একটু বোকা, কারণ স্ক্রিপ্ট ব্লক তৈরি করার forআশেপাশে না থাকলে কারণ পার্সিং ত্রুটির ভিতরে থাকা অর্ধিকোলগুলি $(...)। আমরা $aহিট না হওয়া পর্যন্ত আমরা মূলত উপরের দিকে লুপ করি না $b, Where-Object( |?{...}সংখ্যাগুলি) ব্যবহার করে সেই সংখ্যাগুলি টানতে যেগুলির -matchবিরুদ্ধে রেগেক্স থাকে $c। এটি পেরেন্সে আবদ্ধ হয়, আমরা এটি নিই .countএবং পাইপলাইনে রেখে গেছে এবং আউটপুট অন্তর্ভুক্ত।


তবে, আমরা গ্যারান্টি দিই যে পরিসর কোন 50,000 চেয়ে বেশি উপাদান হতে হবে, আমরা লুপ এড়িয়ে যেতে পারেন এবং মাত্র পরিসীমা অপারেটর ব্যবহার ..সরাসরি জন্য 45 43 বাইট । যেহেতু এটি চ্যালেঞ্জের স্পেসিফিকেশনে নেই, যদিও এটি বৈধ নয়। হতাশাজনক।

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

গ্রেট! 50K উপাদান তথ্যের জন্য ধন্যবাদ। বেশ কয়েকটি পরামর্শparam($c,$a,$b)$(for(;$a-le$b){1|?{$a++-match$c}}).count
মজজি

param($c,$a,$b)($a..$b|?{$_-match$c}).countপরিসরের মধ্যে -65536..65535 সাথে কাজেPowershell 5.1
mazzy


2

হাস্কেল, 65 বাইট

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

importস্কোর ধ্বংসাবশেষ। ব্যবহারের উদাহরণ: ((-200)#200)12-> 24


ব্যবহারের উদাহরণটি 24 আউটপুট করা উচিত কারণ 12 -200 এবং 200 এর মধ্যে 24 বার প্রদর্শিত হয়
ক্রিটিক্স লিথোস

@ ক্রিটিক্সিলিথোস: ওহ দুঃখিত! এটি অবশ্যই করে, এটি কেবল একটি অনুলিপি এবং পেজ ত্রুটি।
নিমি

2

জাভা 7 85 বাইট

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

2

সুইফট 3, 96 93 বাইট

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

সম্পাদনা 1:

শর্টহ্যান্ড পরামিতি ব্যবহার করে 3 বাইট সংরক্ষণ করা হয়েছে


2

স্কালা, 50 বাইট

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

প্রথম ইনপুট তরকারি গ্রহণ করে; এটিকে কল করুন: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
  )

2

আর, 32 বাইট

বেশ সোজা:

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

1
পিপিসিজিতে আপনাকে স্বাগতম! উত্তম উত্তর তবে ধরে নেওয়া যে ইনপুট ইতিমধ্যে নির্দিষ্ট করা আছে তা সাধারণত গৃহীত হয় না। আপনার উত্তরটি যোগ্য করে তোলার জন্য আপনাকে হয় স্টিডিনের ইনপুট যেমন পড়তে হবে যেমন: a=scan();sum(grepl(a,a[2]:a[3]))বা কোনও ফাংশনে যুক্তি হিসাবে: function(a,b,c)sum(grepl(a,b:c))এই ক্ষেত্রে উভয়ই সমতুল্য।
বিলিওব

@ বিলিউব ধন্যবাদ, এটি মনে রাখবেন! সেই অনুসারে উত্তর সম্পাদনা করেছেন।
নিউট

1

সি #, 71 বাইট

আমার জাভা উত্তর ল্যাম্বডাস ধন্যবাদ বীট

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

জাভাতেও
ল্যাম্বডাস

হ্যাঁ আমি এটি সম্পর্কে সবেমাত্র পড়া শুরু করেছিলাম, তবে তাদের জন্য এমন কিছু বয়লারপ্লেট স্টাফের দরকার নেই যা বাইটোকন্টটি আরও বড় করে তুলবে, বা আমি এটি গণনা করতে পারি না
ইয়ডল

নির্লজ্জভাবে চুরি @Grax গুলি জাভাস্ক্রিপ্ট উত্তর (n,s,e)=>s>e?0:((""+s).Contains(n+"")?1:0)+f(n,++s,e);হল উপায় খাটো
hstde


1

পিএইচপি, 62 বাইট

বেশ সোজা এগিয়ে এগিয়ে যাওয়া:

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

এটি অনলাইনে চেষ্টা করুন


আন্ডারস্কোর বা রেজিেক্স ডিলিমিটার হিসাবে কোনও অক্ষর সহ 4 বাইট সংরক্ষণ করুন। (কোনও উদ্ধৃতি দরকার নেই)
তিতাস

আপনি 3 বাইট সংরক্ষণ করতে পারেন<?=count(preg_grep("/$argv[1]/",range($argv[2],$argv[3])));
Jörg Hülsermann

1

সি, 143 135 বাইট

8 ক্রাইটিক্স লিথোসকে 8 টি বাইট সংরক্ষণে সাহায্য করার জন্য ধন্যবাদ

অবশ্যই এটি আরও ভাল করা যেতে পারে তবে এটি আমার পক্ষে এখনকার সেরা। সি স্ট্রিংগুলি খুব করুণভাবে পরিচালনা করে না, তাই স্বাভাবিকভাবেই এটি বেশ কয়েকটি অপারেশন নেয়।

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

অবহেলিত + প্রোগ্রাম

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

আমি মনে করি আপনি int i=lলুপ থেকে অপসারণ করতে পারেন এবং এর পরিবর্তে কয়েকটি বাইট সংরক্ষণ করার int t=0মতো এটি দিয়ে আরম্ভ করতে পারেন int t=0,i=l
ক্রিটসি লিথোস

এই সংকলন না? সি (এন, এল, এইচ) {চর বি [99], এন [99]; ইনট টি = 0, আই = এল; স্প্রিন্টফ (এন, "% ডি", এন); এর জন্য (; আমি <= এইচ; আই ++ ) {স্প্রিন্ট্ফ (বি, "% ডি", আই); যদি (স্টারস্টার (বি, এন)) ++ টি;} রিটার্ন টি;} আমি মনে করি এমনকি অন্তর্ভুক্ত না করে সংকলন করি ...
RosLuP

93 বাইট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;}
সিলিংক্যাট

1

জাভাস্ক্রিপ্ট, 46 45 বাইট

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

পুনরাবৃত্তভাবে গণনা শুরু করুন> শেষ পর্যন্ত

সম্পাদনা: একটি বাইট সংরক্ষণ করতে RegExp পরীক্ষায় স্যুইচ করুন


1

পিএইচপি, 68 63 বাইট

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

যেমন ব্যবহার করুন:

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

সম্পাদনা করুন: টাইটাসকে 5 বাইট সংরক্ষণ করা হয়েছে


strstr($a[2]++,$a[1])>""পরিবর্তে strpos($a[2]++,$a[1])!==false5 বাইট সংরক্ষণ করুন।
তিতাস

1

পাওয়ারশেল, 48 বাইট

নিয়ম অনুসারে, পরিসীমাতে 50,000 এরও বেশি উপাদান থাকতে পারে। সুতরাং আমরা ..সরাসরি পরিসীমা অপারেটরটি ব্যবহার করতে পারি না । ধন্যবাদ অ্যাডমবর্কবার্ক

সহজবোধ্য:

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

পরীক্ষার স্ক্রিপ্ট:

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

আউটপুট:

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

1

জাপট , 14 8 বাইট

শেষ ইনপুট মান হিসাবে পূর্ণসংখ্যার সন্ধান করে।

õV èÈsøW

এটি অনলাইনে চেষ্টা করুন


ব্যাখ্যা

             :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

যেহেতু পূর্ববর্তী সংস্করণগুলির কোনও ব্যাখ্যা নেই তবে আমি সেগুলি সম্পর্কে নিশ্চিত নই, তবে আপনার বর্তমান 6-বাইট সমাধানটি ভুল বলে আমি ভীত। এই নিয়মটি দেখুন: " যেমন প্রথম উদাহরণ হিসাবে 33, কেস হিসাবে , সংখ্যাটি 3একবারে উপস্থিত হবে বলে গণনা করা হবে, দু'বার নয় " "আপনার উপস্থিতি-গণনাটি দ্বিগুণ Wগণনা করবে 3
কেভিন ক্রুইজসেন

ধন্যবাদ, @ কেভিন ক্রুজসেন, এটি ফিরে এসেছিল - একমাস পরে এবং ভাবছিলাম যে কেন আমি যখন ছোট ছিলাম তখন কেন এমনটি করছিলাম - আপডেট করার আগে চ্যালেঞ্জটি পুনরায় পাঠ করা উচিত ছিল! আমি এখন এটি আবার ঘুরিয়েছি।
শেগি

আমি একই জিনিস কয়েকবার ঘটেছে। আমি আমার উত্তরটি দেখছি, ভাবেন: এটি অনেক সহজ হতে পারে, এটি পরিবর্তন করছি। এবং পরিবর্তনগুলি সংরক্ষণের ঠিক আগে আমি দেখতে পাচ্ছি যে আমি এখন চ্যালেঞ্জটির ভুল ব্যাখ্যা করে। বিটিডব্লিউ, আমি 8-বাইট সমাধানের ব্যাখ্যা সম্পর্কে এখনও আগ্রহী। :)
কেভিন ক্রুইজসেন

1
@ কেভিন ক্রুজসেন: ব্যাখ্যা যুক্ত হয়েছে।
শেগি

0

জাভা, 92 89 71 বাইট

লম্বাডাস নিয়ে এখন!

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

ওল্ড 89 বাইট ফাংশন সমাধান:

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

সুপার ইনক্রিমেন্ট ফাংশনের জন্য হুর!


আপনি int i=lফর-লুপ থেকে অপসারণ করতে পারেন এবং পরিবর্তে এটি কয়েকটি বাইট সংরক্ষণ করতে aপছন্দ করে ঘোষণা করতে পারেনint a=0,i=l;
ক্রিটসি লিথোস

আহ আমি জানতাম আমি কিছু মিস করেছি, ধন্যবাদ!
ইয়োডল

1
মূলত এই উত্তর হিসাবে একই ।
ক্রিটসি লিথোস

0

গল্ফশার্প (অ-প্রতিযোগিতামূলক), 41 বাইট

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

প্রতিযোগিতা 45 বাইট

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

1
শেষ প্রতিশ্রুতি 8 মিনিট আগে হয়েছিল, সুতরাং এটির একটি প্রতিযোগিতামূলক উত্তর হওয়ার জন্য চ্যালেঞ্জ শুরুর আগে এটি কাজ করা প্রয়োজন। আপনি এটি যাচাই করতে পারেন?
কেদে

আমি মনে করি, তাই না হলে আমি এটি অ-প্রতিযোগিতায় পরিবর্তন করব, স্থির বাগগুলি সম্পাদনা করা প্রয়োজনীয় necessary এখনই পরিবর্তন হবে (ভাষা উন্নতির জন্য আমি চ্যালেঞ্জগুলি ব্যবহার করি)
ডাউনরেপ_নেশন

2
কোডটি কমিট করে 8 মিনিট আগে Iউপাদানটি এতে রয়েছে কিনা তা যাচাই করার আগে প্রথমে উপাদানটিকে স্ট্রিংয়ে রূপান্তর করতে ফাংশনটি পরিবর্তন করে changed
কেদে


0

রেকেট 91 বাইট

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

পরীক্ষামূলক:

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

আউটপুট:

19
19
24
0
2
1

0

অ্যাক্সিয়াম 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)

ফলাফল

(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

0

গণিত, 70 বাইট

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

ইনপুট

[12, -200.200]

আউটপুট

24



0

পিএইচপি, 56 বাইট

পাইপ হিসাবে চালান এটি অনলাইন চেষ্টা করুন

ইনপুট

$argv = [number_to_find, range_start, range_end];

কোড

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

ব্যাখ্যা

#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

আমাদের সাইট ব্যবহার করে, আপনি স্বীকার করেছেন যে আপনি আমাদের কুকি নীতি এবং গোপনীয়তা নীতিটি পড়েছেন এবং বুঝতে পেরেছেন ।
Licensed under cc by-sa 3.0 with attribution required.