Pytanie:

Otrzymasz początkową i końcową liczbę całkowitą sekwencji i powinieneś zwrócić liczbę liczb całkowitych, które nie zawierają cyfry 5. Należy podać numery początkowe i końcowe!

Przykłady:

1,9 → 1,2,3,4,6,7,8,9 → Wynik 8

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

50,60 → 60 → Wynik 1

-59, -50 → → Wynik 0

Wynik może zawierać pięć.

Numer początkowy zawsze będzie mniejszy niż numer końcowy. Obie liczby mogą być również ujemne!

Jestem bardzo ciekawy twoich rozwiązań i sposobu ich rozwiązania. Może ktoś z was znajdzie proste rozwiązanie z czystej matematyki.

Edytuj Jest to wyzwanie polegające na grze w golfa, więc wygrywa najkrótszy kod.

JavaScript (ES6), 36 33 bajtów

Pobiera dane wejściowe ze składnią curry (a)(b).

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

Sformatowane i skomentowane

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

Przypadki testowe

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

Galaretka , 8 7 bajtów

-1 bajt dzięki Dennisowi (użyj faktu, że indeksowanie do liczby traktuje tę liczbę jako listę dziesiętną)

rAw€5¬S

TryItOnline!

W jaki sposób?

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

* Wartość bezwzględna atom Ajest niezbędna, ponieważ liczba ujemna rzutowana na listę dziesiętną zawiera wpisy ujemne, z których żadna nigdy nie byłaby liczbą 5(podany przykład liczyłby wszystkie osiem zamiast dwóch).

Bash + grep, 17 bajtów

seq $@|grep -cv 5

Wypróbuj online!

2sable , 6 5 bajtów

Oszczędność bajtu dzięki Adnanowi

Ÿ5¢_O

Wypróbuj online!

Wyjaśnienie

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

Uwaga: Działa to z powodu błędu ¢powodującego, że funkcja stosuje się do każdego elementu zamiast zliczania pasujących elementów na liście.

Python2, 59 55 52 51 47 43 42 bajty

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

Rozwiązanie rekurencyjne. Dzięki @xnor za motywację do znalezienia rozwiązania za pomocą operatorów logicznych! Ponadto, dzięki @JonathanAllan i @xnor za prowadzenie mnie i dzielenie bajtu z 43 na 42!

Inne próby przy 43 bajtach

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)

Narzędzia Bash / Unix, 21 bajtów

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

Wypróbuj online!

05AB1E , 8 7 6 bajtów

Oszczędność bajtu dzięki Adnanowi

Ÿ5.å_O

Wypróbuj online!

Wyjaśnienie

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

Pyth, 9 8 bajtów

Oszczędność bajtu dzięki FryAmTheEggman!

lf-\5T}E

Wyjaśnienie:

        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

Wypróbuj online!

Perl 6 , 23 bajtów

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

Wypróbuj online!

Jak to działa

{                     }  # 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 bajtów

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

Wypróbuj online! Stosowanie:

Prelude> 4 ! 17
12

Wyjaśnienie:

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

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

Stosowanie:

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

Oktawa , 36 bajtów

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

Wypróbuj online!

Groovy, 47 45 43 40 bajtów

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

To jest nienazwane zamknięcie. findAlljest podobny do dodawania ifwarunku do listy w Pythonie.

Wypróbuj online!

PHP 7.1, 57 55 bajtów

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

Biegnij z php -r '<code>' <a> <b>

Mathematica, 46 44 42 bajtów

Dziękujemy alephalpha i DavidC za zaoszczędzenie 2 bajtów każdy!

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

Funkcja bez nazwy, która przyjmuje dwa argumenty liczb całkowitych i zwraca liczbę całkowitą. IntegerDigits@Range@##konwertuje wszystkie liczby między danymi wejściowymi na listy cyfr; FreeQ@5testuje te listy, aby zdecydować, które nie zawierają żadnych 5. Następnie Boolekonwertuje booleany na zera i jedynki i Trsumuje wyniki.

Inne rozwiązania (44 i 47 bajtów):

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

