2009-12-11から1日間の記事一覧
2の一番下の例はパッと思いつかなかった。 -- 2 asInt_fold :: String -> Int asInt_fold xs | null xs = error "empty list" | xs == "-" = error "minus sign only" | '.' `elem` xs = error "floating point" | head xs == '-' = negate $ fold $ tail xs…
2の一番下の例はパッと思いつかなかった。 -- 2 asInt_fold :: String -> Int asInt_fold xs | null xs = error "empty list" | xs == "-" = error "minus sign only" | '.' `elem` xs = error "floating point" | head xs == '-' = negate $ fold $ tail xs…