ref:http://d.hatena.ne.jp/fumokmm/20110822/1314013182 えーと、じゃ、Scala で。 assert はテストとは違う気がするが、まぁいいか。 object RomanNumber { val romanDigits = List( ("M", 1000), ("CM", 900), ("D", 500), ("CD", 400), ("C", 100), ("XC…

ref:http://togetter.com/li/178360 ref:http://blog.goo.ne.jp/tokyodo-2005/e/d7482e1485743d5826076141de447be0 抗議の意思としての不買というのであれば、対象企業の製品を徹底的に避けなくたっていいんでないかな。そりゃ、三菱、東芝、日立の製品を使…

ref:http://d.hatena.ne.jp/fumokmm/20110817/1313590148 こんどは Scheme で。 (use srfi-13) (define (init lst) (cond ((null? lst) (error "init: empty list")) ((null? (cdr lst)) '()) (else (cons (car lst) (init (cdr lst)))))) (define (relative…

ref:http://d.hatena.ne.jp/fumokmm/20110813/1313196903 こんなんかな。 coinCombinations :: Int -> [Int] -> [[Int]] coinCombinations total coins | total == 0 = [[]] | null coins = [] | total < first = firstUnusedList | otherwise = firstUsedLi…

ref:http://d.hatena.ne.jp/fumokmm/20110812/1313138407 via:http://www.kt.rim.or.jp/~kbk/zakkicho/11/zakkicho1108b.html#D20110812-4 ふむ。Haskell だとどうなるか。 素直に書くとこうかな。 sameAll :: Eq a => [a] -> Bool sameAll (x:xs) = all (x=…