Intro

ในลอร์ดออฟเดอะริ JRR โทลคีนวลีนี้อยู่บนหน้าปกของหนังสือแต่ละเล่ม

Three Rings for the Elven-kings under the sky,
Seven for the Dwarf-lords in their halls of stone, 
Nine for Mortal Men doomed to die,
One for the Dark Lord on his dark throne
In the Land of Mordor where the Shadows lie.
One Ring to rule them all, One Ring to find them,
One Ring to bring them all, and in the darkness bind them,
In the Land of Mordor where the Shadows lie

อย่างไรก็ตามสิ่งนี้ไม่น่าสนใจ มันเป็นเพียงแค่Kolmogorov ซับซ้อน. ลองเปลี่ยนสิ่งนี้เป็นที่น่าสนใจ nonconstant เอาท์พุท.

สิ่งที่คุณต้องทำ

ใช้ Stack Exchange API (หรือcodegolf.stackexchange.com/usersหรือ Stack Exchange Data Explorer) และค้นหาผู้ใช้สองคนที่มีคะแนนสูงสุดรหัสกอล์ฟผู้ใช้ใหม่ล่าสุดและผู้ใช้ที่มีชื่อเสียงสูงสุดที่มีคะแนนในทางลบเท่านั้น รหัสกอล์ฟ เสา

จากนั้นคุณต้องแทรกชื่อผู้ใช้เหล่านี้ลงในข้อความต่อไปนี้:

Three Golfs for the <highest-scored code-golf user>-king under the sky,
Seven for the <second-highest-scored code-golf user>-lord in their halls of stone,
Nine for the Mortal <newest user> doomed to die,
One for the Dark Lord <highest reuptation user with only negative scored code-golf posts>
In the land of Golfdor, where the Golfers lie
One Golf to rule them all, One Golf to find them,
One Golf to bring them all, and in the darkness bind them,
In the Land of Golfdor, where the Golfers lie

คุณต้องใส่ชื่อผู้ใช้สี่ชื่อที่คุณพบในข้อความในวงเล็บเหลี่ยม

กฎอื่น ๆ

• นี่คือ รหัสกอล์ฟ ดังนั้นรหัสที่สั้นที่สุดชนะ
• ไม่มีตัวย่อ URL (รวมถึงppcg.(ga|lol))

PHP, 577 ไบต์

ไม่ได้ทดสอบ ขณะนี้ฉันไม่มีระบบที่ใช้งานได้allow_url_fopen=On
และฉันไม่ได้ใช้เวลาในการคัดลอกและวางแหล่งที่มาของหน้า

function g($s){return join(file("http://codegolf.stackexchange.com/$s"));}$m=preg_match_all;$m("#r-de.+/(\d+)/.+>(.+)<#U",$a=g($u="$u&filter=all"),$b);$h=$b[2];$m("#>(.+)</a.+\s1 i#",g("users?tab=NewUsers&sort=creationdate"),$c);while($a){foreach($b[1]as$i=>$n)if($m("#st \"><strong>(-?)\d+#",$e=g("search?tab=votes&q=user:$n+[code-golf]"),$d)&&$d[1][0])break 2;if($a=strstr($a,"l=\"n"))$m("#r-de.+/(\d+)/.+>(.+)<#U",$a=g("$u&page=".$p+=!$p++),$b);}$m("#<code>(.+)</code>#U",g("q/93545"),$t);echo join([1=>$h[0],3=>$h[1],5=>$c[1][0],7=>$b[2][$i];]+split("#&[lg]t;#",$t[1][2]));

ทำให้พังถล่ม

// function to get page content from ppcg
function g($s){return join(file("http://codegolf.stackexchange.com/$s"));}

$m=preg_match_all;

// A,B: highest scores: find user names
$m("#r-de.+/(\d+)/.+>(.+)<#U",$a=g($u="users?filter=all"),$b);
$h=$b[2];   // remember the names

// C: new users: find username after "1 in one day"
$m("#>(.+)</a.+\s1 i#",g("$u&tab=NewUsers&sort=creationdate"),$c);

// D: loop through users from first query
while($a)
{
    foreach($b[1]as$i=>$n)
        // find "vote-count-post" in code-golf votes for that user
        if($m("#st \"><strong>(-?)\d+#",$e=g("search?tab=votes&q=user:$n+[code-golf]"),$d)
        &&$d[1][0])             // test if highest vote is negative
            break 2;
    // none found yet?
    if($a=strstr($a,"l=\"n"))   // if there is a "next" link, get next page
        $m("#r-de.+/(\d+)/.+>(.+)<#U",$a=g("$u&page=".$p+=!$p++),$b);
}

$m("#<code>(.+)</code>#U",g("q/93545"),$t); // get code blocks from question page

echo join([         // 4. join and print
    1=>$h[0],           // first two results from first preg_match
    3=>$h[1],
    5=>$c[1][0],        // first result from second preg_match
    7=>$b[2][$i];       // $i-th username from (latest) reputation list
]+                  // 3. and replace indexes 1,3,5,7 with above array
split("#&[lg]t;#",  // 2. split by "<" and ">"
    $t[1][2]        // 1. output template is the 3rd code block
));