xkcd เป็นคอมมิคที่ทุกคนชื่นชอบและคุณจะเขียนโปรแกรมที่จะนำอารมณ์ขันมาให้พวกเราทุกคน
วัตถุประสงค์ของคุณในการท้าทายนี้คือการเขียนโปรแกรมซึ่งจะใช้ตัวเลขเป็นอินพุตและแสดงว่า xkcd และหัวเรื่อง - ข้อความ (ข้อความ mousover)

อินพุต

โปรแกรมของคุณจะใช้จำนวนเต็มบวกเป็นอินพุต (ไม่จำเป็นต้องมีหนึ่งตัวที่มีการ์ตูนที่ถูกต้อง) และแสดงว่า xkcd: ตัวอย่างอินพุต 1500 ควรแสดงการ์ตูน "Upside-Down Map" ที่ xkcd.com/1500 จากนั้นพิมพ์ข้อความชื่อเรื่องลงในคอนโซลหรือแสดงด้วยภาพ

Due to their proximity across the channel, there's long been tension between North Korea and the United Kingdom of Great Britain and Southern Ireland.

กรณีทดสอบ 2 สำหรับ n = 859:

Brains aside, I wonder how many poorly-written xkcd.com-parsing scripts will break on this title (or ;;"''{<<[' this mouseover text."

โปรแกรมของคุณควรจะสามารถทำงานได้โดยไม่ต้องป้อนข้อมูลใด ๆ และทำงานเดียวกันกับ xkcd ล่าสุดที่พบใน xkcd.com และควรแสดงรายการล่าสุดเสมอแม้ว่าจะมีรายการใหม่เกิดขึ้น

คุณไม่จำเป็นต้องรับภาพโดยตรงจาก xkcd.com คุณสามารถใช้ฐานข้อมูลอื่นได้ตราบใดที่มันเป็นข้อมูลล่าสุดและมีอยู่แล้วก่อนที่ความท้าทายนี้จะเกิดขึ้น ตัวย่อ URL คือ URL ที่ไม่มีจุดประสงค์อื่นนอกจากการเปลี่ยนเส้นทางไปยังที่อื่นไม่ได้รับอนุญาต

คุณสามารถแสดงภาพในแบบที่คุณเลือกรวมถึงในเบราว์เซอร์ อย่างไรก็ตามคุณอาจไม่แสดงส่วนหนึ่งของหน้าอื่นใน iframe หรือคล้ายกันโดยตรง ชี้แจง: คุณไม่สามารถเปิดหน้าเว็บมาก่อนถ้าคุณต้องการที่จะใช้เบราว์เซอร์ที่คุณต้องสร้างหน้าใหม่ คุณต้องแสดงภาพจริง - ไม่อนุญาตให้ส่งไฟล์รูปภาพ

คุณสามารถจัดการกับกรณีที่ไม่มีภาพสำหรับการ์ตูนที่เฉพาะเจาะจง (เช่นเป็นแบบโต้ตอบหรือโปรแกรมถูกส่งผ่านจำนวนที่มากกว่าจำนวนการ์ตูนที่เผยแพร่) ด้วยวิธีการที่เหมาะสมตามที่คุณต้องการรวมถึงการโยนข้อยกเว้น หรือพิมพ์สตริงอักขระเดี่ยวอย่างน้อยที่สุดตราบใดที่มันแสดงถึงผู้ใช้ว่าไม่มีภาพสำหรับอินพุตนั้น

คุณสามารถแสดงภาพและส่งออกข้อความหัวข้อหรือส่งข้อความข้อผิดพลาดสำหรับการ์ตูนที่ไม่ถูกต้อง ไม่อนุญาตให้ใช้เอาต์พุตอื่น

นี่เป็นความท้าทายของการเล่นกอล์ฟดังนั้นจำนวนไบต์ที่น้อยที่สุดจึงเป็นผู้ชนะ

Perl + curl + feh, 86 84 75 ไบต์

`curl xkcd.com/$_/`=~/<img src="(.*)" title="(.*?)"/;$_=$2;`feh "http:$1"`

ต้องใช้-pสวิตช์ ฉันคิดว่านี่เป็นจำนวนไบต์

PowerShell v3 + 110 99 107 103 ไบต์

iwr($x=((iwr "xkcd.com/$args").images|?{$_.title})).src.Trim("/") -outf x.jpg;if($x){ii x.jpg;$x.title}

ขอบคุณ Timmy ที่ช่วยประหยัดไบต์โดยใช้การกำหนดแบบอินไลน์

หากไม่มีการโต้แย้งจะถูกส่งผ่านไปแล้ว$argsมันจะว่างเปล่าและมันก็จะได้รับการ์ตูนปัจจุบัน ดาวน์โหลดรูปภาพโดยจับคู่รูปภาพที่มีข้อความ alt ลงในไฟล์ในไดเรกทอรีที่กำลังใช้งานอยู่ของสคริปต์ จากนั้นแสดงด้วยมุมมองเริ่มต้นของ jpg ข้อความ alt จะปรากฏขึ้นเพื่อคอนโซล iwrเป็นชื่อแทนInvoke-WebRequest

หากจำนวนที่ส่งผ่าน (หรืออินพุตที่ไม่ถูกต้องสำหรับเรื่องนั้น) ไม่ตรงกับกระบวนการล้มเหลวโดยมีข้อผิดพลาดอย่างน้อย 404 รายการ

iwr(                                  # Request the comic image from XKCD
  $x=((iwr "xkcd.com/$args").images|  # Primary search to locate either the current image
                                      # or one matching an argument passed
     ?{$_.title}))                    # Find the image with alt text
        .src.Trim("/")                # Using the images associated link and strip the leading slashes
  -outf x.jpg                         # Output the image to the directory local to where the script was run
if($x){                               # Test if the image acquisition was successful
    ii x.jpg                          # Open the picture in with the default jpg viewer
    $x.title                          # Display alt text to console
}                                     # I'm a closing bracket.

AutoIt , 440 ไบต์

ใช่มันยาว แต่ก็มั่นคง

#include<IE.au3>
#include<GDIPlus.au3>
Func _($0='')
_GDIPlus_Startup()
$1=_IECreate('xkcd.com/'&$0)
For $3 In $1.document.images
ExitLoop $3.title<>''
Next
$4=_GDIPlus_BitmapCreateFromMemory(InetRead($3.src),1)
$6=_GDIPlus_ImageGetDimension(_GDIPlus_BitmapCreateFromHBITMAP($4))
GUICreate(ToolTip($3.title),$6[0],$6[1])
GUICtrlSendMsg(GUICtrlCreatePic('',0,0,$6[0],$6[1]),370,0,$4)
_IEQuit($1)
GUISetState()
Do
Until GUIGetMsg()=-3
EndFunc

ก่อนอื่นนี่ไม่ได้ใช้ RegEx ในการขูดไซต์ (เพราะฉันไม่มีเวลาที่จะทดสอบสิ่งนี้ในการ์ตูนทั้งหมด) แต่ใช้ Internet Explorer API เพื่อวนซ้ำผ่านimgแท็กของ DOM จนกว่าจะพบกับข้อความชื่อ

สตรีมแบบไบนารีจะอ่านจาก URL รูปภาพและแสดงผลเป็นบิตแมปโดยใช้ GDIPlus จากนั้นจะแสดงใน GUI ขนาดอัตโนมัติที่มีคำแนะนำเครื่องมือจริงเพื่อให้มันทำงานเหมือนกับเว็บไซต์

นี่คือกรณีทดสอบ ( _(859)):

)

