How to resolve the algorithm 99 bottles of beer step by step in the F# programming language

Published on 12 May 2024 09:40 PM
#F_Sharp

How to resolve the algorithm 99 bottles of beer step by step in the F# programming language

Table of Contents

Problem Statement

Display the complete lyrics for the song:     99 Bottles of Beer on the Wall.

The lyrics follow this form: ... and so on, until reaching   0     (zero). Grammatical support for   1 bottle of beer   is optional. As with any puzzle, try to do it in as creative/concise/comical a way as possible (simple, obvious solutions allowed, too).

Let's start with the solution:

Step by Step solution about How to resolve the algorithm 99 bottles of beer step by step in the F# programming language

Source code in the fsharp programming language

#light
let rec bottles n =
    let (before, after) = match n with
                          | 1 -> ("bottle", "bottles")
                          | 2 -> ("bottles", "bottle")
                          | n -> ("bottles", "bottles")
    printfn "%d %s of beer on the wall" n before
    printfn "%d %s of beer" n before
    printfn "Take one down, pass it around"
    printfn "%d %s of beer on the wall\n" (n - 1) after
    if n > 1 then
        bottles (n - 1)

You may also check:How to resolve the algorithm Anonymous recursion step by step in the Standard ML programming language
You may also check:How to resolve the algorithm Runtime evaluation/In an environment step by step in the Common Lisp programming language
You may also check:How to resolve the algorithm Hello world/Text step by step in the Mythryl programming language
You may also check:How to resolve the algorithm Circles of given radius through two points step by step in the Yabasic programming language
You may also check:How to resolve the algorithm Permutations step by step in the Ring programming language