Найди наших пропавших мертвецов

19

Вызов

Питер снова поднялся, чтобы спасти нас от повторяющихся испытаний!

Питер Тейлор мертв , и в этом нет никаких сомнений (ну, кроме огромного количества сомнений, которые у нас есть ... но просто игнорируйте это). В его памяти вы должны написать программу, которая определяет, является ли данный пользователь живым или мертвым.

Дальнейшая информация

Пользователь мёртв, если его не видели больше суток, а то и меньше. Проверьте последний увиденный раздел, найденный здесь:

Место последнего посещения

На входе будет идентификатор пользователя (например, у меня 30525, а у Питера Тейлора 194). Предположим, что все входные данные являются действительными идентификаторами PPCG.

Если пользователь жив, вы должны вывести:

[User name] is alive!

Где вы заменяете [Имя пользователя] своим именем пользователя, а не идентификатором пользователя.

Если пользователь мертв, вы должны вывести:

 Sadly, [User name] is dead.

Участникам T-SQL, использующим SE Data Explorer , запрещено.

выигрыш

Самая короткая программа в байтах побеждает.

Leaderboard

var QUESTION_ID=59763;OVERRIDE_USER=30525;function answersUrl(e){return"http://api.stackexchange.com/2.2/questions/"+QUESTION_ID+"/answers?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+ANSWER_FILTER}function commentUrl(e,s){return"http://api.stackexchange.com/2.2/answers/"+s.join(";")+"/comments?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+COMMENT_FILTER}function getAnswers(){jQuery.ajax({url:answersUrl(answer_page++),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){answers.push.apply(answers,e.items),answers_hash=[],answer_ids=[],e.items.forEach(function(e){e.comments=[];var s=+e.share_link.match(/\d+/);answer_ids.push(s),answers_hash[s]=e}),e.has_more||(more_answers=!1),comment_page=1,getComments()}})}function getComments(){jQuery.ajax({url:commentUrl(comment_page++,answer_ids),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){e.items.forEach(function(e){e.owner.user_id===OVERRIDE_USER&&answers_hash[e.post_id].comments.push(e)}),e.has_more?getComments():more_answers?getAnswers():process()}})}function getAuthorName(e){return e.owner.display_name}function process(){var e=[];answers.forEach(function(s){var r=s.body;s.comments.forEach(function(e){OVERRIDE_REG.test(e.body)&&(r="<h1>"+e.body.replace(OVERRIDE_REG,"")+"</h1>")});var a=r.match(SCORE_REG);a&&e.push({user:getAuthorName(s),size:+a[2],language:a[1],link:s.share_link})}),e.sort(function(e,s){var r=e.size,a=s.size;return r-a});var s={},r=1,a=null,n=1;e.forEach(function(e){e.size!=a&&(n=r),a=e.size,++r;var t=jQuery("#answer-template").html();t=t.replace("{{PLACE}}",n+".").replace("{{NAME}}",e.user).replace("{{LANGUAGE}}",e.language).replace("{{SIZE}}",e.size).replace("{{LINK}}",e.link),t=jQuery(t),jQuery("#answers").append(t);var o=e.language;/<a/.test(o)&&(o=jQuery(o).text()),s[o]=s[o]||{lang:e.language,user:e.user,size:e.size,link:e.link}});var t=[];for(var o in s)s.hasOwnProperty(o)&&t.push(s[o]);t.sort(function(e,s){return e.lang>s.lang?1:e.lang<s.lang?-1:0});for(var c=0;c<t.length;++c){var i=jQuery("#language-template").html(),o=t[c];i=i.replace("{{LANGUAGE}}",o.lang).replace("{{NAME}}",o.user).replace("{{SIZE}}",o.size).replace("{{LINK}}",o.link),i=jQuery(i),jQuery("#languages").append(i)}}var ANSWER_FILTER="!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe",COMMENT_FILTER="!)Q2B_A2kjfAiU78X(md6BoYk",answers=[],answers_hash,answer_ids,answer_page=1,more_answers=!0,comment_page;getAnswers();var SCORE_REG=/<h\d>\s*([^\n,]*[^\s,]),.*?(\d+)(?=[^\n\d<>]*(?:<(?:s>[^\n<>]*<\/s>|[^\n<>]+>)[^\n\d<>]*)*<\/h\d>)/,OVERRIDE_REG=/^Override\s*header:\s*/i;
body{text-align:left!important}#answer-list,#language-list{padding:10px;width:290px;float:left}table thead{font-weight:700}table td{padding:5px}
<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script> <link rel="stylesheet" type="text/css" href="//cdn.sstatic.net/codegolf/all.css?v=83c949450c8b"> <div id="answer-list"> <h2>Leaderboard</h2> <table class="answer-list"> <thead> <tr><td></td><td>Author</td><td>Language</td><td>Size</td></tr></thead> <tbody id="answers"> </tbody> </table> </div><div id="language-list"> <h2>Winners by Language</h2> <table class="language-list"> <thead> <tr><td>Language</td><td>User</td><td>Score</td></tr></thead> <tbody id="languages"> </tbody> </table> </div><table style="display: none"> <tbody id="answer-template"> <tr><td>{{PLACE}}</td><td>{{NAME}}</td><td>{{LANGUAGE}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table> <table style="display: none"> <tbody id="language-template"> <tr><td>{{LANGUAGE}}</td><td>{{NAME}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table>

Бета распад
источник
2
Зачем запрещать T-SQL / SEDE?
Geobits
1
Требуется описание, где найти номер для «последнего посещения».
feersum
@feersum Это тег заголовка последнего увиденного значения.
mınxomaτ
@feersum Достаточно хорошо?
бета-распад
1
Я думаю, что разбор более важен для этого, чем Интернет .
августа

Ответы:

4

CJam, 115 байтов

"codegolf.xyz/u/"r+g_N/{"s=\"r"/_0='>&!*1>s_"da"#)\_el=!|}#)"Sadly, %s is dead.""%s is alive!"?\"\"User "/1='"/1<e%

Идея та же, что и в моем ответе на Bash , за исключением того, что в этом ответе не используются регулярные выражения, потому что CJam не имеет регулярных выражений ...

Онлайн-переводчик не выполняет веб-запросы, поэтому он будет работать только из командной строки.

Деннис
источник
8

Баш, 151 байт

r="curl -L codegolf.xyz/u/$1";u=`$r|grep -Pom1 '(?<="User )[^"]*'`
$r|grep -Pq '^[^>]*s="r.*(da|[A-Z])'&&echo "Sadly, $u is dead."||echo "$u is alive!"

Как обычно, вывод в STDERR игнорируется .

Пример запуска

$ ./is-dead 30525 2>&-
Beta Decay is alive!
$ ./is-dead 44935 2>&-
Sadly, Alpha Decay is dead.

идея

Этот код ищет строки, s="rкоторые не имеют >до его появления. Например:

Last seen <span title="2015-09-17 12:00:00Z" class="relativetime">just now</span>
  • Если за соответствием следует строка da, оно содержит слово yesterdayили days(как в 2 days ago).
  • Если за совпадением следует заглавная буква, она содержит название месяца.
  • Во всех остальных случаях пользователь жив нежить .

Имя пользователя извлекается из метатега Twitter. Пример:

<meta name="twitter:title" property="og:title" itemprop="title name" content="User Dennis">
Деннис
источник
3
Я обновил свой профиль, и внезапно я умер. :(
TessellatingHeckler
5
Вы больше не мертвы для меня.
Деннис
1
Какое облегчение!
TessellatingHeckler
Кто зарегистрировал этот домен?
jimmy23013
@ jimmy23013 minxomat
Деннис
7

Javascript ES6, 234 байта

document.write(`<script src="//api.stackexchange.com/users/${prompt(a=d=>{n=(x=d.items[0]).display_name,alert((Date.now()/1e3)-x.last_access_date>86400?`Sadly, ${n} is dead.`:n+' is alive!')})}?site=codegolf&callback=a">\x3C/script>`)

Аннотированная версия

// Inserts a script tag to perform a JSONP callback request on the stackexchange API
document.write(`
  <script src="//api.stackexchange.com/users/${
    prompt( // interpolate user input into url
      a = d =>{ // declare a in global scope
        n = (x = d.items[0]).display_name, // alias the user object and name
        alert(
          (Date.now() / 1e3) - x.last_access_date > 86400 
          ? `Sadly, ${n} is dead.` // a day or less since last seen
          : n + ' is alive!' // more than a day since last seen
        )
      }
    )
  }?site=codegolf&callback=a">\x3C/script>` // escaping that prevents early termination of enclosing script tag
)
Джордж Райт
источник
Не в состоянии анализировать апостроф в моем имени, но правильно анализирует любой другой символ. XD +1 для тестирования в браузере
Конор О'Брайен
1
@ CᴏɴᴏʀO'Bʀɪᴇɴ Черт, API-сущность кодирует его.
Джордж Райт
7

PowerShell (v4), 228, 217, 209 , 157 байт.

$u=($x=curl "codegolf.xyz/u/$args").BaseResponse.ResponseURI.Segments[-1]
if($x-match'n <(.*?)((c|n|ur)s* ago|w)<'){"$u is alive!"}else{"Sadly, $u is dead."}

например

PS C:\> test.ps1 30525
beta-decay is alive!

C:\> test.ps1 67
Sadly, keith-randall is dead.


#Previous 209 byte version:
$f={$u=((curl "api.stackexchange.com/2.2/users/$($args)?&site=codegolf"
)|ConvertFrom-Json).Items;$d=$u.display_name;if((get-date -U %s)-
$u.last_access_date-gt86400){"Sadly, $d is dead."}else{"$d is alive!"}}

(Извините, Кит Рэндалл, вы были только первым аккаунтом, на котором я обнаружил> 1 день с момента последнего посещения).

Я был доволен надежным и надежным 209-байтовым, вызывающим API, но скрининг экрана - это путь для игры в гольф.

  • Теперь это извлекает имя пользователя из перенаправленного URI - но это имя, а не числовой идентификатор, как требуется.

  • И это соответствует строке Last seen <span title="2015-10-03 13:15:38Z" class="relativetime">2 days ago</span>с n <... [nr]s ago<попыткой поймать секунды (с) назад, мин (ы) назад, час (ы) назад и только сейчас, и пропустить «дни недели, месяцы» назад или долгосрочные даты + время. И пытается поймать «последний раз видели», а не другие относительные времена. (Спасибо Деннис).

NB. curlэто псевдоним по умолчанию для Invoke-WebRequest, это не стандартная программа curl, портированная на Windows.

TessellatingHeckler
источник
2
Не Там же secs ago, 1 min ago(нет s), и я думаю , что я видел just now.
Деннис
@ Денис, думаю, сейчас все исправлено, спасибо. (ценой отставания от вашего ответа Bash; возможно, я должен постыдно постараться, используя ваши совпадения шаблонов ...).
TessellatingHeckler
5

Р, 384 350 байт

Это для тебя, Питер!

u=scan();D=as.POSIXlt;J=jsonlite::fromJSON(gsub("/\\*\\*/a|[()]|;$","",httr::content(httr::GET(paste0("http://api.stackexchange.com/2.2/users/",u,"?site=codegolf&callback=a")),,"text")))$items;l=D(J$last_access_date,z<-"UTC","1970-01-01");n=D(Sys.time(),z);U=J$display_name;if(as.Date(n)-as.Date(l)>1)cat("Sadly,",U,"is dead.")else cat(U,"is alive!")

Обратите внимание, что это требует httr и jsonliteпакеты , которые будут установлены, хотя они не должны быть импортированы для этого кода на работу , так как мы ссылающиеся пространства имен в явном виде.

Ungolfed:

# Read a user ID from STDIN
u <- scan()

# Create a request object using the SE API v2.2
request <- httr::GET(paste0("http://api.stackexchange.com/2.2/users/", u,
                            "?site=codegolf&callback=a"))

# Read the contents of the request into a ill-formed JSON string
body <- httr::content(request, type = "text")

# Parse out a valid string and get the associated fields
J <- jsonlite::fromJSON(gsub("/\\*\\*/a|[()]|;$", "", body))$items

# Get the last accessed date as a POSIX datetime object
l <- as.POSIXlt(J$last_access_date, "UTC", "1970-01-01")

# Get the current date
n <- as.POSIXlt(Sys.time(), "UTC")

# Extract the username
U <- J$display_name

# Determine whether the user has died
if (as.Date(n) - as.Date(l) > 1) {
    cat("Sadly," U, "is dead.")
} else {
    cat(U, "is alive!")
}

Сохранено 5 байтов на моем предыдущем подходе и исправлена ​​ошибка в моем текущем подходе благодаря minxomat!

Алекс А.
источник
Я не знаю о R, но вы не можете сохранить некоторые байты, поместив строковый литерал "/users/"в переменную?
mınxomaτ
@minxomat Конечно, можно, спасибо!
Алекс А.
\ п и; взять такое же количество байтов. Так что ваш код не должен выглядеть так
OganM
@OganM На самом деле в R мы scan()будем думать , что последующие строки - это то, что вы хотите ввести из STDIN (кто знает, почему), поэтому в этом случае необходимы точки с запятой. Но в целом ты прав.
Алекс А.
5

AutoIt, 320 316 308 байт

#include<String.au3>
#include<Date.au3>
$0=_StringBetween
$1=BinaryToString(InetRead('http://codegolf.xyz/u/'&ClipGet()))
$2=_DateDiff('D',StringReplace($0($1,'Last seen <span title="',' ')[0],'-','/'),@YEAR&'/'&@MON&'/'&@MDAY)
ConsoleWrite(($2?'Sadly, ':'')&$0($1,'r ','- P')[0]&'is '&($2?'dead.':'alive!'))

_DateDiffвычисляет разницу в днях ( 'D'). Это будет 0, если разница меньше 1 дня, поэтому мы можем использовать его как логическое значение. Тег заголовка «последнего увиденного» значения содержит (почти) стандартную временную метку.

mınxomaτ
источник
2
Я не видел авто более десяти лет. Господи, возьми мой голос.
Qix
1

PHP, 187 байт

Довольно упрощенный подход, использующий домен codegolf.xyz, только немного отличается от того, что я пытаюсь получить обе переменные одновременно. Протестировано на нескольких пользователях с правильными результатами, пожалуйста, дайте мне знать, если есть какие-то проблемные области!

<?preg_match('/"User ([^"]+)".+?"([^"]+)" class="r/s',file_get_contents("http://codegolf.xyz/u/$argv[1]"),$m);echo time()-strtotime($m[2])<86400?"$m[1] is alive!":"Sadly, $m[1] is dead.";

Использование:

php 59763.php 30525
Дом Гастингс
источник
$m[1] is появляется два раза. Разве не было бы дешевле напечатать это первым и использовать троичный только для мертвой / живой части?
Mynxomaτ
@minxomat Я играл с этим, но Sadly, ...роль мешала ... Кажется, я не могу понять это!
Дом Гастингс
Сначала проследите за печалью, а затем присвойте результат time()-strtotime($m[2])переменной с одним символом. Тогда эхо $m[1] is и наконец мертвые / живые. Вот как я это сделал - не знаю, будет ли это работать в PHP :)
mınxomaτ
@minxomat Аааа, так просто, но я не мог сообразить это! Благодарность! Я обновлю, как только смогу проверить снова!
Дом Гастингс
1

Groovy, 355 байтов

import groovy.json.JsonSlurper;import java.util.zip.GZIPInputStream;def d = new JsonSlurper().parseText(new GZIPInputStream(new URL("http://api.stackexchange.com/2.2/users/${args[0]}?site=codegolf").newInputStream()).getText()).items[0];def n = d.display_name;println d.last_access_date*1000l<new Date().time-8.64E7?"Sadly, ${n} is dead.":"${n} is alive!"

Несжатый источник

import groovy.json.JsonSlurper;
import java.util.zip.GZIPInputStream;

def rawText = new GZIPInputStream(new URL("http://api.stackexchange.com/2.2/users/${args[0]}?site=codegolf").newInputStream()).getText()
def json = new JsonSlurper().parseText(rawText).items[0]
def name = json.display_name
//We have to correct for java date returning in millis
def lastAccess = json.last_access_date * 1000l
def yesterday = new Date().time - 86400000
if (lastAccess < yesterday) {
    println "Sadly, ${name} is dead."
} else {
    println "${name} is alive!"
}
Майк Кларк
источник
Вы можете сохранить 42 байта (сокращает до 313 байтов), если вместо импорта выполните новый groovy.json.JsonSlurper и новый java.util.zip.GZIPInputStream. Импорт обычно окупается, если вы часто используете класс.
спагетто