xkcd는 모두가 가장 좋아하는 웹 코믹이며, 우리 모두에게 약간의 유머를 가져다 줄 프로그램을 작성하게 될 것입니다.
이 과제의 목표는 xkcd와 제목 텍스트 (마우스 오버 텍스트)를 숫자로 입력하여 표시하는 프로그램을 작성하는 것입니다.

입력

프로그램은 양의 정수를 입력으로 사용하고 (유효한 만화가 반드시있는 것은 아님) xkcd를 표시합니다. 예를 들어 1500의 입력은 xkcd.com/1500에 만화 "Upside-Down Map"을 표시해야합니다. 그런 다음 제목 텍스트를 콘솔에 인쇄하거나 이미지와 함께 표시하십시오.

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.com에있는 최신 xkcd에 대해 동일한 작업을 수행해야하며 새로운 프로그램이 올라가더라도 항상 가장 최신의 xkcd를 표시해야합니다.

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에게 감사합니다.

인수가 전달되지 않으면 $argsnull이되고 현재 코믹을 가져옵니다. 그림을 대체 텍스트와 일치시켜 그림을 스크립트의 현재 실행중인 디렉토리에있는 파일로 다운로드하십시오. 그런 다음 jpg의 기본 뷰어로 표시하십시오. 그런 다음 대체 텍스트가 콘솔에 표시됩니다. 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)) 는 다음과 같습니다 .

)

파워 쉘, 93 바이트

로컬 이미지 뷰어를 사용하는 93 바이트 버전.

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

불필요한 쌍 따옴표를 제거하여 2 바이트를 저장 한 후 사용하여 다른 많은 ("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

sapsStart-Process기본 컨텍스트에서 'it'을 여는 별명입니다 .

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의 경우 :

사진이 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을 엽니 다 .

파이썬 2.7, 309 299 295 274 바이트

전체 프로그램. 확실히 더 골프화가 가능하지만 xkcd 만화를 오랫동안 읽은 후에는 이것을 통과시킬 수 없었습니다.

입력이 전달되지 않으면 현재 코믹을 가져옵니다. 유효한 만화 번호가 입력으로 전달되면 해당 만화를 가져옵니다. 유효하지 않은 입력 (유효 범위의 숫자 만화가 아님)이 전달되면 오류가 발생합니다.

바이트 수를 줄이는 방법에 대한 제안은 환영합니다! 시간이 더 있으면 다시 방문하여 설명을 추가합니다.

@Dopapp 덕분에 -10 바이트

@Shebang 덕분에 -21 바이트

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

파일에 저장하고 선택한 웹 서버에서 실행하십시오.

자바 스크립트 + 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/xkcd.com에 연결하는 데 필요한 프록시를 빼면 17 바이트 ( )를 저장할 수 있습니다 (이에 대한 메타 게시물 ).

테스트 스 니펫

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>

파이썬 + 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 언어 45 바이트 (수학)

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

번호 사용 :

%@"1500"

번호가없는 사용법 :

%@""