Ihre Aufgabe ist es, eine Funktion oder ein Programm zu schreiben, die bzw. das zwei nicht negative ganze Zahlen iund k( i≤ k) enthält, und herauszufinden, wie viele Nullen Sie schreiben würden, wenn Sie alle ganzen Zahlen von ibis k(einschließlich) in die Basis Ihrer Wahl auf einem Stück schreiben würden aus Papier. Geben Sie diese Ganzzahl, die Anzahl der Nullen, als stdout oder ähnlich aus.

-30%Wenn Sie auch ein drittes Argument akzeptieren b, wird die Ganzzahlbasis zum Aufschreiben der Zahlen verwendet. Um diesen Bonus zu erhalten, müssen mindestens zwei Basen behandelt werden.

• Sie können die Eingabe in einer beliebigen Basis akzeptieren und die Basis zwischen Testfällen ändern.
• Sie können die Argumente akzeptieren i, kund gegebenenfalls bin beliebiger Reihenfolge.
• Die Antworten müssen mindestens eine nicht unäre Basis behandeln.

Testfälle (in Basis 10):

i k -> output
10 10 -> 1
0 27 -> 3
100 200 -> 22
0 500 -> 92

Das ist Code-Golf; Wenigste Bytes gewinnen.

Gelee, 1 Byte

¬

Dies verwendet base k+2. In diesem Fall gibt es eine einzelne 0, wenn f 0 iist. Es werden zwei Argumente verwendet, aber das logische NOT wird nur auf das erste angewendet.

Wenn wir nicht schummeln wollen:

7 Bytes - 30% = 4,9

-1,1 Punkte von @Dennis

rb⁵$¬SS

Das bringt den Bonus.

             dyadic link:
r            inclusive range
 b⁵$           Convert all to base input.
    ¬          Vectorized logical NOT
     S         Sum up 0th digits, 1st digits, etc.
      S        Sum all values

Python 2, 36 Bytes

lambda a,b:`range(a,b+1)`.count('0')

Kredit muddyfish für den `` Trick.

05AB1E , 3 1 Byte

Verwendet Base k+2wie die Jelly-Antwort, Code:

_

Erläuterung:

_  # Logical NOT operator

Nicht betrügende 3-Byte-Version:

Code:

Ÿ0¢

Erläuterung:

Ÿ    # Inclusive range
 0¢  # Count zeroes

Der Bonus gibt mir 3,5 Bytes wegen eines Fehlers:

ŸB)0¢

Erläuterung:

Ÿ      # Inclusive range
 B     # Convert to base input
  )    # Wrap into an array (which should not be needed)
   0¢  # Count zeroes

Verwendet die CP-1252-Codierung.

Japt, 3 Bytes

+!U

Verwendet Base k+2, als die Gelee-Antwort. Es gibt eine Null iff i==0. Online testen!

Bessere Version, 10 8 Bytes

UòV ¬è'0

Dieser verwendet Base 10. Testen Sie es online!

Bonusversion, 14 12 Bytes - 30% = 8,4

UòV msW ¬è'0

Leider lohnt sich der Bonus beim Golfen nicht mehr ... Testen Sie ihn online!

Wie es funktioniert

UòV msW ¬è'0   // Implicit: U = start int, V = end int, W = base
UòV            // Create the inclusive range [U..V].
    msW        // Map each item by turning it into a base-W string.
        ¬      // Join into a string.
         è'0   // Count the number of occurances of the string "0".

ES6, 91 86-30% = 60,2 Bytes

(i,k,b=10)=>([...Array(k+1-i)].map((_,n)=>(i+n).toString(b))+'0').match(/0/g).length-1

Oder speichern Sie 3 (2.1) Bytes, wenn b nicht standardmäßig 10 sein muss.

Die beste Nicht-Bonus-Version, die ich machen konnte, war 65 Bytes:

(i,k)=>([...Array(k+1).keys()].slice(i)+'0').match(/0/g).length-1

Bearbeiten: 5 Bytes mit dem Zero-Counting-Trick von @ edc65 gespeichert.

Im Ernst, 10 Bytes

'0,,u@xεjc

Erläuterung:

'0,,u@xεjc
'0,,u       push "0", i, k+1
     @x     swap i and k+1, range(i, k+1)
       εjc  join on empty string and count 0s

Probieren Sie es online!

