Code-Golf：友好的数字缩写器

Question

基于这个问题： 是 办法将数字舍入为友好的格式？

挑战 - 已更新！ （从规范中删除了数百个缩写）

有没有 按字符计数的代码将缩写为整数（无小数）。

代码应包含完整的程序。

相关范围为 0 - 9,223,372,036,854,775,807（有符号 64 位整数的上限）。

缩写的小数位数将为正数。 您不需要计算以下内容：920535 缩写 -1 place（类似于 0.920535M）。

十位和十位中的数字百位 (0-999) 绝不 应该缩写（数字 57 到 1+ 十进制的缩写地方是5.7dk - 这是不必要的并且不友好）。

请记住从零开始舍入一半（23.5 舍入为 24）。禁止银行家四舍五入。

以下是相关数字缩写：

h = Hundred (102)< br> k = 千 (103)
M = 百万 (106)
G = 十亿（109）
T = 万亿 (1012)
P = 四万亿 (1015)
E = quintillion (1018)

样本输入/输出（输入可以作为单独的参数传递）：

第一个参数将是要缩写的整数。第二个是小数位数。

12 1                  => 12 // tens and hundreds places are never rounded
1500 2                => 1.5k
1500 0                => 2k // look, ma! I round UP at .5
0 2                   => 0
1234 0                => 1k
34567 2               => 34.57k
918395 1              => 918.4k
2134124 2             => 2.13M
47475782130 2         => 47.48G
9223372036854775807 3 => 9.223E
// ect...

---

相关问题的原始答案（JavaScript，不遵循规范）：

function abbrNum(number, decPlaces) {
    // 2 decimal places => 100, 3 => 1000, etc
    decPlaces = Math.pow(10,decPlaces);

    // Enumerate number abbreviations
    var abbrev = [ "k", "m", "b", "t" ];

    // Go through the array backwards, so we do the largest first
    for (var i=abbrev.length-1; i>=0; i--) {

        // Convert array index to "1000", "1000000", etc
        var size = Math.pow(10,(i+1)*3);

        // If the number is bigger or equal do the abbreviation
        if(size <= number) {
             // Here, we multiply by decPlaces, round, and then divide by decPlaces.
             // This gives us nice rounding to a particular decimal place.
             number = Math.round(number*decPlaces/size)/decPlaces;

             // Add the letter for the abbreviation
             number += abbrev[i];

             // We are done... stop
             break;
        }
    }

    return number;
}

Answer 1

J, 61 63 65 个字符

