てっしーの雑記

主に技術系のネタを

Elm学習 〜FizzBuzz〜

勉強がてら書いてみた

module FizzBuzz exposing (..)
judgment : Int -> String
judgment x =
    if (x % 3) == 0 && (x % 5) == 0 then
        "FizzBuzz"
    else if (x % 3) == 0 then
        "fizz"
    else if (x % 5) == 0 then
        "buzz"
    else
        toString x
> import FizzBuzz
> List.map (\x -> FizzBuzz.judgment x) <| List.range 1 100
or
> List.map FizzBuzz.judgment <| List.range 1 100
["1","2","fizz","4","buzz","fizz","7","8","fizz","buzz","11","fizz","13","14","FizzBuzz","16","17","fizz","19","buzz","fizz","22","23","fizz","buzz","26","fizz","28","29","FizzBuzz","31","32","fizz","34","buzz","fizz","37","38","fizz","buzz","41","fizz","43","44","FizzBuzz","46","47","fizz","49","buzz","fizz","52","53","fizz","buzz","56","fizz","58","59","FizzBuzz","61","62","fizz","64","buzz","fizz","67","68","fizz","buzz","71","fizz","73","74","FizzBuzz","76","77","fizz","79","buzz","fizz","82","83","fizz","buzz","86","fizz","88","89","FizzBuzz","91","92","fizz","94","buzz","fizz","97","98","fizz","buzz"]
    : List String