For any Mathematica practitioners out there, this is the code I used to generate this list:

  • imp=Import[“http://www.mathemafrica.org/?page_id=9813&paged=1″,”Source”]<>Import[“http://www.mathemafrica.org/?page_id=9813&paged=2″,”Source”]<>Import[“http://www.mathemafrica.org/?page_id=9813&paged=3″,”Source”];
  • strings=(StringSplit[StringReplace[StringTake[#,9;;],{“&#8211;”->”-“,”\”>”->” : “}],”:”]&/@StringCases[imp,RegularExpression[“\<a\\shref\=\”http\:\\/\\/www\.mathemafrica.org\\/\?p\=[\\d]+\”\\>[\\w\\s\\#\\;\\&\\-\\:\\’\\,\\.]+”]]);
  • “<a href=\””<>#[[1]]<>”:”StringTake[#[[2]],;;-2]<>”\”>”<>#[[3;;]]<>”</a>”<>”\n\n”&/@strings;
  • ToString[StringJoin[Flatten[%]]];
  • StringReplace[%,{“(“->””,”)<>(“->”\n\n”,”Elephant Delta Day 3 – “->””,”Elephant Delta Day 2 – “->””,”Elephant Delta Day 1 – “->””,”Elephant Delta day 2 -“->””}]

 

How clear is this post?