Mit Bonus: 11,9 Bytes

'0,,u@x,╗`╜@¡`Mεjc

Probieren Sie es online!

Erläuterung:

'0,,u@x,╗`╜@¡`MΣc
'0,,u@x             push "0", range(i, k+1)
       ,╗           push b to register 0
         `   `M     map:
          ╜@¡         push b, push string of a written in base b
               Σc   sum (concat for strings), count 0s

CJam, 12 10 3 Bytes

li!

Dies geschieht mit der Verknüpfung @ThomasKwa.

Wenn dies nicht zulässig ist, ist hier eine 10-Byte-Antwort.

q~),>s'0e=

Schön und kurz! Funktioniert wie @ Megos Ernsthafte Antwort.

Vielen Dank @Dennis!

Viel Spaß beim Schreiben meiner ersten CJam-Antwort!

Probieren Sie es hier aus!

T-SQL, 394 Bytes (kein Bonus)

Ich denke , warum nicht ?

DECLARE @i INT, @k INT SET @i = 100 SET @k = 200  WITH g AS (SELECT @i AS n UNION ALL SELECT n+1 FROM g WHERE n+1<=@k ) SELECT LEN(n) AS c FROM (SELECT STUFF((SELECT REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(n, 1, ''), 2, ''), 3, ''), 4, ''), 5, ''), 6, ''), 7, ''), 8, ''), 9, ''), ' ', '') FROM g FOR XML PATH ('')) ,1,0,'') n ) a OPTION (maxrecursion 0)

Und der Freundliche:

-- CG!

DECLARE @i INT, @k INT 
SET @i = 100
SET @k = 200

WITH g AS 
(
    SELECT @i AS n
    UNION ALL
    SELECT n+1 FROM g WHERE n+1<=@k
)

SELECT LEN(n) AS c FROM 
(
    SELECT 
        STUFF((SELECT REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(n, 1, ''), 2, ''), 3, ''), 4, ''), 5, ''), 6, ''), 7, ''), 8, ''), 9, ''), ' ', '')
FROM g FOR XML PATH ('')) ,1,0,'') n
) a

OPTION (maxrecursion 0)

Ruby, 46 - 30% = 32,2 Bytes

Sie könnten wahrscheinlich mehr Golf spielen, aber zumindest bekomme ich den 30% Bonus!

->i,k,b{((i..k).map{|a|a.to_s b}*"").count ?0}

... oder ohne den Bonus (27 Bytes)

->i,k{([*i..k]*"").count ?0}

Trinkgelder sind willkommen und lernen immer noch diese ganze "Ruby" -Sache.

Brachylog , 26 Bytes

,{,.e?}?:1frcS:0xlI,Sl-I=.

Übernimmt die Eingabe als Liste [i,k].

Erläuterung

,{    }?:1f                § Unify the output with a list of all inputs which verify the
                           § predicate between brackets {...} with output set as the input
                           § of the main predicate

  ,.e?                     § Unify the input with a number between i and k with the ouput
                           § being the list [i,k]

           rcS             § Reverse the list and concatenate everything into a single
                           § number (we reverse it to not lose the leading 0 if i = 0 when
                           § we concatenate into a single number). Call this number S.

              :0xlI        § Remove all occurences of 0 from S, call I the length of this new
                           § number with no zeros

                   ,Sl-I=. § Output the length of S minus I.

Julia, 48 Bytes - 30% = 33,6

f(i,k,b)=sum(j->sum(c->c<49,[base(b,j)...]),i:k)

Dies ist eine Funktion, die drei Ganzzahlen akzeptiert und eine Ganzzahl zurückgibt. Da eines der Argumente die Basis angibt, ist dies für den Bonus qualifiziert.

Ungolfed:

function f(i, k, b)
    # For each j in the inclusive range i to k, convert j to base
    # b as a string, splat the string into a character array, and
    # compare each character to the ASCII code 49 (i.e. '1'). The
    # condition will only be true if the character is '0'. We sum
    # these booleans to get the number of zeros in that number,
    # then we sum over the set of sums to get the result.
    sum(j -> sum(c -> c < 49, [base(b, j)...]), i:k)
end

Das Implementieren des Bonus ergibt eine Punktzahl, die kaum besser ist als das Nicht-Implementieren (34 Bytes):

f(i,k)=sum(c->c<49,[join(i:k)...])

