12 lines
391 B
Text
12 lines
391 B
Text
|
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]]];
|