질문 :

시퀀스의 시작 및 끝 정수가 주어지며 숫자를 포함하지 않는 정수의 수를 리턴해야합니다 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

결과는 5를 포함 할 수 있습니다.

시작 번호는 항상 종료 번호보다 작습니다. 두 숫자 모두 음수 일 수 있습니다!

귀하의 솔루션과 해결 방법이 매우 궁금합니다. 어쩌면 누군가가 쉬운 순수 수학 솔루션을 찾을 수있을 것입니다.

편집 이것은 코드 골프 챌린지이므로 가장 짧은 코드가 승리합니다.

자바 스크립트 (ES6), 36 33 바이트

카레 구문으로 입력을 (a)(b)받습니다.

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 바이트

Dennis 덕분에 -1 바이트 (숫자로 인덱싱하면 해당 숫자를 10 진수 목록으로 취급한다는 사실을 사용)

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

* A10 진수 목록으로 캐스트 된 음수는 음수 항목을 갖기 때문에 절대 값 원자가 필요합니다.이 중 어느 것도 절대로 존재하지 않습니다 5(주어진 예제는 2 개가 아닌 8 개로 모두 계산 됨).

배쉬 + 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

온라인으로 사용해보십시오!

펄 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.

하스켈 , 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))

온라인으로 사용해보십시오!

그루비, 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>

매스 매 티카, 46 44 42 바이트

각각 2 바이트를 절약 한 alephalpha와 DavidC에게 감사드립니다!

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

명명되지 않은 함수는 두 개의 정수 인수를 사용하여 정수를 반환합니다. IntegerDigits@Range@##입력 사이의 모든 숫자를 숫자 목록으로 변환합니다. FreeQ@5이 목록을 테스트하여 어떤 목록이 포함되어 있지 않은지 결정합니다 5. 그런 다음 Boole부울을 0과 1로 변환 Tr하고 결과를 합산합니다.

다른 솔루션 (44 및 47 바이트) :

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

IntegerDigits@x~FreeQ~5숫자의 자릿수 목록에 5가 없는지 여부를 결정하고 Count[Range@##,x_/;...]&해당 테스트를 통과 한 입력 사이의 숫자 수를 계산합니다.

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

1##&@@IntegerDigits@#-5숫자의 자릿수 목록을 취하고 모든 숫자에서 5를 빼고 답을 함께 곱합니다. Sign[...]^2그런 다음 0이 아닌 모든 숫자를 1로 변환합니다.

루비, 36 35 바이트

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

-1 바이트에 대한 Thx IMP1

자바 7, 80 78 바이트

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

언 골프 드 :

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으로 호출

파이썬 2, 61 56 바이트

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

tukkaaX 덕분에 -5 바이트

스위프트 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) = 모든 양수 n에 대해 1에서 n까지 (비 포함) 5가 아닌 숫자의 수를 계산하는 것입니다. 답은 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를 구현 한 다음 (배열의 각 숫자에 적용) 입력을 읽고 숫자를 절대 값으로 변환하고 순서를 다시 정한 다음 위의 두 가지 계산 중 하나를 사용합니다. 처음에는 * b> 0입니다.

파이썬 2 , 54 바이트

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

온라인으로 사용해보십시오!

가장 짧은 Python 답변은 아닙니다. 동일한 알고리즘을 사용하지만 while 루프로 구현하는 다른 방법을 사용하며 람다 함수가 아닙니다.

자바 7, 77 바이트

이것은 Kevins Answer 의 개선 사항 이지만 아직 언급 할 평판이 없기 때문에이 새로운 대답이 필요합니다.

그래서 내가 한 일은 :

• indexOf명령문을 contains(-1 바이트)로 바꾸십시오 .
• for 루프의 증분 부분을 조건문 (-2 바이트)으로 이동

for 루프 ( 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;};

자바 스크립트 (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 개 바이트 감사 Golfed 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(제 1 개수) 및 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