LL Golf Hole 7 - バイト数を読みやすくする in Scheme 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

またクラス作るパターンでやりました。

#!/usr/bin/env gosh
(define-class <b> ()
  ((b :init-keyword :b :accessor b-b)))

(define-method write-object ((b <b>) port)
  (let* ((j (b-b b))
         (k 1000.0)
         (l '(byte k M G T P E Z Y))
         (m (min (truncate->exact (/ (log j) (log k)))
                 (- (length l) 1))))
    (if (< j k)
        (display j)
        (display (/ (truncate (* (/ j (expt k m)) 10)) 10)))
    (print (list-ref l m))))

(define (main args)
  (display "input: ")(flush)
  (print (make <b> :b (x->number(read)))))

小数点以下の桁数を固定で表示する標準的な方法が分かりません…。これだと、「10000000」が「10.MB」になってしまう。

(use srfi-42)

(print (let ((b 1000)
              (x (x->integer (read))))
          (last-ec x (:parallel (:do ((y x)) (>= y b) ((/. y b)))
                                   (: u "KMGTPEZY"))
            (format "~,,,,3a~a" (/. y b) u)))
        'B)

(let ((kibi 1024))
  (do ((n (read) (/. n kibi))
       (u '(|| k M G T) (cdr u)))
      ((< n kibi) (format #t "~A~AB~%" n (car u)) 0)))

SRFI-48 や SRFI-54 を使うと小数点以下桁数を指定して出力できるようですね。

残念ながら Gauche は対応してないようなので Guile で。

(use-modules (ice-9 format))
(letrec ((num (string->number (cadr (command-line))))
    (base 1024) (prefix (string->list " KMGTPEZY"))
    (loop (lambda (m ls)
        (if (pair? ls)
            (if (< num (* m base))
                (format #f "~,1F~A" (exact->inexact (/ num m)) (car ls))
                (loop (* m base) (cdr ls)))
            (format #f "~:DB" num)))))
    (display (loop 1 prefix))
    (newline))

車輪の再発明はしない方針で作りました。なお、*BSDでないと動かないと思います (動作はFreeBSDで確認しました。他のOSではcppflagsを変更する必要があるかも)

実行例:

% gosh human_readable.scm 123456789012345
112T

(use c-wrapper)

(c-load '("stdio.h" "stdint.h" "unistd.h" "libutil.h") 
        :cppflags "-Dlint" :libs "-lutil")

(define (main args)
  (let1 buf (make (c-array <c-char> 5))
    (humanize_number buf (c-sizeof buf) (x->integer (ref args 1)) ""
                     HN_AUTOSCALE HN_NOSPACE)
    (puts buf))
  0)

SLIB の format を使うと Gauche でも小数点以下桁数を指定できますね。

...それと他の皆さんのコードを見て若干変更。

(use slib)
(require 'format)
(define (main args)
    (letrec ((num (string->number (cadr args)))
        (base 1024) (prefix (string->list " KMGTPEZY"))
        (loop (lambda (n ls)
            (if (pair? ls)
                (if (< n base)
                    (format #f "~,1F~A" (exact->inexact n) (car ls))
                    (loop (/ n base) (cdr ls)))
                (format #f "~:DB" num)))))
        (display (loop num prefix))
        (newline))
    0)

DouKaku?

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

Posted feedbacks - Scheme

Index

Feed

Other

Link

Pathtraq