DouKaku?beta

challenge LL Golf Hole 7 - バイト数を読みやすくする

与えられたバイト数を読みやすくしてください。読みやすくとは、いわゆる human readable な表記とします（詳しくはサンプルのコードを参考にしてください）。

与えるバイト数についてはリテラルで与える、標準入力で与える、引数で与えるなどは自由とします。

余力のあるものはこのプログラムを短くしてください。

※ LL Future実行委員の高野光弘です。この出題は LL Future公式の出題であり、優れたものについてはLL Golfのセッションでご紹介させていただくかもしれません。ご理解の上、ご投稿ください。また、LL Futureのチケットは現在も発売中です。よろしければ、メインイベントの方にもぜひご参加ください。 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
b = gets.to_i
if b < 10**3
    puts b
elsif b < 10**6
    puts "%.1fk" % (b.to_f/10**3)
elsif b < 10**9
    puts "%.1fM" % (b.to_f/10**6)
elsif b < 10**12
    puts "%.1fG" % (b.to_f/10**9)
else
    puts "%.1fT" % (b.to_f/10**12)
end
post comment

Posted feedbacks - Other

VBA for Excel (2003)

1
2
3
4
5
6
Sub Main()
  b = Val(InputBox(""))
  i = Int(Log(b + 0.1) / Log(1000))
  p = b / 1000 ^ i
  MsgBox p & IIf(i > 0, Mid("kMGTPEZY", i, 1), "")
End Sub

phpがないようなので。CLI版の標準入力からです。

ヨタの上ってないのでしょうか？

1
<?php $l=array('','K','M','G','T','P','E','Z','Y','?');$b=$argv[1];for(;$b>=1024;++$i){$b/=1024;}echo $b,$l[$i];

Index

Feed

Other

Link

Pathtraq

loading...
Creative Commons License このサイトの内容は、 クリエイティブ・コモンズ・ライセンスの下でライセンスされています。 [詳細]