aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Just another update

Browse source
This commit is contained in:
Ingy döt Net 2015-02-20 00:35:01 -05:00
parent a25938f123
commit 00a190b0a6
6591 changed files with 94363 additions and 23227 deletions
Download patch file Download diff file Expand all files Collapse all files

14
Task/Mad-Libs/Mathematica/mad-libs.math Normal file
View file

@ -0,0 +1,14 @@
filename = InputString["Enter the filename of the story template: "];
text = Import[filename];
listofblanks = StringCases[text, RegularExpression["<[^>]+>"]] // Union;
listofanswers = {};
Do[
answer = InputString["Enter a/an: " <> listofblanks[[i]]];
AppendTo[listofanswers, answer];
, {i, 1, Length[listofblanks]}
]
Do[
text = StringReplace[text, listofblanks[[i]] -> listofanswers[[i]]]
, {i, 1, Length[listofblanks]}
]
text