Powershell, 93 ไบต์

93 เวอร์ชันไบต์เพื่อใช้โปรแกรมดูรูปภาพในเครื่อง

$n=(iwr xkcd.com/$args).images|?{$_.title};$n.title;iwr ("http:"+$n.src) -OutF x.jpg;ii x.*

บันทึก 2 ไบต์โดยลบ doublequotes ที่ไม่จำเป็นออกแล้วล็อตอื่นโดยใช้("http:"+$n.src)แทน"https://"+$n.src.trim("/")- เนื่องจากimgsrc มาพร้อมกับ//มันอยู่แล้วและ xkcd ไม่ต้องการ https

$n=(iwr xkcd.com/$args).images|?{$_.title};$n.title;saps ("http:"+$n.src)

$n=(iwr "xkcd.com/$args").images|?{$_.title};$n.title;saps ("https://"+$n.src.trim("/"))

คล้ายกันมากกับคำตอบของ Matts powershell (น่าจะเป็นความคิดเห็น แต่ชื่อเสียงต่ำ)

แต่จะเป็นการเปิดแท็บ / หน้าต่างใหม่ในเบราว์เซอร์เริ่มต้นและสิ่งอื่น ๆ ซึ่งจะช่วยประหยัดไบต์

iwr เป็นชื่อแทน Invoke-WebRequest

sapsเป็นนามแฝงStart-Processที่เปิด 'มัน' ในบริบทเริ่มต้น

R, 358 328 310 298 ไบต์

f=function(x){H="http:";p=paste0;library(XML);a=xpathSApply(htmlParse(p(H,'//xkcd.com/',x)),'//div/img',xmlAttrs)[[1]];download.file(p(H,a[1]),'a');I=`if`(grepl('png',a[1]),png::readPNG,jpeg::readJPEG)('a');d=dim(I)/100;quartz(,d[2],d[1]);par(mar=rep(0,4));frame();rasterImage(I,0,0,1,1);cat(a[2])}

ด้วยบรรทัดใหม่และความคิดเห็น:

