Data commit

Task/The-Name-Game/Min/the-name-game.min

@@ -0,0 +1,19 @@
+("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