mirror of
https://github.com/roc-lang/roc.git
synced 2024-09-20 15:27:45 +03:00
19 lines
582 B
Plaintext
19 lines
582 B
Plaintext
app "countdown"
|
|
packages { pf: "cli-platform/main.roc" }
|
|
imports [pf.Stdin, pf.Stdout, pf.Task.{ await, loop, succeed }]
|
|
provides [main] to pf
|
|
|
|
main =
|
|
_ <- await (Stdout.line "\nLet's count down from 10 together - all you have to do is press <ENTER>.")
|
|
_ <- await Stdin.line
|
|
loop 10 tick
|
|
|
|
tick = \n ->
|
|
if n == 0 then
|
|
_ <- await (Stdout.line "🎉 SURPRISE! Happy Birthday! 🎂")
|
|
succeed (Done {})
|
|
else
|
|
_ <- await (n |> Num.toStr |> \s -> "\(s)..." |> Stdout.line)
|
|
_ <- await Stdin.line
|
|
succeed (Step (n - 1))
|