Auf Tweets automatisch antworten 

Erstellen Sie einen Dienst, der automatisch aud Tweets antwortet, die fragen, ob bestimmte Zahlen Primzahlen sind.

Initialisieren Sie eine Variable, die den zuletzt verarbeiteten Tweet repräsentiert.

In[1]:=

X If[! ValueQ[latest], latest = "466653904932188161"];

Verschicken Sie einen Tweet mit dem Hashtag #IsItPrime als Test.

In[2]:=

X ServiceExecute["Twitter", "Tweet", "Message" -> "What about 7941? #IsItPrime?"]

Out[2]=

Stellen Sie eine Funktion auf, die ganze Zahlen aus einem Tweet extrahiert und bestimmt, ob es sich um Primzahlen handelt.

In[3]:=

X findPrimeIntegers[tweet_] := With[ {ints = ToExpression /@ StringCases[tweet["Message"], DigitCharacter ..]}, Transpose[{ints, PrimeQ[ints]}]]

Stellen Sie eine Funktion auf, die eine Antwort auf den #IsItPrime-Tweet generiert.

In[4]:=

X toMessage[list_] := StringJoin[ ToString /@ Flatten@Riffle[(list /. {True -> " is prime", False -> " is not prime"}), ", "]]

In[5]:=

X createMessage[tweet_] := With[{screenname = tweet["ScreenName"]}, {"Message" -> "@" <> screenname <> " " <> toMessage[findPrimeIntegers[tweet]], "InReplyToStatusID" -> tweet["TweetID"]} ]

In[6]:=

X replyToMessage[connection_, tweet_] := ServiceExecute[connection, "Tweet", createMessage[tweet]]

Bringen Sie nun alle Elemente zusammen in einer Funktion, die Tweets sammelt, analysiert und auf diese antwortet.

In[7]:=

X PrimeTweetResponder[] := Module[{tweets}, tweets = ServiceExecute["Twitter", "TweetSearch", {"Query" -> "#IsItPrime", "SinceID" -> latest}]; If[tweets === {}, Return[{}]]; latest = tweets[[1]]["TweetID"]; replyToMessage /@ tweets ]

Testen Sie die Funktion mit Tweets, die den #IsItPrime-Hashtag vorweisen, einschließlich Ihrer eigenen.

In[8]:=

X PrimeTweetResponder[]

Out[8]=

Führen Sie die Funktion zeitgesteuert aus, so dass Tweets im Abstand von zwanzig Minuten verarbeitet werden.

In[9]:=

X RunScheduledTask[PrimeTweetResponder[], 120]

Out[9]=