99 Bottles of Beer

Voting

Please select* Bad as Hell** Nothing new*** Good**** Nice Coding***** TOP GEEK

Category

real language

Bookmarking

(* ML version of 99 bottles of beer                               *)
(*   - Using pattern of functions parameters                      *)
(*     and Recursion(like other functional programming langauges) *)

(* Written by Jong-Won Choi(jwchoi@gsen.goldstar.co.kr)           *)
(*                                                     Nov 13, 95 *)

fun NinetyNineBottlesOfBeer(0) =
  print("\n No more bottles of beer on the wall\n")
| NinetyNineBottlesOfBeer(1) = 
   (print("\n 1 bottle of beer on the wall, 1 bottle of beer.");
    print("\n Take one down and pass it around.");
    NinetyNineBottlesOfBeer(0))
| NinetyNineBottlesOfBeer(NumberOfBottles:int) =
   (print("\n "); print(NumberOfBottles);
    print(" bottle of beer on the wall, ");
    print(NumberOfBottles);
    print(" bottle of beer.");
    print("\n Take one down and pass it around.");
    NinetyNineBottlesOfBeer(NumberOfBottles - 1));

Alternative Versions

Comments

 Shaun said on 10/11/07 00:02:08

Yeah, it needs a call to NinetyNineBottlesOfBeer(99) to actually display it, but as far as just a function to display any amount this one is pretty good. The recursive power of ML is great.

 Paul said on 11/19/07 13:32:35

Sadly, the plurals are not correct.

 Maxwell K said on 10/22/08 16:32:27

This is the best example I've seen on the site.

Great work!

 Omundu said on 05/12/09 07:59:55

Liked it so much that I spent some time tweaking it to work with SML/NJ v110.67. print was just not liking ints

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: