Profile
Search in cobodo@qiitadon.com
cobodo cobodo@qiitadon.com
FizzBuzz違うの書いた
module Main where
data FB = Fizz | Buzz | FizzBuzz | N Int
deriving Show
toFB :: Int -> FB
toFB x
| x `mod` 15 == 0 = FizzBuzz
| x `mod` 5 == 0 = Buzz
| x `mod` 3 == 0 = Fizz
| otherwise = N x
main :: IO ()
main = print $ map toFB [1..100]
cobodo cobodo@qiitadon.com
mastodonってそんなに綺麗な構造してるのかなぁ……ソース読んでないけど、ブラウザ上で見る限りでもstyle属性が乱舞してて相当つらそうに見える
cobodo reblogged at 8 years ago
cobodo reblogged at 8 years ago
cobodo reblogged at 8 years ago
cobodo cobodo@qiitadon.com
module Main where
main :: IO ()
main = print $ [f n | n <- [1..100]]
where
f n
| n `mod` 15 == 0 = "FizzBuzz"
| n `mod` 5 == 0 = "Buzz"
| n `mod` 3 == 0 = "Fizz"
| otherwise = show n
cobodo cobodo@qiitadon.com
main=print$[if i`mod`15==0 then "FizzBuzz" else if i`mod`5==0 then "Buzz" else if i`mod`3==0 then "Fizz" else show i|i<-[1..100]]
cobodo reblogged at 8 years ago
cobodo reblogged at 8 years ago
cobodo reblogged at 8 years ago
cobodo reblogged at 8 years ago
cobodo reblogged at 8 years ago
cobodo reblogged at 8 years ago
cobodo reblogged at 8 years ago
cobodo reblogged at 8 years ago