Skip to content

Instantly share code, notes, and snippets.

@vendethiel

vendethiel/saturday-night-no-beer.pl6

Forked from ronaldxs/saturday-night-no-beer.pl6
Created October 31, 2015 23:52
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save vendethiel/cfbaa4b5074826f44b65 to your computer and use it in GitHub Desktop.
Save vendethiel/cfbaa4b5074826f44b65 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
saturday-night-no-beer.pl6
my @a = ('99 bottles', 'take one down', '98 bottles');
for @a {
say "$^a of beer on the wall, $^a of beer.$^b, $^c of beer on the wall.".tc;
}
my @b = ('99 bottles', 'take one down', '98 bottles'), ('98 bottles', 'take one down', '97 bottles');
say @b.perl;
for @b {
say "$^a of beer on the wall, $^a of beer.$^b, $^c of beer on the wall.".tc;
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment