バイナリクロック in Haskell DouKaku?

　時刻を二進数相当の表現で出力する時計アプリケーションを書いてください。
　20:18の場合，例えば以下の様な出力をするイメージです。

出力例:
　■□■□□
□■□□■□

#! c:\ruby\bin\ruby.exe -Ks

String.class_eval do |string|
    def words
        self.split(//)
    end
    def fix_width(width, padding)
        (self.words.size > width) ? self : (padding * (width - self.words.size) + self)
    end
end

Fixnum.class_eval do |fixnum|
    alias :to_s_orig :to_s
    def to_s(base, width)
        binary = self.to_s_orig(base).fix_width(width, "0")
    end
end

class BinaryClock
    attr_accessor :now
    def initialize
        self.now = Time.now
    end
    def print
        output(self.now.hour.to_s(2, 5))
        output(self.now.min.to_s(2, 6))
    end
private
    def output(binary)
        puts binary.words.map { |f| f == "0" ? "□" : "■" }.join.fix_width(6, "　")
    end
end

BinaryClock.new.print

6桁固定、24時、秒まで表示ですが。。。

*Main> :main -- 15:50:14
□□■■■■
■■□□■□
□□■■■□

import Data.List
import Data.Time
import qualified System.IO.UTF8 as U
import System.Locale

main = getCurrentTime
     >>= utcToLocalZonedTime 
     >>= mapM_ (U.putStrLn . repBin . toBin 6) 
     . read . formatTime defaultTimeLocale "[%H,%M,%S]"

repBin :: [Int] -> String
repBin = map f
  where
    f 1 = '■'
    f 0 = '□'

toBin :: Int -> Int -> [Int]
toBin n m = snd $ mapAccumR divMod m $ replicate n 2

なるほど!

Haskellで。

もうちょっとスマートに書けたならなぁ。

0->'.' / 1->'o' です。

import Data.Time
import System.Locale

digits = [a5:a4:a3:a2:a1:a0:[] | a5<-".o", a4<-".o", a3<-".o", a2<-".o", a1<-".o", a0<-".o"]

main = getCurrentTime
  >>= utcToLocalZonedTime 
  >>= mapM_ (putStrLn.(digits!!)).read.formatTime defaultTimeLocale "[%H,%M,%S]"

スマートかどうかは微妙だけど...

import Data.Time
import System.Locale
import qualified System.IO.UTF8 as U

bits :: [Char]
bits = "□■"

binReps :: Int -> [[Char]]
binReps 0 = [[]]
binReps n = concatMap (flip map (binReps (n-1)) . (:)) bits

main :: IO ()
main = mapM_ (U.putStrLn . (binReps 6 !!)) 
     . read . formatTime defaultTimeLocale "[%H,%M,%S]" 
     =<< utcToLocalZonedTime =<< getCurrentTime

binRepsの明示的再帰がちょっとスマートでない？それなら、こちらをどうぞ。

binReps = (binReps' !!)

binReps' :: [[[Char]]]
binReps' = scanl (concatMap . (.(:)) . flip map) [[]] (repeat bits)

ちょ、おま　(^_^;)

1	binReps n = sequence $ replicate n bits

ああますますダサクしてしまった

binReps = sequence . flip replicate bits

でいいんだって。 thanks [1..100]>>=pen

DouKaku?

バイナリクロック

Posted feedbacks - Haskell

Index

Feed

Other

Link

Pathtraq