f=function(x){
H="http:"
p=paste0
library(XML) #Needed for xpathSApply, htmlParse and xmlAttrs
# The following line find the first img element and extract its attributes
a=xpathSApply(htmlParse(p(H,'//xkcd.com/',x)),'//div/img',xmlAttrs)[[1]]
download.file(p(H,a[1]),'a') #Download to a file called 'a'
I=`if`(grepl('png',a[1]),png::readPNG,jpeg::readJPEG)('a') #Check if png or jpeg and load the file accordingly
d=dim(I)/100 #convert dimension from pixel to inches (100 ppi).
quartz(,d[2],d[1]) #open a window of the correct dimension
par(mar=rep(0,4)) #Get rid of margins
frame() #Create empty plot
rasterImage(I,0,0,1,1) #Add png/jpeg to the plot
cat(a[2]) #Print title text to stdout
}

ภาพหน้าจอของกรณีทดสอบ:

สำหรับ x = 1500:

สำหรับ x empty:

กรณีเมื่อรูปภาพเป็น jpeg:

x = 859:

PHP, 95 ไบต์

<?php echo str_replace("title=\"","/>",file_get_contents("https://xkcd.com/".$_GET["id"])); ?>

บันทึกเป็น main.php เรียกใช้เซิร์ฟเวอร์

php -S localhost:8123

เปิดhttp: // localhost: 8123 / main.php? id = 1500

Python 2.7, 309 299 295 274 ไบต์

โปรแกรมเต็มรูปแบบ แน่นอนว่าเล่นกอล์ฟได้มากกว่า แต่การอ่านการ์ตูน xkcd มานานฉันก็ไม่สามารถผ่านได้

หากไม่มีการป้อนข้อมูลผ่านจะได้รับการ์ตูนปัจจุบัน หากหมายเลขการ์ตูนที่ถูกต้องถูกส่งผ่านเป็นอินพุตก็จะได้รับการ์ตูนนั้น หากมีการป้อนข้อมูลที่ไม่ถูกต้อง (ไม่ใช่ตัวเลขการ์ตูนในช่วงที่ถูกต้อง) ส่งผ่านข้อผิดพลาด

ข้อเสนอแนะใด ๆ เกี่ยวกับวิธีการลดจำนวนไบต์ยินดีต้อนรับ! จะกลับมาอีกครั้ง (และเพิ่มคำอธิบาย) เมื่อฉันมีเวลามากขึ้น

-10 ไบต์ขอบคุณ @Dopapp

-21 ไบต์ขอบคุณ @Shebang

import urllib as u,re
from PIL import Image
h='http://';x='xkcd.com/'
o=u.URLopener()
t=u.urlopen(h+x+raw_input()).read()
c=sum([re.findall(r,t)for r in[h+'imgs.'+x+'c.*s/.*\.\w{1,3}','\.\w{1,3}" t.*e="(.*)" a']],[])
Image.open(o.retrieve(c[0],'1.png')[0]).show();print c[1]

PHP, 42 ไบต์

<?=@file('http://xkcd.com/'.$_GET[i])[59];

บันทึกเป็นไฟล์และเริ่มทำงานในเว็บเซิร์ฟเวอร์ที่คุณเลือก

JavaScript + HTML, 124 + 18 = 142 ไบต์

i=>fetch(`//crossorigin.me/http://xkcd.com/${i||""}/info.0.json`).then(r=>r.json()).then(d=>(A.innerHTML=d.alt,B.src=d.img))

<img id=B><p id=A>

ข้ามจุดขอบคุณวิธีการแก้คำตอบ Kaiido ที่นี่

//crossorigin.me/สามารถบันทึกได้17 ไบต์ ( ) หากสามารถลบพร็อกซีที่เชื่อมต่อกับ xkcd.com ได้ ( เมตาโพสต์เกี่ยวกับเรื่องนี้ )

ตัวอย่างการทดสอบ

f=
i=>fetch(`//crossorigin.me/http://xkcd.com/${i||""}/info.0.json`).then(r=>r.json()).then(d=>(A.innerHTML=d.alt,B.src=d.img))

<style>img{width:50%}</style><input id=I> <button onclick="f(I.value)">Run</button><br>
<img id=B><p id=A>

Python 3 + คำขอ + PIL, 192 186 ไบต์

from requests import*
import PIL.Image as f
from io import*
r=get("https://xkcd.com/%s/info.0.json"%input()).json()
f.open(BytesIO(get(r["img"],stream=1).content)).show()
print(r["alt"])

เปิดโปรแกรมดูรูปภาพ (ขึ้นอยู่กับระบบที่ใช้งานอยู่) ซึ่งมีตัวการ์ตูนและโพสต์ข้อความหัวเรื่องลงในคอนโซล

Wolfram Language 45 bytes (Mathematica)

Import["https://xkcd.com/"<>#,"Images"][[2]]&

การใช้งานด้วยหมายเลข:

%@"1500"

การใช้งานโดยไม่มีหมายเลข:

%@""