mirror of
https://github.com/correl/elm.git
synced 2024-11-16 11:09:29 +00:00
20 lines
369 B
Text
20 lines
369 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
|