Revision as of 19:03, 8 May 2015 (view source) rosettacode>LegionMammal978 (Made more functional) ← Older edit		Revision as of 19:07, 8 May 2015 (view source) rosettacode>LegionMammal978 (Fixed Mathematica) Newer edit →
Line 1,083: InputString["Enter the filename of the story template:"]]; answers = AssociationMap[ InputString[ "Enter a" <> If[StringMatchQ[#~~, Alternatives @@ Characters["aeiou"] ~~ ___]~~, "n<", ~~ Alternatives @@ Characters["aeiou"] <>~~ "___], " ~~<> # <>~~n", ":"] ~~& /@~~ <> " " <> StringTrim[~~StringCases[text~~#, ~~RegularExpression[~~"<[^" \| ">"]+ <> ":"]] &, ~~StringReplace~~Union[StringCases[text, RegularExpression["<[^>]+>~~"] -> "``~~"]]]];~~</lang>~~▼ ~~"<" \| ">"];~~ 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

Mad Libs (view source)