Im Ernst, 2 Bytes

Das mag den Trick mit der Gelee-Antwort bis an die Grenze bringen, aber hier ist eine einfache 2-Byte-Antwort.

,Y

Probieren Sie es online!

Pyth, 6,3 Bytes, mit Bonus (9 Bytes - 30%)

/sjRQ}EE0

Erläuterung:

  jRQ     - [conv_base(Q, d) for d in V]
     }EE  - inclusive_range(eval(input), eval(input))
 s        - sum(^, [])
/       0 - ^.count(0)

Probieren Sie es hier aus

Oder 7 Bytes ohne den Bonus:

/`}EE\0

Erläuterung:

  }EE   - inclusive_range(eval(input), eval(input))
 `      - repr(^)
/    \0 - ^.count("0")

Probieren Sie es hier aus

Oder verwenden Sie eine Testsuite

PHP, 50 Bytes

unterstützt nur dezimal

<?=substr_count(join(range($argv[1],$argv[2])),0);

unterstützt dezimal und binär mit Bonus 63

<?=substr_count(join(array_map([2=>decbin,10=>""][$argv[3]],range($argv[1],$argv[2]))),0);

Unterstützt Dezimal, Hexadezimal, Oktal und Binär mit Bonus 77.7

<?=substr_count(join(array_map([2=>decbin,8=>decoct,10=>"",16=>dechex][$argv[3]],range($argv[1],$argv[2]))),0);

unterstützt Base 2 - 36 mit Bonus 78.4

<?=substr_count(join(array_map(function($i){return base_convert($i,10,$_GET[2]);},range($_GET[0],$_GET[1]))),0);

JavaScript (ES6), 50 (71 - 30%)

(n,k,b)=>eval("for(o=0;n<=k;++n)o+=n.toString(b)").match(/0/g).length-1

Kein Bonus, Basis k + 2 ist 10 Bytes(i,k)=>+!i

Kein Bonus, unär ist 8 Bytes(i,k)=>0

PRÜFUNG

f=(n,k,b)=>eval("for(o=0;n<=k;++n)o+=n.toString(b)").match(/0/g).length-1

function go() {
  var i=I.value.match(/\d+/g)
  R.textContent = f(i[0],i[1],i[2])
}

go()

i,k,b:<input id=I value='0,500,10' oninput="go()">
<span id=R></span>

Jolf, 7 Bytes

Ersetzen ♂durch \x11. Probieren Sie es hier aus!

Zl♂sjJ0
   sjJ  inclusive range between two numeric inputs
  ♂      chopped into single-length elements
Zl    0  and count the number of zeroes
        implicitly printed

Lua 74 Bytes

z,c=io.read,""for a=z(),z()do c=c..a end o,b=string.gsub(c,"0","")print(b)

Es muss einen effektiveren Weg geben, dies zu tun ...

Ich dachte, ich wäre wirklich auf etwas hier:

c,m,z=0,math,io.read for a=z(),1+z()do c=c+((m.floor(a/10))%10==0 and 1 or a%100==0 and 1 or a%10==0 and 1 or 0) end print(c)

Aber leider ... Es wird immer länger, als ich merke, dass es immer mehr Nullen gibt, die ich vergessen habe ...

APL, 22 Bytes

{+/'0'⍷∊0⍕¨(⍺-1)↓⍳⍵}

Dies ist eine monadische Funktion, die die Bereichsgrenzen links und rechts akzeptiert und eine Ganzzahl zurückgibt.