IntegerDigits@x~FreeQ~5określa, czy lista cyfr liczby jest wolna od 5s, i Count[Range@##,x_/;...]&zlicza, ile liczb między wejściami przechodzi ten test.

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

1##&@@IntegerDigits@#-5pobiera listę cyfr liczby, odejmuje 5 od wszystkich i mnoży odpowiedzi razem; Sign[...]^2następnie konwertuje wszystkie niezerowe liczby na 1.

Rubin, 36 35 bajtów

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

Thx IMP1 dla -1 bajtu

Java 7, 80 78 bajtów

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

Nie golfowany:

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

Kod testowy:

Wypróbuj tutaj.

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

Wydajność:

8
12

PowerShell, 42 41 bajtów

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

Wywoływany z wiersza poleceń jako. \ No5s.ps1 1 20

Python 2, 61 56 bajtów

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

-5 bajtów dzięki tukkaaX

Szybkie 52 bajty

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

Partia, 95 bajtów

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

Ręczne zapętlanie oszczędza niektóre bajty, ponieważ i tak potrzebuję licznika pętli w zmiennej.

PHP, 56 bajtów

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

Uruchom tak:

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

Wersja dla PHP 7.1 miałaby 53 bajty (napisy dla Tytusa):

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

Wyjaśnienie

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 „łatwe czyste matematyczne rozwiązanie”, 60

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

Wypróbuj online

Przybiera liczby w dowolnej kolejności, w tablicy.

Wyjaśnienie:

Jednym z podstawowych problemów jest obliczenie f (n) = liczby innych niż 5 liczb od 1 do n (włącznie) dla dowolnego dodatniego n. Odpowiedź brzmi: weź cyfry dziesiętne n, zamień wszystkie cyfry po pierwszych 5 (jeśli istnieją) na 9, a następnie zamień wszystkie cyfry 5..9 na 4..8 (zmniejszenie) i przekonwertuj z podstawy 9. Np. 1752 → 1759 → 1648 → 1 * 9 ^ 3 + 6 * 9 ^ 2 + 4 * 9 + 8 = 1259. Zasadniczo każda pozycja cyfr ma 9 dopuszczalnych wartości, a 5xxxx odpowiada 49999, ponieważ między nimi nie ma już żadnych poprawnych liczb.

Po rozwiązaniu tego mamy kilka przypadków: jeśli liczby wejściowe (powiedzmy aib, a <b) są (ściśle) dodatnie, to wynikiem jest f (b) -f (a-1). Jeśli są one ujemne, możemy wziąć wartości bezwzględne, zmienić ich kolejność i użyć tych samych obliczeń. A jeśli a <= 0 <= b, to wynikiem jest f (-a) + f (b) +1.

Program najpierw implementuje funkcję F, jak opisano powyżej (ale stosuje się do każdej liczby w tablicy), a następnie odczytuje dane wejściowe, konwertuje liczby na wartość bezwzględną i zmienia ich kolejność, i wykorzystuje jedno z 2 powyższych obliczeń, w oparciu o to, czy * b> 0 początkowo.

Python 2 , 54 bajty

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

Wypróbuj online!

Nie najkrótsza odpowiedź w Pythonie Używa tego samego algorytmu, ale inny sposób implementacji z pętlą while i nie jest funkcją lambda.

Java 7, 77 bajtów

To ulepszenie Kevins Answer , ale ponieważ nie mam jeszcze reputacji, aby komentować, ta nowa odpowiedź będzie musiała wystarczyć.

Więc co zrobiłem to:

• Zamień indexOfinstrukcje na contains(-1 bajt)
• Przenieś inkrementującą część pętli for do instrukcji warunkowej (-2 bajty)

pętla for ( 77 bajtów ):

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

rekurencyjny ( 79 bajtów ):

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

Wydajność:

8
12

8
12

Sprawdź to tutaj !

C #, 67 bajtów

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

JavaScript (ES6), 58 56 49 bajtów

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

Grał w golfa 7 bajtów dzięki produktom ETH .

MATL , 10 bajtów

&:!V53-!As

Wypróbuj online!

Wyjaśnienie

        % 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 bajtów

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

Anonimowe połączenie lambda.

Używa n(pierwsza liczba) i m(ostatnia liczba) jako danych wejściowych, a następnie sprawdza poprzez zawarcie ciągu ( "".Contains("")).

Właściwie 13 bajtów

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

Wypróbuj online!

Wyjaśnienie:

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