ツイートに自動的に返信 

数字が素数かどうかを尋ねるツイートに自動的に返信するサービスを作成する．

処理された最新のツイートを記録するために値を初期化する．

In[1]:=

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

テストとしてハッシュタグ#IsItPrimeのツイートを送る．

In[2]:=

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

Out[2]=

ツイートから整数を抽出し，それが素数かどうかを判別する関数を作成する．

In[3]:=

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

#IsItPrimeのツイートに返信する関数を生成する．

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]]

それぞれの部分を，ツイートを集め，解析し，それに応答する関数にまとめる．

In[7]:=

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

自分のものを含め，ハッシュタグ#IsItPrimeを含む任意のツイートに対して関数をテストする．

In[8]:=

X PrimeTweetResponder[]

Out[8]=

ツイートを2分ごとに処理する関数を定期タスクとして実行する．

In[9]:=

X RunScheduledTask[PrimeTweetResponder[], 120]

Out[9]=