LL Golf Hole 7 - バイト数を読みやすくする in Perl DouKaku?

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

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

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

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

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

CPANモジュールNumber::Bytes::Humanを使ってone-liner。入力は標準入力

perl -MNumber::Bytes::Human=format_bytes -nlE'say format_bytes$_’

66bytesかな

see: Number::Bytes::Human

-p を使ってもう1byte削れた. おまけでv5.10じゃなくても大丈夫に

perl -MNumber::Bytes::Human=format_bytes -ple'$_=format_bytes$_’

お題のSample Codeを参考に書いてみました。byte数は標準入力から与えます。111byte。

1 2	$i=int(((($n=<>)=~tr/0-9/0-9/)-1)/3); printf(($i?"%.1f":"%d")."%s\n",$n/10*($i3),('',qw(k M G T P E Z Y))[$i])

CPANモジュールを使わずに引数入力で84バイト。標準入力だと shift が <> になってあと3バイト削れる。

1	$n=shift;$n/=1000,$i++while$n>=1000;printf$i?"%.1f%s":"%d",$n,substr' kMGTPEZY',$i,1

DouKaku?

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

Posted feedbacks - Perl

Index

Feed

Other

Link

Pathtraq