คำถาม:

5คุณจะได้รับเริ่มต้นและสิ้นสุดของจำนวนเต็มลำดับและควรกลับจำนวนของจำนวนเต็มที่อยู่ภายในซึ่งไม่ได้มีหลัก ควรระบุหมายเลขเริ่มต้นและปลายทาง!

ตัวอย่าง:

1,9 → 1,2,3,4,6,7,8,9 →ผล 8

4,17 → 4,6,7,8,9,10,11,12,13,14,16,17 →ผล 12

50,60 → 60 →ผล 1

-59, -50 →→ผล 0

ผลลัพธ์อาจมีห้า

หมายเลขเริ่มต้นจะเล็กกว่าหมายเลขปลายทางเสมอ ตัวเลขทั้งสองสามารถเป็นลบได้!

ฉันอยากรู้วิธีแก้ปัญหาของคุณและวิธีการแก้ปัญหาของคุณ อาจจะมีใครบางคนในคุณจะพบทางออกที่ง่ายคณิตศาสตร์บริสุทธิ์

แก้ไข นี่คือความท้าทายในการเล่นกอล์ฟดังนั้นรหัสที่สั้นที่สุดชนะ

JavaScript (ES6), 36 33 ไบต์

(a)(b)จะเข้ากับไวยากรณ์ currying

a=>F=b=>b<a?0:!/5/.test(b)+F(b-1)

จัดรูปแบบและแสดงความคิดเห็น

a =>                 // outer function: takes 'a' as argument, returns F
  F = b =>           // inner function F: takes 'b' as argument, returns the final result
    b < a ?          // if b is less than a
      0              //   return 0
    :                // else
      !/5/.test(b) + //   add 1 if the decimal representation of b does not contain any '5'
      F(b - 1)       //   and do a recursive call to F with b - 1

กรณีทดสอบ

let f =

a=>F=b=>b<a?0:!/5/.test(b)+F(b-1)

console.log(f(1)(9))
console.log(f(4)(17))
console.log(f(50)(60))
console.log(f(-50)(-59))

เยลลี่ , 8 7 ไบต์

-1 ไบต์ขอบคุณเดนนิส (ใช้ข้อเท็จจริงที่ว่าการจัดทำดัชนีเป็นตัวเลขจะถือว่าเป็นจำนวนทศนิยม)

rAw€5¬S

TryItOnline!

อย่างไร?

rAw€5¬S - Main link: from, to    e.g. -51, -44
r       - range(from, to)        e.g. [-51,-50,-49,-48,-47,-46,-45,-44]
 A      - absolute value         e.g. [51,50,49,48,47,46,45,44]
  w€    - first index of... for €ach (0 if not present)
    5   - five                   e.g. [1,1,0,0,0,0,2,0]
     ¬  - logical not            e.g. [0,0,1,1,1,1,0,1]
      S - sum                    e.g. 5

* อะตอมของค่าสัมบูรณ์Aมีความจำเป็นเนื่องจากจำนวนลบที่ส่งไปยังรายการเลขฐานสิบมีรายการติดลบซึ่งจะไม่มีเลย5(ตัวอย่างที่ให้จะนับทั้งแปดแทนที่จะเป็นสอง)

Bash + grep, 17 ไบต์

seq $@|grep -cv 5

ลองออนไลน์!

2sable , 6 5 ไบต์

บันทึกเป็นไบต์ขอบคุณAdnan

Ÿ5¢_O

ลองออนไลน์!

คำอธิบาย

 Ÿ      # inclusive range
  5¢    # count 5's in each element of the range
    _   # negate
     O  # sum

หมายเหตุ:สิ่งนี้ใช้งานได้เนื่องจากข้อบกพร่องใน¢การทำให้ฟังก์ชั่นใช้กับตัวเองกับแต่ละองค์ประกอบแทนการนับองค์ประกอบที่ตรงกันในรายการ

Python2, 59 55 52 51 47 43 42 ไบต์

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

โซลูชันแบบเรียกซ้ำ ขอบคุณ@xnor ที่ให้แรงบันดาลใจแก่ฉันในการหาทางออกโดยใช้ตัวดำเนินการเชิงตรรกะ! นอกจากนี้ต้องขอบคุณ@JonathanAllanและ@xnorสำหรับแนวทางฉันและสับไบต์ 43-42!

