The Name Game: Difference between revisions

{{task}}

 

The regular verse

 

In case of a 'B', an 'F' or an 'M' (e.g. Billy, Felix, Mary) there is a special rule.

The verse for the name Billy looks like this:

 

Fee-fi-mo-melix

Felix!

 

=={{header|AWK}}==

# syntax: GAWK -f THE_NAME_GAME.AWK

BEGIN {

printf("%s!\n\n",x)

}

{{out}}

<pre>

Fee-fi-mo-mhirley

Shirley!

 

</pre>

=={{header|C}}==

{{trans|Kotlin}}

#include <string.h>

 

for (i = 0; i < 6; ++i) print_verse(names[i]);

return 0;

 

{{out}}

Shirley!

</pre>

 

=={{header|C++}}==

{{trans|C#}}

#include <iostream>

#include <string>

 

return 0;

{{out}}

<pre>Gary, Gary, bo-bary

Steve!</pre>

 

 

 

{{out}}

Gary!

 

 

 

 

 

 

=={{header|D}}==

import std.array;

import std.conv;

printVerse(name);

}

 

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

===The function===

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

let fN g =

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

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

===The Task===

fN "Nigel"

{{out}}

<pre>

Nigel!

</pre>

fN "Earl"

{{out}}

<pre>

Earl!

</pre>

fN "Billy"

{{out}}

<pre>

Billy!

</pre>

fN "Fred"

{{out}}

<pre>

Fred!

</pre>

fN "Mum"

{{out}}

<pre>

{{trans|Kotlin}}

{{works with|Factor|0.98}}

pair-rocket qw sequences ;

IN: rosetta-code.name-game

${Name}!I] nl nl ;

 

{{out}}

<pre>

Steve!

</pre>

 

=={{header|Go}}==

{{trans|Kotlin}}

 

import (

printVerse(name)

}

 

{{out}}

 

=={{header|Haskell}}==

-- The Name Game, Ethan Riley, 22nd May 2018

import Data.Char

main =

mapM_ (putStrLn . theNameGame) ["Gary", "Earl", "Billy", "Felix", "Mike", "Steve"]

{{out}}

<pre>

</pre>

 

=={{header|Java}}==

{{trans|Kotlin}}

 

public class NameGame {

Stream.of("Gary", "Earl", "Billy", "Felix", "Mary", "Steve").forEach(NameGame::printVerse);

}

{{out}}

<pre>Gary, Gary, bo-bary

Fee-fi-mo-mteve

Steve!</pre>

 

=={{header|Julia}}==

 

function printverse(name::AbstractString)

end

 

 

{{out}}

 

=={{header|Kotlin}}==

 

fun printVerse(name: String) {

fun main(args: Array<String>) {

listOf("Gary", "Earl", "Billy", "Felix", "Mary", "Steve").forEach { printVerse(it) }

 

{{out}}

Steve!

</pre>

=={{header|Lua}}==

{{trans|C#}}

local sb = string.lower(name)

sb = sb:gsub("^%l", string.upper)

for _,name in pairs(nameList) do

printVerse(name)

{{out}}

<pre>Gary, Gary, bo-bary

song$=format$("\r\n{0}, {0}, bo-{2}{1}\r\nBanana-fana fo-{3}{1}\r\nFee-fi-mo-{4}{1}\r\n{0}!\r\n")

 

Module The.Name.Game {

Flush

}

The.Name.Game

 

{{out}}

Felix!

</pre >

 

=={{header|Modula-2}}==

FROM Strings IMPORT Concat;

FROM ExStrings IMPORT Lowercase;

 

ReadChar;

 

 

 

}

 

{{out}}

<pre>Gary, Gary, bo-bary

Felix!

 

 

Steve, Steve, bo-bteve

Banana-fana fo-fteve

Fee-fi-mo-mteve

 

=={{header|Phix}}==

{{trans|Go}}

{{out}}

<pre>

Fee-fi-mo-mhirley

Shirley!

</pre>

 

=={{header|Python}}==

l = ['b', 'f', 'm']

s = n[1:]

# Assume that the names are in title-case and they're more than one character long

for n in ['Gary', 'Earl', 'Billy', 'Felix', 'Mary']:

 

=={{header|REXX}}==

Extra code was added to the REXX program to capitalize the name (and lowercase all characters in the name except the 1^st character).

<br>Also, dual names are supported &nbsp;(like Mary Ann).

{{out|output|text= &nbsp; when using the default (internal) names:}}

<pre>

Fee-fi-mo-ary

Mary!

</pre>

 

=={{header|Scala}}==

private def printVerse(name: String): Unit = {

val x = name.toLowerCase.capitalize

 

Stream("gAry", "earl", "Billy", "Felix", "Mary", "Steve").foreach(printVerse)

 

See it running in your browser by [https://scastie.scala-lang.org/UilFJ0zFSJu4Qk2xaw2r4A Scastie (JVM)].

=={{header|VBA}}==

 

Sub Main()

Next

TheGameName = t

{{out}}

<pre>Gary, Gary, bo-bary

Fee-fi-mo-mrank

Frank!</pre>

 

=={{header|zkl}}==

{{trans|Kotlin}}

z,x := name[0].toLower(), z.toUpper() + name[1,*].toLower();

y:=( if("aeiou".holds(z)) name.toLower() else x[1,*] );

println("Fee-fi-mo-",m);

println(x,"!\n");

{{out}}

<pre style="height:35ex">