コードゴルフ:フレンドリーな番号の略語
質問
この質問に基づいて: 数字を友好的な形式に丸める方法はありますか?
チャレンジ - 更新しました! (仕様から数百の略語を削除しました)
整数(小数なし)を略す文字カウントによる最短コード。
コードには完全なプログラムを含める必要があります。
関連する範囲はからです 0 - 9,223,372,036,854,775,807
(署名された64ビット整数の上限)。
略語の小数点以下の場所の数はプラスになります。 以下を計算する必要はありません。 920535 abbreviated -1 place
(これはそのようなものです 0.920535M
).
数十と数百の場所の数字(0-999
) したほうがいい 一度もない 略される(数の略語 57
に 1+
小数の場所はです 5.7dk
- それは邪魔にならず、友好的ではありません)。
ゼロから半分離れていることを忘れないでください(23.5は24に丸められます)。銀行家の丸めは冗長です。
関連する番号の略語は次のとおりです。
h = hundred (10
2
)
k = thousand (10
3
)
M = million (10
6
)
G = billion (10
9
)
T = trillion (10
12
)
P = quadrillion (10
15
)
E = quintillion (10
18
)
サンプル入力/出力 (入力 できる 別々の議論として渡される):
最初の議論は、省略する整数です。 2つ目は、小数点以下の場所の数です。
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、Specには従いません):
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;
}
解決
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ログ ^.
最初のパラメーションの {.
. 。 2番目のパラメーションで参加します {:
そして、最初のパラメーション {.
.
それで、最初のビットの後、私たちは言うことを変えました 12345 2
の中へ 1 2 12345
((j.&(1&{)":({.%&1000{:));{&' kMGTPE'@{.)
使用します ;
式の2つの半分をボックス内で一緒に結合して、最終出力を生成します。
前半はです ((j.&(1&{)":({.%&1000{:))
それは分裂します(%
)最後の入力番号({:
)1000まで、最初の回数。次に、精度を設定します ":
入力リストの2番目の番号を使用します(1&{
).
後半 {&' kMGTPE'@{.
- これは最初の番号を使用して選択します({
)略語の0インデックスされたリストからの適切な文字。
他のヒント
Python 2.x、78 Chars
a=input()
i=0
while a>=1e3:a/=1e3;i+=1
print"%g"%round(a,input())+" kMGTPE"[i]
このバージョン(75 chars)余分なゼロを印刷し、ラウンドツーエベルのルールに従うprintfを使用します。
a=input()
i=0
while a>=1e3:a/=1e3;i+=1
print"%%.%df"%input()%a+" kMGTPE"[i]
Perl 114 111 104 chars
私の初めてのコードゴルフエントリ!
標準入力から提供された引数: 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
JavaScript 114 Chars
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
文字列のみを渡すことを約束します:)
ルビー - 79 77 75 83 chars
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枚のchars、二重引用符内の出力を印刷します
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]]
に基づく これ 解決策、およびサンプルコード。
DC -75 Chars
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
, 、お気軽に改善してください。
PHP 57 CHARS
for($a=num+1;$a>=1;$a=$a/26)$c=chr(--$a%26+65).$c;echo$c;
Haskell、126(インポートなし、それは2つの引数を取る関数です):
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
Perl 94 Chars
($_,$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