Подтвердить что ты не робот

Code-Golf: аббревиатура для дружественного номера

Исходя из этого вопроса: Есть ли способ округлить числа в дружественный формат?

ПРОБЛЕМА - ОБНОВЛЕНО! (удалено сотня аббревиатуры от спецификации)

Самый короткий код по количеству символов, который сократит целое число (без десятичных знаков).

Код должен включать полную программу.

Соответствующий диапазон от 0 - 9,223,372,036,854,775,807 (верхний предел для подписанного 64-битного целого).

Число знаков после запятой для аббревиатуры будет положительным. Вам не нужно будет вычислять следующее: 920535 abbreviated -1 place (что было бы как 0.920535M).

Числа в десятках и сотнях мест (0-999) никогда не должны сокращаться (аббревиатура для номера 57 до 1+ десятичных знаков 5.7dk - она ​​не нужна и не является дружественной).

Не забудьте округлить половину от нуля (23.5 округляется до 24). Округление банкиров - verboten.

Ниже приведены соответствующие сокращения:

h = hundred (10 2)удаp >
k = thousand (10 3)
M = million (10 6)
G = billion (10 9)
T = trillion (10 12)
P = quadrillion (10 15)
E = quintillion (10 18)

SAMPLE INPUTS/OUTPUTS (входы могут передаваться как отдельные аргументы):

Первый аргумент будет целым числом для сокращения. Второй - это число десятичных знаков.

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;
}
4b9b3361

Ответ 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^.{.) (положенный <. base 1000 log ^. первого параметра {.. Мы присоединяем его ко второму параметру {:, а затем первый параметр {..

Итак, после первого бита мы преобразовали слово 12345 2 в 1 2 12345

((j.&(1&{)":({.%&1000{:));{&' kMGTPE'@{.) использует ; для объединения двух половин выражения вместе в поле для получения конечного результата.

Первая половина ((j.&(1&{)":({.%&1000{:)), которая делит (%) на последний номер входа ({:) на 1000, первое число раз. Затем он устанавливает точность ":, используя второе число во входном списке (1&{).

Вторая половина {&' kMGTPE'@{. - используется первый номер для выбора ({) соответствующего символа из списка сокращений, индексированных 0.

Ответ 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, который будет печатать лишние нули и следует правилу round-to-even.

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

Ответ 3

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]
}

Это также становится 99, если вы замените (''+a) на a и обещаете только передать строки:)

Ответ 4

Perl 114 111 104 символа

Моя первая запись в кодовом зале!

Аргументы, предоставляемые со стандартного ввода: perl fna.pl 918395 1

($n,$d)[email protected];
@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

Ответ 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]]

На основе этого решения и пример кода.

Ответ 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 символов. Макрос J настраивается, когда %3 равно 0, чтобы избежать печати 0.918M в 7-м. прецедент. Он не округляется должным образом.

Если вы говорите dc, не стесняйтесь его улучшать.

Ответ 7

PHP 57 chars

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

Ответ 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

Expanded:

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

Ответ 9

Perl 94 Chars

($_,$d)[email protected];$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