Menulis angka adalah salah satu dari dunia pemrograman Hello, seringkali angka 1-10.

Saya ingin menulis banyak angka! Banyak, banyak angka. Tetapi berapa banyak angka yang harus saya tulis?

Tugas

Diberikan input integer, berikan angka sebagai output yang akan memberi saya jumlah digit yang akan berada dalam string yang berisi semua angka integer dalam kisaran dari 0 hingga input, inklusif. Pengidentifikasi negasi ("-") dihitung sebagai satu karakter.

Contoh I / Os

Input: 8
Ditulis: 0,1,2,3,4,5,6,7,8
Output: 9

Input: 101
ditulis: 0,1,2,3 ...., 99,100,101
Output: 196

Input: 102
ditulis: 0,1,2,3 ...., 100,101,102
output: 199

Input -10
Ditulis: 0, -1, -2, -3, -4, -5, -6, -7, -8, -9, -10
output: 22

Ini adalah kode-golf . Jumlah byte terendah menang!

05AB1E , 3 byte

Kode:

ÝJg

Menggunakan pengkodean CP-1252 . Cobalah online!

Penjelasan:

Ý     # Range [0 .. input]
 J    # Join into one string
  g   # Get the length of the string

Python 2 , 55 46 byte

lambda n:len(`range(abs(n)+1)`)+2*~n+3*n*(n<0)

Cobalah online!

Membaik.

Röda , 23 byte

