Mad Libs: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,083: / Line 1,083: @@
    InputString["Enter the filename of the story template:"]];
 answers =
+  AssociationMap[
-  InputString[
+   InputString[
      "Enter a" <>
-      If[StringMatchQ[#, Alternatives @@ Characters["aeiou"] ~~ ___],
+      If[StringMatchQ[#,
-       "n", ""] <> " " <> # <> ":"] & /@
+        "<" ~~ Alternatives @@ Characters["aeiou"] ~~ ___], "n", ""] <>
-   StringTrim[StringCases[text, RegularExpression["<[^>]+>"]],
+       " " <> StringTrim[#, "<" | ">"] <> ":"] &,
+   Union[StringCases[text, RegularExpression["<[^>]+>"]]]];
-    "<" | ">"];
+Print[StringReplace[text, Normal[answers]]];</lang>
-Print[ToString[
-   StringForm @@
-    Prepend[answers,
-     StringReplace[text, RegularExpression["<[^>]+>"] -> "``"]]]];</lang>
 {{out}}
 <pre>George went for a walk in the park. he