Voting
Category
real language
Bookmarking
Language icarus
(parsing language of the SRS system)
| Date: | 03/29/07 |
| Author: | Jack Leunissen |
| URL: | n/a |
| Comments: | 0 |
| Info: | http://www.biowisdom.com/solutions/srs/ |
| Score: |  (3.75 in 4 votes) |
#
# ICARUS script of the (in)famous 99-bottles-of-beer
# Icarus is the parsing and indexing engine of SRS
# "Sequence Retrieval System", owned by biowisdom.com
#
# Jack Leunissen, 29-Mar-2007
#
$i=99
while:$i>0 {
$Print:$i $Print:" bottle" if:$i!=1 $Print:"s" $Print:| of beer on the wall,
$Print:$i $Print:" bottle" if:$i!=1 $Print:"s" $Print:| of beer.
$i--
$Print:|Take one down, pass it around.
if:$i==0 $Print:"No more" else $Print:$i
$Print:" bottle" if:$i!=1 $Print:"s"
$Print:| of beer on the wall.
|
}
Download Source | Write Comment
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