add 99 bottles of beer, 'official' lyrics

Raku · May 8, 2012 · 0bbf113 · 0bbf113
1 parent 35a8ba2
commit 0bbf113
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/other/bottles.pl b/other/bottles.pl
@@ -0,0 +1,14 @@
+use v6;
+
+my @bottles = ((99...2) X~ ' bottles'),
+              '1 bottle',
+              'no more bottles',
+              '99 bottles';
+
+my @actions = 'Take one down and pass it around' xx 99,
+              'Go to the store and buy some more';
+
+for @bottles Z @actions Z @bottles[1..*] {
+    say "$^a of beer on the wall, $^a of beer.
+$^b, $^c of beer on the wall.\n".ucfirst;
+}