ความพยายามอื่น ๆ ที่ 43 ไบต์

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

ยูทิลิตีBash / Unix ขนาด 21 ไบต์

seq $*|sed /5/d|wc -l

ลองออนไลน์!

05AB1E , 8 7 6 ไบต์

บันทึกเป็นไบต์ขอบคุณAdnan

Ÿ5.å_O

ลองออนไลน์!

คำอธิบาย

Ÿ         # inclusive range
 5.å      # map 5 in y for each y in the list
    _     # logical negation 
     O    # sum

Pyth, 9 8 ไบต์

บันทึกเป็นไบต์ด้วย FryAmTheEggman!

lf-\5T}E

คำอธิบาย:

        Q # Input
      }E  # Form an inclusive range starting from another input
          #   order is reversed, but doesn't matter
 f-\5T    # Filter by absence of '5'
l         # Count the number of elements left

ลองออนไลน์!

Perl 6 , 23 ไบต์

{+grep {!/5/},$^a..$^b}

ลองออนไลน์!

มันทำงานอย่างไร

{                     }  # A lambda.
              $^a..$^b   # Range between the two lambda arguments.
  grep {!/5/},           # Get those whose string representation doesn't match the regex /5/.
 +                       # Return the size of this list.

Haskell , 39 ไบต์

s!e=sum[1|x<-[s..e],notElem '5'$show x]

ลองออนไลน์! การใช้งาน:

Prelude> 4 ! 17
12

คำอธิบาย:

             [s..e]                     -- yields the range from s to e inclusive
          x<-[s..e]                     -- for each x in this range
          x<-[s..e],notElem '5'$show x  -- if the char '5' is not in the string representation of x
       [1|x<-[s..e],notElem '5'$show x] -- then add a 1 to the resulting list      
s!e=sum[1|x<-[s..e],notElem '5'$show x] -- take the sum of the list

R, 33 ไบต์

f=function(x,y)sum(!grepl(5,x:y))

การใช้งาน:

> f=function(x,y)sum(!grepl(5,x:y))
> f(40,60)
[1] 10
> f(1,9)
[1] 8
> f(4,17)
[1] 12

อ็อกเทฟ 36 ไบต์

