The Name Game: Difference between revisions

=={{header|F_Sharp|F#}}==

===The function===

<lang fsharp>

// The Name Game. Nigel Galloway: March 28th., 2018

let fN g =

let fG α β γ = printfn "%s, %s, bo-%s\nBanana-fana fo-%s\nFee-fi-mo-%s\n%s!" g g α β γ g

match g.ToLower().[0] with

|'a'|'e'|'i'|'o'|'u' as n -> fG ("b"+(string n)+g.[1..]) ("f"+(string n)+g.[1..]) ("m"+(string n)+g.[1..])

|'b' -> fG (g.[1..]) ("f"+g.[1..]) ("m"+g.[1..])

|'f' -> fG ("b"+g.[1..]) (g.[1..]) ("m"+g.[1..])

|'m' -> fG ("b"+g.[1..]) ("f"+g.[1..]) (g.[1..])

|_ -> fG ("b"+g.[1..]) ("f"+g.[1..]) ("m"+g.[1..])

</lang>

===The Task===

<lang fsharp>

fN "Nigel";;

</lang>

{{out}}

<pre>

Nigel, Nigel, bo-bigel

Banana-fana fo-figel

Fee-fi-mo-migel

Nigel!

</pre>

<lang fsharp>

fN "Earl"

</lang>

{{out}}

<pre>

Earl, Earl, bo-bearl

Banana-fana fo-fearl

Fee-fi-mo-mearl

Earl!

</pre>

<lang fsharp>

fN "Billy"

</lang>

{{out}}

<pre>

Billy, Billy, bo-illy

Banana-fana fo-filly

Fee-fi-mo-milly

Billy!

</pre>

<lang fsharp>

fN "Fred"

</lang>

{{out}}

<pre>

Fred, Fred, bo-bred

Banana-fana fo-red

Fee-fi-mo-mred

Fred!

</pre>

<lang fsharp>

fN "Mum"

</lang>

{{out}}

<pre>

Mum, Mum, bo-bum

Banana-fana fo-fum

Fee-fi-mo-um

Mum!

</pre>