Add tasks for all the new languages
This commit is contained in:
parent
9dc3c2bb62
commit
bba7bfd280
13208 changed files with 134745 additions and 0 deletions
15
Task/FizzBuzz/Elm/fizzbuzz-1.elm
Normal file
15
Task/FizzBuzz/Elm/fizzbuzz-1.elm
Normal file
|
|
@ -0,0 +1,15 @@
|
|||
import Graphics.Element exposing (show)
|
||||
import List exposing (map)
|
||||
|
||||
main =
|
||||
map getWordForNum [1..100] |> show
|
||||
|
||||
getWordForNum num =
|
||||
if num % 15 == 0 then
|
||||
"FizzBuzz"
|
||||
else if num % 3 == 0 then
|
||||
"Fizz"
|
||||
else if num % 5 == 0 then
|
||||
"Buzz"
|
||||
else
|
||||
toString num
|
||||
18
Task/FizzBuzz/Elm/fizzbuzz-2.elm
Normal file
18
Task/FizzBuzz/Elm/fizzbuzz-2.elm
Normal file
|
|
@ -0,0 +1,18 @@
|
|||
import Html exposing (text)
|
||||
import List exposing (map)
|
||||
import String exposing (join)
|
||||
|
||||
main : Html.Html
|
||||
main =
|
||||
map fizzbuzz [1..100] |> join " " |> text
|
||||
|
||||
fizzbuzz : Int -> String
|
||||
fizzbuzz num =
|
||||
let
|
||||
fizz = if num % 3 == 0 then "Fizz" else ""
|
||||
buzz = if num % 5 == 0 then "Buzz" else ""
|
||||
in
|
||||
if fizz == buzz then
|
||||
toString num
|
||||
else
|
||||
fizz ++ buzz
|
||||
Loading…
Add table
Add a link
Reference in a new issue