Language AWK
Date: | 01/25/08 |
Author: | Arnold Robbins |
URL: | n/a |
Comments: | 0 |
Info: | n/a |
Score: | (3.03 in 32 votes) |
#! /usr/bin/awk # beer.awk --- print the lyrics to the famous travelling song # Arnold Robbins BEGIN { # Setup take = "Take one down, pass it around" buy = "Go to the store and buy some more" Instruction[0] = buy Next[0] = 99 Count[0, 1] = "No more" Count[0, 0] = "no more" for (i = 99; i >= 1; i--) { Instruction[i] = take Next[i] = i - 1 Count[i, 0] = Count[i, 1] = (i "") Bottles[i] = "bottles" } Bottles[1] = "bottle" Bottles[0] = "bottles" # Execution for (i = 99; i >= 0; i--) { printf("%s %s of beer on the wall, %s %s of beer.\n", Count[i, 1], Bottles[i], Count[i, 0], Bottles[i]) printf("%s, %s %s of beer on the wall.\n\n", Instruction[i], Count[Next[i], 0], Bottles[Next[i]]) } }
Download Source | Write Comment
Alternative Versions
Version | Author | Date | Comments | Rate |
---|---|---|---|---|
correct text | OsamuAoki | 11/03/07 | 2 | |
bottled version | Wilhelm Weske | 11/16/08 | 0 |
Download Source | Write Comment
Add Comment
Please provide a value for the fields Name,
Comment and Security Code.
This is a gravatar-friendly website.
E-mail addresses will never be shown.
Enter your e-mail address to use your gravatar.
Please don't post large portions of code here! Use the form to submit new examples or updates instead!
Comments