--.--
--
上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

09.07
Fri
Haskell....数学ができなきゃダメな気がしてきて早くも挫折しそう...

とりあえずHaskellでFizzbuzz

check :: Integer -> [Char]
check number 
    | ((*) (div number 15)  15) == number = "FizzBuzz"
    | ((*) (div number 5 )  5)  == number = "Buzz"
    | ((*) (div number 3 )  3)  == number = "Fizz"
    | otherwise = (show number)
    
fb :: Integer -> [Char]
fb 1 = show 1
fb number = (fb (number - 1)) ++ " " ++ (check number)
スポンサーサイト

comment 0 trackback 0
トラックバックURL
http://telracsmoratori.blog.fc2.com/tb.php/134-de5657c3
トラックバック
コメント
管理者にだけ表示を許可する
 
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。