Питання:

Вам будуть дані початкові та кінцеві цілі числа послідовності, і ви повинні повернути кількість цілих чисел у ній, які не містять цифри 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 байт

Здійснює введення з синтаксисом currying (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 байт

-1 байт завдяки Деннісу (використовуйте той факт, що індексація в число трактує це число як десятковий список)

rAw€5¬S

СпробуйтеItOnline!

Як?

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

Спробуйте в Інтернеті!

2 , 6 5 байт

Збережено байт завдяки Аднану

Ÿ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 байт

Збережено байт завдяки Аднану

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

Хаскелл , 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умови до розуміння списку в python.

Спробуйте в Інтернеті!

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 байт

Дякуємо алефальфі та 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.

Рубі, 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;}

Безголовки:

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

Швидкий 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 байти (кредити Тіту):

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. І відповідь така: візьміть десятичні цифри 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 Використовує той же алгоритм, але інший спосіб реалізації з циклом час і не є лямбда-функцією.

Java 7, 77 байт

Це вдосконалення відповіді Кевінса , але оскільки я ще не маю репутації коментувати, цю нову відповідь доведеться робити.

Отже, що я зробив:

• Замініть indexOf оператори на contains(-1 байт)
• Перемістіть збільшувальну частину for-циклу в умовний вираз (-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));

Golfed 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