@(m,n)sum(all(dec2base(m:n,10)'-52))

ลองออนไลน์!

Groovy, 47 45 43 40 ไบต์

{a,b->(a..b).findAll{!(it=~/5/)}.size()}

นี่คือการปิดไม่มีชื่อ findAllคล้ายกับการเพิ่มifเงื่อนไขในรายการความเข้าใจในหลาม

ลองออนไลน์!

PHP 7.1, 57 55 ไบต์

for([,$a,$b]=$argv;$a<=$b;)$n+=!strstr($a++,53);echo$n;

ทำงานด้วย php -r '<code>' <a> <b>

Mathematica, 46 44 42 ไบต์

ขอบคุณ alephalpha และ DavidC สำหรับการบันทึก 2 ไบต์ต่อครั้ง!

Tr@Boole[FreeQ@5/@IntegerDigits@Range@##]&

ฟังก์ชันที่ไม่มีชื่อจะรับอาร์กิวเมนต์จำนวนเต็มสองรายการและส่งคืนจำนวนเต็ม IntegerDigits@Range@##แปลงตัวเลขทั้งหมดระหว่างอินพุตเป็นรายการของตัวเลข ทดสอบรายการเหล่านั้นที่จะตัดสินใจว่าคนที่ไม่ได้มีการใด ๆFreeQ@5 5จากนั้นBooleแปลงบูลีนเป็นค่าศูนย์และรายการและTrสรุปผล

โซลูชันอื่น ๆ (44 และ 47 ไบต์):

Count[Range@##,x_/;IntegerDigits@x~FreeQ~5]&

IntegerDigits@x~FreeQ~5พิจารณาว่ารายการของตัวเลขเป็นอิสระจาก 5s และCount[Range@##,x_/;...]&นับจำนวนตัวเลขระหว่างอินพุตที่ผ่านการทดสอบนั้นหรือไม่

Tr[Sign[1##&@@IntegerDigits@#-5]^2&/@Range@##]&

1##&@@IntegerDigits@#-5ใช้รายการตัวเลขเป็นตัวเลขลบ 5 จากทั้งหมดและคูณคำตอบด้วยกัน Sign[...]^2จากนั้นแปลงตัวเลขที่ไม่ใช่ศูนย์ทั้งหมดเป็น 1

Ruby, 36 35 ไบต์

->a,b{(a..b).count{|x|!x.to_s[?5]}}

Thx IMP1 สำหรับ -1 ไบต์

Java 7, 80 78 ไบต์

int c(int a,int b){int r=0;for(;a<=b;)r+=(""+a++).contains("5")?0:1;return r;}

Ungolfed:

int c(int a, int b){
  int r = 0;
  for (; a <= b; ) {
    r += ("" + a++).contains("5")
          ? 0
          : 1;
  }
  return r;
}

รหัสทดสอบ:

ลองที่นี่

class M{
  static int c(int a,int b){int r=0;for(;a<=b;)r+=(""+a++).contains("5")?0:1;return r;}

  public static void main(String[] a){
    System.out.println(c(1, 9));
    System.out.println(c(4, 17));
  }
}

เอาท์พุท:

8
12

PowerShell, 42 41 ไบต์

param($a,$b)$a..$b|%{$z+=!($_-match5)};$z

เรียกจากบรรทัดคำสั่งเป็น. \ no5s.ps1 1 20

Python 2, 61 56 ไบต์

lambda a,b:len([n for n in range(a,b+1) if not"5"in`n`])

-5 ไบต์ขอบคุณ tukkaaX

Swift 52 ไบต์

($0...$1).filter { !String($0).contains("5") }.count

แบตช์ 95 ไบต์

@set/an=0,i=%1
:g
@if "%i%"=="%i:5=%" set/an+=1
@set/ai+=1
@if %i% leq %2 goto g
@echo %n%

การวนซ้ำด้วยตนเองบันทึกไบต์บางตัวเนื่องจากฉันต้องการตัวนับการวนซ้ำในตัวแปรอย่างไรก็ตาม

PHP, 56 ไบต์

for($i=$argv[1];$i<=$argv[2];)trim(5,$i++)&&$x++;echo$x;

ทำงานแบบนี้:

php -r 'for($i=$argv[1];$i<=$argv[2];)trim(5,$i++)&&$x++;echo$x;' 1 9 2>/dev/null;echo
> 8

รุ่นสำหรับ PHP 7.1 จะเป็น 53 ไบต์ (เครดิตถึง Titus):

for([,$i,$e]=$argv;$i<=$e;)trim(5,$i++)&&$x++;echo$x;

คำอธิบาย

for(
  $i=$argv[1];          # Set iterator to first input.
  $i<=$argv[2];         # Loop until second input is reached.
)
  trim(5,$i++) && $x++; # Trim string "5" with the characters in the
                        # current number; results in empty string when
                        # `5` is present in the number. If that is not
                        # the case, increment `$x`

echo$x;                 # Output `$x`

CJam "วิธีแก้ปัญหาคณิตศาสตร์ง่าย ๆ ", 60

{{Ab5+_,\_5#)<\9e]);_4f>.m9b}%}:F;q~_:z$\:*0>{((+F:-}{F:+)}?

ลองออนไลน์

มันต้องใช้ตัวเลขในลำดับใด ๆ ในอาเรย์

คำอธิบาย:

ปัญหาหลักอย่างหนึ่งคือการคำนวณ f (n) = จำนวนของตัวเลขที่ไม่ใช่ 5 จาก 1 ถึง n (รวม) สำหรับบวกใด ๆ และคำตอบคือ: ใช้ตัวเลขทศนิยมของ n แทนตัวเลขทั้งหมดหลังจาก 5 แรก (ถ้ามี) ด้วย 9 แล้วแทนที่ตัวเลขทั้งหมด 5..9 ด้วย 4..8 (ลดลง) และแปลงจากฐาน 9 เช่น 1752 → 1759 → 1648 → 1 * 9 ^ 3 + 6 * 9 ^ 2 + 4 * 9 + 8 = 1259 โดยทั่วไปตำแหน่งหลักแต่ละตำแหน่งมีค่าที่ยอมรับได้ 9 ค่าและ 5xxxx เทียบเท่ากับ 49999 เนื่องจากไม่มีตัวเลขที่ถูกต้องระหว่างกัน

เมื่อเราแก้ไขสิ่งนี้แล้วเรามีสองสามกรณี: หากจำนวนอินพุต (พูด a และ b, a <b) เป็นบวก (อย่างเคร่งครัด) ผลลัพธ์ก็คือ f (b) -f (a-1) หากพวกมันเป็นลบเราก็สามารถหาค่าสัมบูรณ์แล้วเรียงลำดับใหม่และใช้การคำนวณแบบเดียวกัน และถ้า a <= 0 <= b ผลที่ได้คือ f (-a) + f (b) +1

โปรแกรมแรกใช้ฟังก์ชั่น F ตามที่อธิบายไว้ข้างต้น (แต่ใช้กับแต่ละหมายเลขในอาเรย์) จากนั้นอ่านอินพุตแปลงตัวเลขเป็นค่าสัมบูรณ์และทำการจัดเรียงใหม่และใช้หนึ่งใน 2 การคำนวณข้างต้นขึ้นอยู่กับ * b> 0 เริ่มแรก

Python 2 , 54 ไบต์

i,j=input();k=0
while i<=j:k+=not"5"in`i`;i+=1
print k

ลองออนไลน์!

ไม่ใช่คำตอบที่สั้นที่สุดของ Python ใช้อัลกอริธึมที่เหมือนกัน แต่เป็นวิธีที่แตกต่างในการนำไปใช้กับ while loop และไม่ใช่ฟังก์ชัน lambda

Java 7, 77 ไบต์

นี่คือการปรับปรุงของKevins Answerแต่เนื่องจากฉันยังไม่มีชื่อเสียงที่จะแสดงความคิดเห็นคำตอบใหม่นี้จะต้องทำ

ดังนั้นสิ่งที่ฉันทำคือ:

• แทนที่indexOfข้อความสั่งด้วยcontains(-1 ไบต์)
• ย้ายส่วนที่เพิ่มขึ้นของ for-loop ไปยังคำสั่งเงื่อนไข (-2 ไบต์)

for-loop ( 77 ไบต์ ):

int c(int a,int b){int r=1;for(;a++<b;)r+=(""+a).contains("5")?0:1;return r;}

แบบเรียกซ้ำ ( 79 ไบต์ ):

int d(int r,int a,int b){r+=(""+a).contains("5")?0:1;return a!=b?d(r,a+1,b):r;}

เอาท์พุท:

8
12

8
12

ทดสอบที่นี่ !

C #, 67 ไบต์

a=>b=>{int c=0;for(;a<=b;)c+=(a+++"").Contains("5")?0:1;return c;};

JavaScript (ES6), 58 56 49 ไบต์

let f =

(s,e)=>{for(c=0;s<=e;)c+=!/5/.test(s++);return c}

console.log(f(1, 9));
console.log(f(4, 17));
console.log(f(-9, -1));

แข็งแรงเล่นกอล์ฟ 7 ไบต์ขอบคุณที่ETHproductions

MATL 10 ไบต์

&:!V53-!As

ลองออนไลน์!

คำอธิบาย

        % Implicitly grab two input arguments
&:      % Create an array from [input1....input2]
!V      % Convert to a string where each number is it's own row
53-     % Subtract ASCII '5' from each character.
!A      % Detect which rows have no false values (no 5's). Returns a logical array
s       % Sum the logical array to get the # numbers without 5's
        % Implicitly display the result

C #, 77 ไบต์

(n,m)=>{var g=0;for(var i=n;i<m+1;i++)g+=(i+"").Contains("5")?0:1;return g;};

การโทรแลมบ์ดานิรนาม

ใช้n(หมายเลขแรก) และm(หมายเลขสุดท้าย) เป็นอินพุตจากนั้นตรวจสอบผ่านการบรรจุสตริง ( "".Contains(""))

จริงแล้ว 13 ไบต์

u@x`$'5íuY`░l

ลองออนไลน์!

คำอธิบาย:

u@x`$'5íuY`░l
u@x            range(a, b+1)
   `$'5íuY`░   take where:
    $            string representation
     '5íuY       does not contain "5"
            l  length