blob: f3dc641acc5980ffa7f24fc61a3f18ce20d31c0d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
-----------------------------------------------------------
-- Print the lyrics to the song '99 bottles of beer'
output =
range(99, 1)
|> map(showBeer)
|> printLines
beerFmt = """{} of beer on the wall!
{} of beer!
You take one down, pass it around
{}"""
showBeer(n) =
format(
beerFmt,
[showBottle(n), showBottle(n), nextBeer(n - 1)]
)
nextBeer(n) =
if n == 0 then "No more bottles of beer on the wall!"
else format("{} of beer on the wall!\n", [showBottle(n)])
-----------------------------------------------------------
-- Get appropriate singular / plural form of 'n bottle(s)'
showBottle(n) =
format("{} {}", [n, bottleStr])
where bottleStr = if n == 1 then "bottle" else "bottles"
|
