•2íЕ’¸¸.‚‹º.ŒŒ/„¤/ÿ?€¼=ƒËŠˆ’žYì.w'ŒÂ¡θ',¡нþ
.w
インターネットにアクセスするためのビルトインがTIOで機能しないため、プログラム全体にTIOはありません。
説明:
URLを作成してアクセスすることから始めます。
•2íЕ # Push compressed integer 190437 (the id of this answer)
’¸¸.‚‹º.ŒŒ/„¤/ÿ?€¼=ƒËŠˆ’
# Push dictionary string "api.stackexchange.com/posts/ÿ?site=codegolf",
# where the `ÿ` is automatically filled with the 190437
žY # Push builtin "https://"
ì # And prepend it in front of the string
.w # Go to this website, and get all its contents
(なしで.w
)オンラインで試してください。
その後、JSONからスコアを抽出します。
'ŒÂ '# Push dictionary string "score"
¡ # Split the website content on this
θ # Only leave the last item (of the two)
',¡ '# Split this string on ","
н # And this time leave the first item (i.e. `":10`)
þ # Only leave the digits of this string
# (which is output implicitly as result)
オンラインでお試しください。
この2番目の部分の10 バイトの代替は、次のようになります。
„ŒÂ‚¡ # Push dictionary string "score after"
# # Split it on spaces: ["score","after"]
¡ # Split the website content on these
Ås # Only leave the middle element
þ # Only leave the digits of this string
# (which is output implicitly as result)
オンラインでお試しください。
私のこの05AB1Eヒントを参照してください(セクションでは、どのように辞書?使用すると、どのように大きな整数を圧縮するの?)理由を理解すること•2íЕ
で190437
、’¸¸.‚‹º.ŒŒ/„¤/ÿ?€¼=ƒËŠˆ’
ある"api.stackexchange.com/posts/ÿ?site=codegolf"
、'ŒÂ
ある"score"
、と„ŒÂ‚¡
あります"score after"
。
PS / EDIT:を使用þ
することで、決して負のスコアを取得しないと思います。;)
perl -e'($_)=`curl -s http://api.stackexchange.com/2.2/posts/123?site=codegolf`;/score":(\d+)/&&print$1'
動作するように見えますが、動作しません。しかし、おそらく誰かがそれを使用することができます。