DouKaku?beta

Comment detail

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

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

実行例:

% gosh human_readable.scm 123456789012345
112T

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
(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)

Index

Feed

Other

Link

Pathtraq

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