mirror of
https://github.com/correl/elm.git
synced 2024-12-19 03:00:29 +00:00
30 lines
459 B
Text
30 lines
459 B
Text
module Raindrops (..) where
|
|
|
|
import String
|
|
|
|
|
|
raindrops : Int -> String
|
|
raindrops number =
|
|
let
|
|
drops =
|
|
[ if number % 3 == 0 then
|
|
"Pling"
|
|
else
|
|
""
|
|
, if number % 5 == 0 then
|
|
"Plang"
|
|
else
|
|
""
|
|
, if number % 7 == 0 then
|
|
"Plong"
|
|
else
|
|
""
|
|
]
|
|
|
|
result =
|
|
String.join "" drops
|
|
in
|
|
if result == "" then
|
|
toString number
|
|
else
|
|
result
|