Data commit

Task/The-Name-Game/Q/the-name-game-1.q

@@ -0,0 +1,6 @@
+game_ssr:{[Name]
+  V:raze 1 lower\"AEIOUY";                                        / vowels
+  tn:lower((Name in V)?1b) _ Name;                                / truncated Name
+  s3:{1(-1_)\x,"o-",x}lower first Name;                           / 3rd ssr
+  s:"$1, $1, bo-b$2\nBanana-fana-fo-f$2\nFee-fimo-m$2\n$1!\n\n";
+  (ssr/).(s;("$1";"$2";s3 0);(Name;tn;s3 1)) }

Task/The-Name-Game/Q/the-name-game-2.q

@@ -0,0 +1,9 @@
+game_amend:{[Name]
+  pfx:Name,", ",Name,", ";                                    / prefix
+  n:lower Name;
+  sfx:((n in "aeiouy")?1b)_n;                                 / suffix
+  s:("bo-b";"Banana-fana fo-f";"Fee-fimo-m";"!";"");          / song template
+  @[;0;pfx,] @[;3;Name,] @[;0 1 2;,[;sfx]] @[;where n[0]=last each s;-1_] s }
+
+// test
+1 "\n"sv raze game_ssr each ("Gary";"Earl";"Felix";"Stephen";"Ryan";"Jo");