Voting

Category

real language

Bookmarking

Del.icio.us Digg Diigo DZone Earthlink Google Kick.ie
Windows Live LookLater Ma.gnolia Reddit Rojo StumbleUpon Technorati

Language iForth

(ANS Forth with extensions)

Date:09/25/05
Author:Marcel Hendrix
URL:http://home.iae.nl/users/mhx/index.html
Comments:1
Info:http://home.iae.nl/users/mhx/
Score: (3.00 in 54 votes)
\ iForth version of 99 Bottles of beer
: BOB ( n -- ) 
	DUP IF DUP . ELSE ." no more " ENDIF ." bottle" ?S ."  of beer" ;

: sing ( -- )
	 1 99 DO 
		 CR I BOB ."  on the wall, " I BOB [CHAR] . EMIT
	      	 CR ." Take one down, pass it around, " 
		 I 1- BOB ."  on the wall."
	-1 +LOOP ;

Download Source | Write Comment

Alternative Versions

Comments

>>  Chad R. Larson said on 04/23/08 05:18:45

Chad R. Larson Forgot the definition of ?S.

Here's my own:
: ?S 1 = IF ELSE ." s" THEN ;

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!

Name:

eMail:

URL:

Security Code:
  
Comment: