Sha256: ef2abb50e08f4d6a9213cfaefd33fa051260a65dcbc805ae1c2a4d55465e1f16
Contents?: true
Size: 1.23 KB
Versions: 135
Compression:
Stored size: 1.23 KB
Contents
use "collections"
use "itertools"
primitive BeerSong
fun verse(n: USize): String =>
match n
| 0 =>
"""
No more bottles of beer on the wall, no more bottles of beer.
Go to the store and buy some more, 99 bottles of beer on the wall.
"""
| 1 =>
"""
1 bottle of beer on the wall, 1 bottle of beer.
Take it down and pass it around, no more bottles of beer on the wall.
"""
| 2 =>
"""
2 bottles of beer on the wall, 2 bottles of beer.
Take one down and pass it around, 1 bottle of beer on the wall.
"""
else
let ns: String = n.string()
let ns': String = (n - 1).string()
recover String
.>append(ns)
.>append(" bottles of beer on the wall, ")
.>append(ns)
.>append(" bottles of beer.\nTake one down and pass it around, ")
.>append(ns')
.>append(" bottles of beer on the wall.\n")
end
end
fun sing(start: USize, stop: USize): String iso^ =>
try
String.join(
Iter[USize](Reverse(start, stop))
.map[String]({(n: USize): String => BeerSong.verse(n) + "\n"})
.collect(Array[String](start - stop)))
.>pop()
else
recover String end
end
Version data entries
135 entries across 135 versions & 1 rubygems