f x{[#([seq(0,x)]&"")]}

Cobalah online!

Dijelaskan:

f x{[#([seq(0,x)]&"")]}
f x{                  } /* Defines function f with parameter x. */
        seq(0,x)        /* Creates a stream of numbers from 0 to x. */
       [        ]       /* Creates an array. */
                 &""    /* Joins with "". */
     #(             )   /* Calculates the length of the resulting string. */
    [                ]  /* Returns the value. */

Python 2 , 41 byte

f=lambda n:len(`n`)+(n and f(n+cmp(0,n)))

Cobalah online!

Utilitas Bash + OS X (BSD), 24 22 byte

Terima kasih kepada @seshoumara karena telah menghemat 2 byte.

seq 0 $1|fold -1|wc -l

Tes berjalan di Mac OS X:

$ for n in 8 101 102 -10 -1 0 1; do printf %6d $n; ./digitcount $n; done
     8       9
   101     196
   102     199
   -10      22
    -1       3
     0       1
     1       2

Ini versi GNU:

Bash + coreutils, 40 38 byte

Sekali lagi, 2 byte disimpan berkat @seshoumara.

(seq $1 0;seq 0 $1)|uniq|fold -1|wc -l

Cobalah online!

Python 2, 83 , 78 64 byte

versi terpendek:

lambda x:sum(map(len,map(str,(range(0,x+cmp(x,.5),cmp(x,.5))))))

versi ini menghemat 5 byte, terima kasih kepada @numbermaniac:

x=input()
print len(''.join(map(str,(range(x+1)if x>0 else range(0,x-1,-1)))))

Cobalah online!

yang ini saya buat sendiri setelah itu (jumlah byte yang sama):

x=input()
print sum(map(len,map(str,(range(x+1)if x>0 else range(0,x-1,-1)))))

Cobalah online!

Java 7, 74 byte _{(rekursif - termasuk parameter default kedua)}

int c(int r,int n){r+=(n+"").length();return n>0?c(r,n-1):n<0?c(r,n+1):r;}

Penjelasan (1):

int c(int r, int n){     // Recursive method with two integer parameters and integer return-type
                         // Parameter `r` is the previous result of this recursive method (starting at 0)
  r += (n+"").length();  //  Append the result with the current number's width
  return n > 0 ?         //  If the input is positive
     c(r, n-1)           //   Continue recursive method with n-1
    : n < 0 ?            //  Else if the input is negative
     c(r, n+1)           //   Continue recursive method with n+1
    ?                    //  Else (input is zero)
     r;                  //   Return the result
}                        // End of method

Java 7, 81 79 byte _{(loop - parameter tunggal)}

Jika memiliki parameter kedua default 0untuk pendekatan rekursif ini tidak diizinkan karena beberapa alasan, untuk-loop seperti ini dapat digunakan sebagai gantinya:

int d(int n){String r="x";for(int i=n;i!=0;i+=n<0?1:-1)r+=i;return r.length();}

Penjelasan (2)

int d(int n){                 // Method with integer parameter and integer return-type
  String r = "x";             //  Initial String (with length 1 so we won't have to +1 in the end)
  for(int i=n; i != 0;        //  Loop as long as the current number isn't 0
      i += n < 0 ? 1 : 1)     //   After every iteration of the loop: go to next number
    r += i;                   //   Append String with current number
                              //  End of loop (implicit / single-line body)
  return r.length();          //  Return the length of the String
}                             // End of method

Kode uji:

Coba di sini.

class M{
  static int c(int r,int n){r+=(n+"").length();return n>0?c(r,n-1):n<0?c(r,n+1):r;}

  static int d(int n){String r="x";for(int i=n;i!=0;i+=n<0?1:-1)r+=i;return r.length();}

  public static void main(String[] a){
    System.out.println(c(0, 8) + "\t" + d(8));
    System.out.println(c(0, 101) + "\t" + d(101));
    System.out.println(c(0, 102) + "\t" + d(102));
    System.out.println(c(0, -10) + "\t" + d(-10));
  }
}

Keluaran:

9   9
196 196
199 199
22  22

RProgN 2 , 5 byte

n0R.L

Penjelasan

n0R   # A Stack of all numbers between 0 and the input converted to a number.
   .L # The length of the stringification of this.

Solusi sederhana, bekerja seperti pesona.

Cobalah online!

Brachylog , 5 byte

⟦ṡᵐcl

Cobalah online!

Buat rentang [0, masukan], ubah setiap angka menjadi string, gabungkan menjadi satu string dan kembalikan panjang hasilnya

PHP, 59 60 byte

Diungguli oleh Roberto06 - https://codegolf.stackexchange.com/a/112536/38505

Terima kasih kepada roberto06 karena memperhatikan versi sebelumnya tidak berfungsi untuk angka negatif.

Cukup susun array angka, masukkan ke string, lalu hitung digit (dan tanda minus)

<?=preg_match_all("/\-|\d/",implode(",",range(0,$argv[1])));

Jalankan contoh: php -f 112504.php 8

• 8 test case
• 101 uji kasus
• 102 uji kasus
• Kasus uji -10

Haskell , 39 38 byte

f 0=1
f n=length$show=<<[0..n]++[n..0]

Cobalah online! Sunting: disimpan 1 byte berkat @xnor!

Penjelasan:

Di Haskell untuk angka adan b [a..b]rentang dari ahingga bdalam 1-kenaikan atau 1-pengurangan, tergantung pada apakah blebih besar a. Jadi untuk yang positif ndaftar pertama [0..n]++[n..0]adalah [0,1,2,...,n]dan yang kedua kosong. Untuk negatif nrentang hasil kedua [0,-1,-2,...,n]dan yang pertama kosong. Namun jika n=0kedua rentang menghasilkan daftar [0], maka rangkaian [0,0]akan menghasilkan hasil yang salah 2. Itu sebabnya 0ditangani sebagai kasus khusus.

The =<<-operator pada daftar adalah sama concatMap, sehingga setiap nomor diubah menjadi string dengan showdan semua string yang akan digabungkan dalam satu string panjang yang lengthakhirnya dikembalikan.

Sebelum tip xnor saya gunakan [0,signum n..n]bukan [0..n]++[n..0]. signum nadalah -1untuk angka negatif, 0untuk nol dan 1untuk angka positif dan berbagai bentuk [a,b..c]membangun daftar angka dari asampai cdengan kenaikan b. Dengan demikian [0,signum n..n]membangun rentang [0,1,2,...,n]untuk positif ndan [0,-1,-2,...,n]negatif n. Untuk n=0itu akan membangun daftar tak terbatas [0,0,0,...]sehingga kita perlu menangani 0sebagai kasus khusus juga.

PHP, 41 35 byte

Disimpan 6 byte berkat pengguna59178

Karena jawaban ʰᵈ salah untuk input negatif, saya mengambilnya sendiri untuk membangun solusi baru:

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

Fungsi ini:

• Membangun array dari 0ke $argv[1](alias input)
• Mengimpodnya dengan karakter kosong (mis. Mentransformasikannya menjadi string)
• Menggemakan panjang tali

Coba di sini!

Ruby , 20 26 29 byte

->x{[*x..-1,0,*1..x]*''=~/$/}

Cobalah online!

R, 26 20 byte

sum(nchar(0:scan()))

Pendekatan yang sangat mendasar:

• Buat vektor 0: x

• Hitung karakter di setiap nilai (akan dipaksa ke string secara otomatis)

• Jumlah

Tidak yakin apakah ada trik untuk mengurangi definisi fungsi? 6 byte disimpan berkat Giuseppe, dengan mengambil input dari stdin sebagai gantinya.

Mathematica, 48 47 46 byte

-1 byte terima kasih kepada Martin Ender !

StringLength[""<>ToString/@Range[0,#,Sign@#]]&

Fungsi anonim, mengambil nomor sebagai argumen.

Solusi lebih pendek oleh Greg Martin , 39 byte

1-#~Min~0+Tr@IntegerLength@Range@Abs@#&

Batch, 110 byte

@set/a"n=%1,t=n>>31,n*=t|1,t=1-t*n,i=0
@for /l %%i in (0,1,9)do @set/a"t+=(i-n)*(i-n>>31),i=i*10+9
@echo %t%

Menghitung sum(min(0,abs(n)+1-10^k),k=0..9)+(n<0?1-n:1). (Saya hanya perlu naik 9karena keterbatasan aritmatika integer Batch.)

Python 2 , 68 byte

def f(i,j=1):
 if i==0:print j
 else:j+=len(`i`);f((i-1,i+1)[i<0],j)

Cobalah online!

Lebih lama tetapi berbeda dari solusi Python lainnya. Mendefinisikan fungsi rekursif yang disebut sebagai egf(10)

MATL , 11 byte

0hSZ}&:VXzn

Cobalah online!

0h           % Implicitly input n. Append a 0: gives array [n 0]
  S          % Sort
   Z}        % Split array: pushes 0, n or n, 0 according to the previous sorting
     &:      % Binary range: from 0 to n or from n to 0
       V     % Convert to string. Inserts spaces between numbers
        Xz   % Remove spaces
          n  % Length of string. Implicit display

PowerShell , 23 byte

-join(0.."$args")|% Le*

Cobalah online! (akan muntah di TIO untuk input sangat besar (absolut))

Menggunakan ..operator jangkauan untuk membangun rentang dari 0ke input $args(ditampilkan sebagai string untuk mengkonversi dari array input). Itu -joined bersama menjadi string (misalnya, 01234) dan kemudian Length diambil darinya. Yang tersisa pada pipa dan output tersirat.

Perl 6 , 18 byte

{chars [~] 0...$_}

Cobalah

Diperluas:

{  # bare block lambda with implicit parameter ｢$_｣

  chars        # how many characters (digits + '-')
    [~]        # reduce using string concatenation operator &infix:<~>
      0 ... $_ # deductive sequence from 0 to the input
}

QBIC , 25 byte

:[0,a,sgn(a)|A=A+!b$]?_lA

Penjelasan:

:[0,a     Read 'a' from the cmd line, start a FOR loop from 0 to 'a'
,sgn(a)|  with incrementer set to -1 for negative ranges and 1 for positive ones
A=A+!b$   Add a string cast of each iteration (var 'b') to A$
]         NEXT
?_lA      Print the length of A$

JavaScript, 50 byte

Berkolaborasi dengan @ETHproductions

n=>{for(t="";n;n<0?n++:n--)t+=n;alert(++t.length)}

Bash + GNU coreutils, 28

eval printf %s {0..$1}|wc -c

Cobalah online .

Retina , 28 byte

\d+
$*
1
$`1¶
1+
$.&
^-?
0
.

Cobalah online!

Penjelasan

\d+
$*

Ubah nomornya menjadi unary, pertahankan tanda itu tidak tersentuh.

1
$`1¶

Setiap 1 diganti oleh semuanya hingga dirinya sendiri ditambah baris baru. Dengan ini kita mendapatkan rentang dari 1 ke n jika n positif, dari -1 ke n dengan tambahan -di awal jika negatif. Semua angka dalam unary dan dipisahkan oleh baris baru.

1+
$.&

Ubah setiap urutan yang menjadi angka desimal yang sesuai.

^-?
0

Letakkan 0di awal, ganti ekstra -jika ada.

.

Hitung jumlah karakter (non-baris baru).

Emacs, 20 byte

C-x ( C-x C-k TAB C-x ) M-{input} C-x e C-x h M-=

Perintah itu sendiri adalah 20 penekanan tombol, tetapi saya perlu klarifikasi tentang bagaimana ini harus dihitung sebagai byte. Saya beralasan bahwa menghitung setiap keystroke sebagai 1 byte akan menjadi yang paling adil. Perintah di atas ditulis secara konvensional agar lebih mudah dibaca.

Penjelasan

C-x (

Mulailah mendefinisikan makro keyboard.

C-x C-k TAB

Buat penghitung makro baru. Menulis 0ke buffer; nilai penghitung sekarang 1.

C-x )

Akhiri definisi makro keyboard.

M-{input} C-x e

Setelah menekan META, ketikkan nomor input Anda. The C-x ekemudian mengeksekusi makro yang berkali-kali.

C-x h

Setel tanda ke awal buffer (yang memilih semua teks yang dihasilkan).

M-=

Jalankan penghitungan karakter pada wilayah yang dipilih. Jumlah karakter akan dicetak dalam minibuffer.

Contoh

Permintaan maaf untuk warna highlight yang mengerikan. Ini adalah contoh dari menggunakan perintah ini dengan input 100. Outputnya ada di minibuffer di bagian bawah layar.

Lua, 52 byte

t=0;for i=0,io.read()do t=t+#tostring(i)end;print(t)

Iterate melalui for for dari 0-input, ubah integer imenjadi string dan tambahkan panjang string tsebelum mencetakt

Perl 5 , 32 byte

31 byte kode + -pbendera.

$\+=y///c for$_>0?0..$_:$_..0}{

Cobalah online!

C #, 77 73 byte

-4 byte terima kasih kepada @Kevin Cruijssen

Fungsi lambda:

(r)=>{var l="";for(int i=0,s=r<0?-1:1;i!=r+s;i+=s)l+=i;return l.Length;};

Tidak disatukan dan dengan kasus uji:

class P
{
    delegate int numbers(int e);
    static void Main()
    {
        numbers n = (r) =>
        {
            var l = ""; 
            for (int i = 0, s = r < 0 ? -1 : 1; i != r + s; i += s)
                l += i; 
            return l.Length;
        };
        System.Console.WriteLine(n(8));
        System.Console.WriteLine(n(101));
        System.Console.WriteLine(n(102));
        System.Console.WriteLine(n(-10));
        System.Console.ReadKey();
    }
}

JavaScript, 44 byte

f=(n,i=1)=>n<0?f(-n)-n:n<i?1:n+1-i+f(n,i*10)

<input type=number oninput=o.textContent=f(+this.value)><pre id=o>

REXX, 56 byte

arg n
l=0
do i=0 to n by sign(n)
  l=l+length(i)
  end
say l