Ungolfed:

           (⍺-1)↓⍳⍵}  ⍝ Construct the range ⍺..⍵ by dropping the first
                      ⍝ ⍺-1 values in the range 1..⍵
       ∊0⍕¨           ⍝ Convert each number to a string
{+/'0'⍷               ⍝ Count the occurrences of '0' in the string

Probieren Sie es hier aus

Haskell, 29 Bytes

i#k=sum[1|'0'<-show=<<[i..k]]

Ich benutze Basis 10 .

Anwendungsbeispiel: 100 # 200->22

So funktioniert es: Verwandle jedes Element in der Liste von ibis kin seine Zeichenfolgendarstellung, verkette es zu einer einzelnen Zeichenfolge, nimm ein 1für jedes Zeichen '0'und summiere diese 1s.

MATL , 7 (10 Bytes - 30% Bonus)

2$:i:qYA~z

Probieren Sie es online!

Dies funktioniert in Release 11.0.2 , die als diese Herausforderung ist.

Erläuterung

2$:      % implicitly input two numbers and generate inclusive range
i:q      % input base b and generate vector [0,1,...,b-1]
YA       % convert range to base b using symbols 0,1,...,b-1. Gives 2D array
~        % logical negation. Zeros become 1, rest of symbols become 0
z        % number of nonzero elements in array

Matlab: 27 Bytes

@(q,w)nnz(num2str(q:w)==48)

Erstellt einen Vektor von einer niedrigeren zu einer größeren Zahl, konvertiert dann alle Zahlen in eine Zeichenfolge und zählt alle '0'-Symbole.

Python 3, 52.

Versucht, den Bonus umzusetzen, aber es scheint sich nicht zu lohnen.

lambda a,b:''.join(map(str,range(a,b+1))).count('0')

Mit Testfällen:

assert f(10, 10) == 1
assert f(0, 27) == 3
assert f(100, 200) == 22
assert f(0, 500) == 92

Perl 6 , 23 Bytes

{+($^i..$^k).comb(/0/)}

1. erstellt einen Bereich ( $^i..$^k )
2. verbindet die Werte implizit mit Leerzeichen ( .comb ist eine Str-Methode)
3. Erstellt eine Liste nur der Nullen ( .comb(/0/) )
4. gibt die Anzahl der Elemente in dieser Liste zurück ( +)

Verwendung:

my &zero-count = {…}

for (10,10), (0,27), (100,200), (0,500), (0,100000) {
  say zero-count |@_
}

1
3
22
92
38895

Mathematica, 39 Bytes, 27,3 mit Bonus

Count[#~Range~#2~IntegerDigits~#3,0,2]&

C # 112 Bytes

int z(int i,int k)=>String.Join("",Enumerable.Range(i,k-i+1)).Count(c=>c=='0')

1. Erstellen Sie eine Zeichenfolge mit Zahlen von der ersten bis zur letzten Zahl
2. Zählen Sie die Nullzeichen in der Zeichenfolge

PHP, 84 Bytes * .7 = 58,8 (Basen 2 bis 36)

for(;($v=$argv)[2]>$a=$v[1]++;)$n+=substr_count(base_convert($a,10,$v[3]),0);echo$n;

oder

for(;($v=$argv)[2]>$v[1];)$n+=substr_count(base_convert($v[1]++,10,$v[3]),0);echo$n;

Nimmt dezimale Eingaben von Befehlszeilenargumenten entgegen. renn mit -r.

PowerShell, 56 54 51 48 42 Byte

param($i,$k)(-join($i..$k)-split0).count-1

Nimmt Eingaben auf, erstellt einen Bereich mit den $i..$kdann -joinzusammen in einer Zeichenfolge, gefolgt von einem Regex- -splitBefehl, der die Zeichenfolge in ein Array trennt, indem er am Ende der Zeichenfolge ein Slice erstellt 0. Wir kapseln das mit ().count-1, um zu messen, wie viele Nullen es gibt. Das bleibt in der Pipeline und die Ausgabe ist implizit.

6 Bytes gespart dank @ConnorLSW

Probieren Sie es online!

Das Base-Handling in PowerShell ist begrenzt und unterstützt keine willkürlichen Basen. Daher werde ich den Bonus nicht in Anspruch nehmen.

Java 8, 102 Bytes - 30% = 71,4

Warum nicht.

(i,k,b)->{int j=0;for(;i<=k;i++)for(char c:Integer.toString(i,b).toCharArray())if(c==48)j++;return j;}

Ohne den Bonus 96 Bytes (also verbessert der Bonus tatsächlich meine Punktzahl!):

(i,k)->{int j=0;for(;i<=k;i++)for(char c:String.valueOf(i).toCharArray())if(c==48)j++;return j;}

Dies implementiert Folgendes:

interface Function {
    public int apply(int i, int k, int b);
}

Clojure, 50 49 Bytes

#(count(re-seq #"0"(apply str(range %(inc %2)))))

Oh Regex ist kürzer als Filtern. Original:

#(count(filter #{\0}(apply str(range %(inc %2)))))

Sehr einfach, verwendet den Zeichensatz \0, um andere zu entfernen und zählt, wie viele gefunden wurden.