Câu hỏi:

Bạn sẽ được cung cấp số nguyên bắt đầu và kết thúc của một chuỗi và sẽ trả về số nguyên trong đó không chứa chữ số 5. Các số bắt đầu và kết thúc nên được bao gồm!

Ví dụ:

1,9 → 1,2,3,4,6,7,8,9 → Kết quả 8

4,17 → 4,6,7,8,9,10,11,12,13,14,16,17 → Kết quả 12

50,60 → 60 → Kết quả 1

-59, -50 → → Kết quả 0

Kết quả có thể chứa năm.

Số bắt đầu sẽ luôn nhỏ hơn số kết thúc. Cả hai số cũng có thể âm!

Tôi rất tò mò về giải pháp của bạn và cách bạn giải quyết nó. Có lẽ ai đó của bạn sẽ tìm thấy một giải pháp toán học thuần túy dễ dàng.

Chỉnh sửa Đây là một thử thách golf-code, vì vậy mã ngắn nhất sẽ thắng.

JavaScript (ES6), 36 33 byte

Đưa đầu vào với cú pháp currying (a)(b).

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

Định dạng và nhận xét

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

Các trường hợp thử nghiệm

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

Thạch , 8 7 byte

-1 byte nhờ Dennis (sử dụng thực tế là lập chỉ mục thành một số coi số đó là danh sách thập phân)

rAw€5¬S

Dùng thử trực tuyến!

Làm sao?

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

* Nguyên tử giá trị tuyệt đối, Alà cần thiết vì một số âm được đưa vào danh sách thập phân có các mục âm, không ai trong số đó sẽ là một 5(ví dụ đã cho sẽ đếm tất cả tám thay vì hai).

Bash + grep, 17 byte

seq $@|grep -cv 5

Hãy thử trực tuyến!

2sable , 6 5 byte

Đã lưu một byte nhờ Adnan

Ÿ5¢_O

Hãy thử trực tuyến!

Giải trình

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

Lưu ý: Điều này hoạt động do một lỗi trong ¢việc làm cho hàm áp dụng chính nó cho từng phần tử thay vì đếm các phần tử phù hợp trong danh sách.

Python2, 59 55 52 51 47 43 42 byte

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

Một giải pháp đệ quy. Cảm ơn @xnor đã cho tôi động lực để tìm giải pháp bằng cách sử dụng các toán tử logic! Ngoài ra, nhờ vào @JonathanAllan và @xnor cho hướng dẫn tôi và chặt byte 43-42!

Các nỗ lực khác ở 43 byte

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)

Tiện ích Bash / Unix, 21 byte

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

Hãy thử trực tuyến!

05AB1E , 8 7 6 byte

Đã lưu một byte nhờ Adnan

Ÿ5.å_O

Hãy thử trực tuyến!

Giải trình

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

Bình thường, 9 8 byte

Đã lưu một byte nhờ FryAmTheEggman!

lf-\5T}E

Giải trình:

        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

Hãy thử trực tuyến!

Perl 6 , 23 byte

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

Hãy thử trực tuyến!

Làm thế nào nó hoạt động

{                     }  # 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 byte

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

Hãy thử trực tuyến! Sử dụng:

Prelude> 4 ! 17
12

Giải trình:

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

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

Sử dụng:

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

Octave , 36 byte

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

Hãy thử trực tuyến!

Groovy, 47 45 43 40 byte

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

Đây là một đóng cửa không tên. findAlltương tự như việc thêm một ifđiều kiện trong phần hiểu danh sách trong python.

Hãy thử trực tuyến!

PHP 7.1, 57 55 byte

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

Chạy với php -r '<code>' <a> <b>

Toán học, 46 44 42 byte

Cảm ơn alephalpha và DavidC vì đã tiết kiệm được 2 byte mỗi cái!

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

Hàm không tên lấy hai đối số nguyên và trả về một số nguyên. IntegerDigits@Range@##chuyển đổi tất cả các số giữa các đầu vào thành danh sách các chữ số; FreeQ@5kiểm tra những danh sách đó để quyết định cái nào không chứa cái nào 5. Sau đó Boolechuyển đổi booleans thành số không và số không, và tính Trtổng các kết quả.

Các giải pháp khác (44 và 47 byte):

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

