xkcd - улюблений веб-коміксом кожного, і ви будете писати програму, яка принесе трохи більше гумору для всіх нас.
Ваша мета в цьому виклику - написати програму, яка буде приймати число як введення та відображення цього xkcd та його заголовкового тексту (mousover text).

Вхідні дані

Ваша програма прийме позитивне ціле число як вхідне (не обов'язково таке, для якого існує дійсний комікс) і відобразить цей xkcd: наприклад, на вході 1500 повинно відображатися комічне "Перевернута карта" на 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}

Дякую Тіммі за допомогу зберегти кілька байт за допомогою вбудованих завдань.

Якщо жодних аргументів не буде передано, $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 для скребкування сайту (тому що я не маю часу тестувати це на всіх коміксах), а скоріше використовує API Internet Explorer, щоб перебирати imgтеги DOM, поки не знайде його з текстом заголовка.

Двійковий потік зчитується з URL-адреси зображення та передається в растрову карту за допомогою GDIPlus. Потім він відображається у приємному графічному інтерфейсі з автоматичним розміром із фактичною підказкою, щоб змусити його працювати майже так само, як веб-сайт.

Ось тестовий випадок ( _(859)):

)

Powershell, 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("/"))

надзвичайно схожий на відповідь Маттса, (мабуть, це буде коментар, але низька репутація)

Натомість це відкриває нову вкладку / вікно у веб-переглядачі за замовчуванням та інші речі, зберігаючи деякі байти.

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
}

Скріншоти тестових випадків:

для х = 1500:

для x порожнім:

випадок, коли зображення є jpeg:

х = 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 так довго, я не міг пропустити це (хто знає, чи це буде корисно в майбутньому для легкого перегляду 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>

Рішення хрестового походження завдяки відповіді Каїдо тут .

17 байт (//crossorigin.me/ ) можна зберегти, якщо проксі, необхідний для підключення до 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"])

Відкриває програму перегляду зображень (що є типовою для системи, в якій вона працює), що містить комікс, і надсилає текст заголовка до консолі.

Мова Вольфрама 45 байт (Mathematica)

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

Використання з номером:

%@"1500"

Використання без кількості:

%@""