写数字是编程的Hello世界，通常是数字1-10。
我想写很多数字！很多很多的数字。但是我必须写多少个数字？
给定整数输入，请提供一个数字作为输出，该数字将为我提供包含从0到输入（含）在内的所有整数的字符串中的位数。否定标识符（“-”）计为单个字符。
输入：8
写入：0,1,2,3,4,5,6,7,8
输出：9
输入：101
写出：0,1,2,3 ....，99,100,101
输出：196
输入：102
写出：0,1,2,3 ....，100,101,102
输出：199
输入-10
写出：0，-1，-2，-3，-4，-5，-6，-7，-8，-9，-10
输出：22
这是一个代码高尔夫球。最低字节数获胜！
Answers:
f x{[#([seq(0,x)]&"")]}
解释：
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. */
感谢@seshoumara节省了2个字节。
seq 0 $1|fold -1|wc -l测试在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这是GNU版本：
再次感谢@seshoumara，节省了2个字节。
(seq $1 0;seq 0 $1)|uniq|fold -1|wc -lfold -1|wc -l计数？它更短。
最短版本：
lambda x:sum(map(len,map(str,(range(0,x+cmp(x,.5),cmp(x,.5))))))
这个版本节省了5个字节，这要归功于@numbermaniac：
x=input()
print len(''.join(map(str,(range(x+1)if x>0 else range(0,x-1,-1)))))
此后，我自己想出了一个（相同的字节数）：
x=input()
print sum(map(len,map(str,(range(x+1)if x>0 else range(0,x-1,-1)))))
map在第二行使用78个字节：print len(''.join(map(str,(range(x+1)if x>0 else range(0,x-1,-1)))))。通过将其设置为lambda，您可以节省更多。
print sum(map(len,map(str,(range(x+1)if x>0 else range(0,x-1,-1)))))
lambda x:sum(map(len,map(str,(range(x+1)if x>0 else range(0,x-1,-1)))))为71个字节
int c(int r,int n){r+=(n+"").length();return n>0?c(r,n-1):n<0?c(r,n+1):r;}
说明（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
如果0由于某种原因不允许使用默认的第二个参数作为递归方法，则可以使用如下所示的for循环：
int d(int n){String r="x";for(int i=n;i!=0;i+=n<0?1:-1)r+=i;return r.length();}
说明（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
测试代码：
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));
}
}
输出：
9 9
196 196
199 199
22 22
通过Roberto06 Outgolfed - https://codegolf.stackexchange.com/a/112536/38505
感谢roberto06注意到以前的版本不适用于负数。
只需构建一个数字数组，将其放入字符串中，然后计算数字（和负号）
<?=preg_match_all("/\-|\d/",implode(",",range(0,$argv[1])));
运行示例： php -f 112504.php 8
join代替保存3个字节，implode因为它是一个别名。
[--9]
f 0=1
f n=length$show=<<[0..n]++[n..0]在线尝试！编辑：感谢@xnor，保存了1个字节！
说明：
在Haskell中输入数字a，b [a..b]取值范围是从a到b1递增还是1递减，取决于是否b更大a。因此，对于正数n，第一个列表[0..n]++[n..0]为[0,1,2,...,n]，第二个列表为空。如果为负，n则第二个范围屈服[0,-1,-2,...,n]，第一个为空。但是，如果n=0两个范围都产生列表[0]，则串联[0,0]将导致错误的结果2。这就是为什么0将其作为特殊情况处理的原因。
=<<列表上的-operator与相同concatMap，因此每个数字都由转换为一个字符串show，所有这些字符串都串联在一个长字符串中，length最后返回。
在xnor提出建议之前，我使用[0,signum n..n]代替[0..n]++[n..0]。
signum n是-1用于负数，0用于零和1用于正数，并且该格式的范围[a,b..c]构建从a到的c具有递增的数字列表b。从而[0,signum n..n]建立的范围内[0,1,2,...,n]为正n和[0,-1,-2,...,n]为负n。因为n=0它将建立无限列表，[0,0,0,...]所以我们也需要0作为特殊情况进行处理。
[0..n]++[n..0]应该这样做[0,signum n..n]。
感谢user59178，节省了6个字节
由于ʰᵈ的答案对于否定的输入是错误的，因此我自己决定建立一个新的解决方案：
<?=strlen(join(range(0,$argv[1])));
该功能：
0到建立数组$argv[1]（又称输入）preg_match():(
range()这是否不是您的解决方案，我想我们甚至还没有;）
implode，但我不知道可以省略gue参数。谢谢 ！
-1字节感谢Martin Ender！
StringLength[""<>ToString/@Range[0,#,Sign@#]]&
匿名函数，以数字作为参数。
1-#~Min~0+Tr@IntegerLength@Range@Abs@#&
Sign@#的#/Abs@#。
1-#~Min~0+Tr@IntegerLength@Range@Abs@#&。首字母1占数字0，-#~Min~0如果输入为负，则占所有负号。
0hSZ}&:VXzn
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
-join(0.."$args")|% Le*在线尝试！（对于非常大（绝对）的输入，将在TIO上打断）
使用..范围运算符构造从0到输入的范围$args（以字符串形式显示，以从输入数组转换）。将-join它们一起编入字符串（例如01234），然后使用Length。那留在管道上，输出是隐式的。
{chars [~] 0...$_}{ # 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
}C-x ( C-x C-k TAB C-x ) M-{input} C-x e C-x h M-=
该命令本身是20次击键，但是我需要澄清如何将其计为字节。我认为将每个按键计数为1个字节是最公平的。上面的命令按常规编写，以便于阅读。
C-x (
开始定义键盘宏。
C-x C-k TAB
创建一个新的宏计数器。写入0缓冲区；计数器的值现在为1。
C-x )
结束键盘宏定义。
M-{input} C-x e
点击META后，输入您的输入号码。在C-x e随后执行宏多次。
C-x h
将标记设置为缓冲区的开头（它将选择由此生成的所有文本）。
M-=
在所选区域上运行字符计数。字符数将打印在迷你缓冲区中。
不好意思的突出显示颜色。这是在输入100中使用此命令的示例。输出在屏幕底部的微型缓冲区中。
-4个字节，感谢@Kevin Cruijssen
Lambda函数：
(r)=>{var l="";for(int i=0,s=r<0?-1:1;i!=r+s;i+=s)l+=i;return l.Length;};
取消测试并包含测试用例：
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();
}
}
while，以for节省几个字节：(r)=>{var l="";for(int i=0,s=r<0?-1:1;i!=r+s;i+=s)l+=i;return l.Length;};（73个字节）
Func<int, int>，则可以调用函数r=>...以节省2个字节（仍然可以执行此操作）。