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