Anonymous user
The Name Game: Difference between revisions
→{{header|zkl}}: added code
m (→{{header|Perl 6}}: added zkl header) |
(→{{header|zkl}}: added code) |
||
Line 298:
=={{header|zkl}}==
{{trans:Kotlin}}
<lang zkl></lang>▼
<lang zkl>
x:=name[0].toUpper() + name[1,*].toLower();
y:=( if("AEIOU".holds(x[0])) x.toLower() else x[1,*] );
b,f,m := "b"+y, "f"+y, "m"+y;
switch(x[0]){
case("B"){ b=y }
case("F"){ f=y }
case("M"){ m=y }
}
println("%s, %s, bo-%s".fmt(x,x,b));
println("Banana-fana fo-",f);
println("Fee-fi-mo-",m);
println(x,"!\n");
<lang zkl>List("Gary", "Earl", "Billy", "Felix", "Mary", "Steve").apply2(printVerse);</lang>
{{out}}
<pre style="height:35ex">
Gary, Gary, bo-bary
Banana-fana fo-fary
Fee-fi-mo-mary
Gary!
Earl, Earl, bo-bearl
Banana-fana fo-fearl
Fee-fi-mo-mearl
Earl!
Billy, Billy, bo-illy
Banana-fana fo-filly
Fee-fi-mo-milly
Billy!
Felix, Felix, bo-belix
Banana-fana fo-elix
Fee-fi-mo-melix
Felix!
Mary, Mary, bo-bary
Banana-fana fo-fary
Fee-fi-mo-ary
Mary!
Steve, Steve, bo-bteve
Banana-fana fo-fteve
Fee-fi-mo-mteve
Steve!
</pre>
| |||