IntegerDigits@x~FreeQ~5xác định xem danh sách các chữ số của một số có miễn phí 5s hay không và Count[Range@##,x_/;...]&tính xem có bao nhiêu số giữa các đầu vào vượt qua bài kiểm tra đó.

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

1##&@@IntegerDigits@#-5lấy danh sách các chữ số của một số, trừ 5 từ tất cả chúng và ghép các câu trả lời lại với nhau; Sign[...]^2sau đó chuyển đổi tất cả các số khác không thành 1.

Ruby, 36 35 byte

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

Thx IMP1 cho -1 byte

Java 7, 80 78 byte

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

Ung dung:

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

Mã kiểm tra:

Hãy thử nó ở đây.

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

Đầu ra:

8
12

PowerShell, 42 41 byte

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

Được gọi từ dòng lệnh là. \ No5s.ps1 1 20

Python 2, 61 56 byte

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

-5 byte nhờ tukkaaX

Swift 52 byte

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

Mẻ, 95 byte

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

Vòng lặp thủ công tiết kiệm một số byte bởi vì dù sao tôi cũng cần bộ đếm vòng lặp trong một biến.

PHP, 56 byte

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

Chạy như thế này:

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

Một phiên bản cho PHP 7.1 sẽ là 53 byte (tín dụng cho Titus):

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

Giải trình

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`

"Giải pháp toán học thuần túy dễ dàng" của CJam, 60

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

Dùng thử trực tuyến

Nó nhận các số theo thứ tự bất kỳ, trong một mảng.

Giải trình:

Một vấn đề cốt lõi là tính f (n) = số lượng không phải là 5 số từ 1 đến n (đã bao gồm) cho bất kỳ n dương nào. Và câu trả lời là: lấy các chữ số thập phân của n, thay thế tất cả các chữ số sau 5 chữ số đầu tiên (nếu có) bằng 9, sau đó thay thế tất cả các chữ số 5..9 bằng 4..8 (giảm) và chuyển đổi từ cơ sở 9. Ví dụ: 1752 → 1759 → 1648 → 1 * 9 ^ 3 + 6 * 9 ^ 2 + 4 * 9 + 8 = 1259. Về cơ bản, mỗi vị trí chữ số có 9 giá trị có thể chấp nhận và 5xxxx tương đương với 49999 vì không có số hợp lệ nào giữa chúng.

Khi chúng tôi giải quyết điều này, chúng tôi có một vài trường hợp: nếu các số đầu vào (giả sử a và b, a <b) dương (đúng), thì kết quả là f (b) -f (a-1). Nếu chúng âm, thì chúng ta có thể lấy các giá trị tuyệt đối, sắp xếp lại chúng và sử dụng cùng một phép tính. Và nếu a <= 0 <= b thì kết quả là f (-a) + f (b) +1.

Trước tiên, chương trình thực hiện hàm F như được mô tả ở trên (nhưng được áp dụng cho từng số trong một mảng), sau đó đọc đầu vào, chuyển đổi các số thành giá trị tuyệt đối và sắp xếp lại chúng, và sử dụng một trong 2 phép tính ở trên, dựa trên việc a * b> 0 ban đầu.

Python 2 , 54 byte

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

Hãy thử trực tuyến!

Không phải câu trả lời Python ngắn nhất Sử dụng cùng một thuật toán mà là một cách thực hiện khác với vòng lặp while và không phải là hàm lambda.

Java 7, 77 byte

Đây là một cải tiến của Câu trả lời của Kevins , nhưng vì tôi chưa có tiếng tăm để bình luận, nên câu trả lời mới này sẽ phải làm.

Vì vậy, những gì tôi đã làm là:

• Thay thế các indexOfcâu lệnh bằng contains(-1 byte)
• Di chuyển phần tăng của vòng lặp for vào câu lệnh có điều kiện (-2 byte)

vòng lặp for ( 77 byte ):

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

đệ quy ( 79 byte ):

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

Đầu ra:

8
12

8
12

Kiểm tra nó ở đây !

C #, 67 byte

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

JavaScript (ES6), 58 56 49 byte

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

Chơi golf 7 byte nhờ ETHproductions .

MATL , 10 byte

&:!V53-!As

Hãy thử trực tuyến!

Giải trình

        % 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 byte

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

Cuộc gọi lambda ẩn danh.

Sử dụng n(số đầu tiên) và m(số cuối) làm đầu vào, sau đó kiểm tra thông qua ngăn chặn chuỗi ( "".Contains("")).

Trên thực tế , 13 byte

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

Hãy thử trực tuyến!

Giải trình:

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