12 lines
391 B
Plaintext
12 lines
391 B
Plaintext
text = Import[
|
|
InputString["Enter the filename of the story template:"]];
|
|
answers =
|
|
AssociationMap[
|
|
InputString[
|
|
"Enter a" <>
|
|
If[StringMatchQ[#,
|
|
"<" ~~ Alternatives @@ Characters["aeiou"] ~~ ___], "n", ""] <>
|
|
" " <> StringTrim[#, "<" | ">"] <> ":"] &,
|
|
Union[StringCases[text, RegularExpression["<[^>]+>"]]]];
|
|
Print[StringReplace[text, Normal[answers]]];
|