((j.&(1&{)":({.%&1e3{:));{&' kMGTPE'@{.)(([:<.1e3^.{.),{:,{.)

输出：（

((j.&(1&{)":({.%&1e3{:));{&' kMGTPE'@{.)(([:<.1e3^.{.),{:,{.) 1500 0
┌─┬─┐
│2│k│
└─┴─┘

((j.&(1&{)":({.%&1e3{:));{&' kMGTPE'@{.)(([:<.1e3^.{.),{:,{.) 987654321987654321 4
┌────────┬─┐
│987.6543│P│
└────────┴─┘

输出像这样“装箱”的原因是因为 J 不支持由不同类型组成的列表）

解释（来自从右到左）：

(([:<.1000^.{.),{:,{.)

我们使用 , 创建一个新的 3 元素列表加入 ([:<.1000^.{.) （第一个参数的底数 <. 以 1000 为底的 log ^. {.。我们将其与第二个参数 {: 和第一个参数 {. 连接起来

。将 12345 2 转换为 1 2 12345

((j.&(1&{)":({.%&1000{:)); {&' kMGTPE'@{.) 使用 ; 将表达式的两半连接到一个框中以产生最终输出。

前半部分是 (( j.&(1&{)":({.%&1000{:)) 除 (%) 最后一个输入数字 ({:) 乘以第一个次数 1000，然后使用输入列表中的第二个数字 (1&{) 设置精度 ":。

后半部分{&' kMGTPE'@{. - 使用第一个数字从 0 索引的缩写列表中选择 ({) 适当的字符。

Answer 2

Python 2.x，78 个字符

a=input()
i=0
while a>=1e3:a/=1e3;i+=1
print"%g"%round(a,input())+" kMGTPE"[i]

此版本（75 个字符）使用 printf，它将打印额外的零并遵循舍入到偶数规则。

a=input()
i=0
while a>=1e3:a/=1e3;i+=1
print"%%.%df"%input()%a+" kMGTPE"[i]

Answer 3

Perl 114 111 104 个字符

我的第一个代码高尔夫条目！

标准输入提供的参数：perl fna.pl 918395 1

($n,$d)=@ARGV;
@n=$n=~/./g;
@s=' kMGTPE'=~/./g;
printf"%.".(@n>3?$d:0)."f%s",$n/(10**($#n-$#n%3)),$s[@n/3];

输出：

<代码>918.4k

---

脱高尔夫球版本（带解释）：

( $number, $dp ) = @ARGV;      # Read in arguments from standard input

@digits = split //, $number;   # Populate array of digits, use this to count
                               # how many digits are present

@suffix = split //, ' kMGTPE'; # Generate suffix array

$number/(10**($#n-$#n%3));     # Divide number by highest multiple of 3

$precision = @n>3 ? $dp : 0;   # Determine number of decimal points to print

sprintf "%.".$precision."f%s", # "%.2f" prints to 2 dp, "%.0f" prints integer
        $number, $suffix[@n/3];# Select appropriate suffix

Answer 4

Javascript 114 个字符

function m(n,d){p=M.pow
d=p(10,d)
i=7
while(i)(s=p(10,i--*3))<=n&&(n=M.round(n*d/s)/d+"kMGTPE"[i])
return n}

另外 114 - 使用 Spidermonkey - 在 STDIN 上输入

[n,d]=readline().split(' '),x=n.length,p=Math.pow,d=p(10,d)
x-=x%3
print(Math.round(n*d/p(10,x))/d+" kMGTPE"[x/3])

104 - 函数

function(a,b,c,d){
    c=(''+a).length;
    d=Math.pow;
    b=d(10,b);
    return((a*b/d(10,c-=c%3))+.5|0)/b+' kMGTPE'[c/3]
}

如果您将 (''+a) 替换为 a 并承诺仅通过，则该函数也将变为 99字符串:)

Answer 5

Ruby - 79 77 75 83 个字符

n,d=ARGV
l=n.to_s.length
printf"%.#{l>3?d:0}f%s",n.to_f/10**(l-l%3)," kMGTPE"[l/3]

从命令行参数读取。

74 72 80 个字符，在双引号内打印输出

n,d=ARGV
l=n.to_s.length
p"%.#{l>3?d:0}f%s"%[n.to_f/10**(l-l%3)," kMGTPE"[l/3]]

66 74 个字符，打印额外的零

n,d=ARGV
l=n.to_s.length
p"%.#{d}f%s"%[n.to_f/10**(l-l%3)," kMGTPE"[l/3]]

基于 此解决方案以及示例代码。

Answer 6

dc - 75 个字符

A7 1:U77 2:U71 3:U84 4:U80 5:U69 6:U[3+r1-r]sJ?sddZd3~d0=Jrsp-Ar^ldk/nlp;UP

使用 Z（位数）%3 查找单位。大部分代码是设置单位字符数组，真正的代码是39个字符。当 %3 等于 0 时，J 宏会进行调整，以避免在第 7 个位置打印 0.918M。测试用例。它不能正确舍入。

如果您说dc，请随时改进它。

Answer 7

PHP 57 个字符

for($a=num+1;$a>=1;$a=$a/26)$c=chr(--$a%26+65).$c;echo$c;

Answer 8

Haskell，126（没有导入，它是一个带有两个参数的函数）：

f n p|l>3=showFFloat (Just p) (c n/c 10^(l-w)) [" kMGTPE"!!f]|True=show n where(f,w)=divMod l 3;c=fromIntegral;l=length$show n

扩展：

import Numeric

doit :: Integer -> Int -> String
doit n p
    | l > 3 = showFFloat (Just p) d [" kMGTPE" !! f]
    | otherwise = show n
    where
    d = (fromIntegral n) / fromIntegral (10^(l-w))
    (f,w) = divMod l 3
    l = length $ show n

Answer 9

Perl 94 个字符

($_,$d)=@ARGV;$l=length;@u=' kMGTPE'=~/./g;printf"%.".($l>3?$d:0)."f$u[$l/3]",$_/10**($l-$l%3)

用法：

perl abbreviator.pl 47475782130 2

输出：

47.48G