19 lines
440 B
Text
19 lines
440 B
Text
("AEIOU" "" split swap in?) :vowel?
|
|
|
|
(
|
|
:Name
|
|
Name "" split first :L
|
|
Name lowercase :name (L vowel?) (name "" split rest "" join @name) unless
|
|
"b" :B
|
|
"f" :F
|
|
"m" :M
|
|
(
|
|
((L "B" ==) ("" @B))
|
|
((L "F" ==) ("" @F))
|
|
((L "M" ==) ("" @M))
|
|
) case
|
|
"$1, $1, bo-$3$2\nBanana-fana fo-$4$2\nFee-fi-mo-$5$2\n$1!\n"
|
|
(Name name B F M) => % puts!
|
|
) :name-game
|
|
|
|
("Gary" "Earl" "Billy" "Felix" "Milton" "Steve") 'name-game foreach
|