Протокорейські загарбники

Це виклик графічного виводу, де завданням є дати найкоротший код на кожній мові.

Завдання

Ваш код повинен дозволяти користувачеві переміщувати наступного прибульця по екрану / вікну.

Ваш код може просто завантажити його з локального файлу. Не соромтеся конвертувати його в інший стандартний формат зображення або навіть виправити невеликі помилки пікселів у зображенні, які були вказані в коментарях.

Фон повинен бути білим, а вікно / екран має бути не менше 400 пікселів на 400 пікселів. Якщо ваша мова не підтримує великі вікна / екрани, то використовуйте найбільший розмір, вона підтримує, поки це не менше 200 на 200.

Для переміщення прибульця по екрану код повинен підтримувати вгору / вниз / вліво / вправо за допомогою клавіш зі стрілками на стандартній клавіатурі.

Ваш код повинен бути повноцінною програмою .

Обмеження / обмеження

Чужинець повинен зупинитися на кордонах. Він також повинен плавно рухатись рівномірною швидкістю, без видимого мерехтіння або заїкання, і показуватись принаймні 24 кадрів в секунду. Перехід від однієї сторони екрана / вікна до іншої повинен зайняти від 2 до 5 секунд.

Мови та бібліотеки

Ви можете використовувати будь-яку мову чи бібліотеку, яка вам подобається (це не було розроблено для цього завдання). Однак я хотів би мати можливість протестувати ваш код, якщо це можливо, якщо ви можете надати чіткі інструкції, як запустити його в Ubuntu, що було б дуже вдячно.

Каталог

Фрагмент стека внизу цієї публікації генерує каталог з відповідей а) як список найкоротших варіантів для кожної мови та б) як загальний таблиця лідерів.

Щоб переконатися, що ваша відповідь відображається, будь ласка, почніть свою відповідь із заголовка, використовуючи наступний шаблон Markdown:

## Language Name, N bytes

де Nрозмір вашого подання. Якщо ви покращите свій рахунок, ви можете зберегти старі бали у заголовку, прокресливши їх. Наприклад:

## Ruby, <s>104</s> <s>101</s> 96 bytes

Якщо ви хочете включити у свій заголовок декілька чисел (наприклад, тому що ваш результат становить суму двох файлів або ви хочете окремо вказати штрафні санкції для перекладача), переконайтесь, що фактичний результат - це останнє число у заголовку:

## Perl, 43 + 2 (-p flag) = 45 bytes

Ви також можете зробити ім'я мови посиланням, яке з’явиться у фрагменті:

## [><>](http://esolangs.org/wiki/Fish), 121 bytes

<style>body { text-align: left !important} #answer-list { padding: 10px; width: 290px; float: left; } #language-list { padding: 10px; width: 290px; float: left; } table thead { font-weight: bold; } table td { padding: 5px; }</style><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="language-list"> <h2>Shortest Solution 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> <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> <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><script>var QUESTION_ID = 62426; var ANSWER_FILTER = "!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe"; var COMMENT_FILTER = "!)Q2B_A2kjfAiU78X(md6BoYk"; var OVERRIDE_USER = 9206; var answers = [], answers_hash, answer_ids, answer_page = 1, more_answers = true, comment_page; function answersUrl(index) { return "https://api.stackexchange.com/2.2/questions/" + QUESTION_ID + "/answers?page=" + index + "&pagesize=100&order=desc&sort=creation&site=codegolf&filter=" + ANSWER_FILTER; } function commentUrl(index, answers) { return "https://api.stackexchange.com/2.2/answers/" + answers.join(';') + "/comments?page=" + index + "&pagesize=100&order=desc&sort=creation&site=codegolf&filter=" + COMMENT_FILTER; } function getAnswers() { jQuery.ajax({ url: answersUrl(answer_page++), method: "get", dataType: "jsonp", crossDomain: true, success: function (data) { answers.push.apply(answers, data.items); answers_hash = []; answer_ids = []; data.items.forEach(function(a) { a.comments = []; var id = +a.share_link.match(/\d+/); answer_ids.push(id); answers_hash[id] = a; }); if (!data.has_more) more_answers = false; comment_page = 1; getComments(); } }); } function getComments() { jQuery.ajax({ url: commentUrl(comment_page++, answer_ids), method: "get", dataType: "jsonp", crossDomain: true, success: function (data) { data.items.forEach(function(c) { if (c.owner.user_id === OVERRIDE_USER) answers_hash[c.post_id].comments.push(c); }); if (data.has_more) getComments(); else if (more_answers) getAnswers(); else process(); } }); } getAnswers(); var SCORE_REG = /<h\d>\s*([^\n,<]*(?:<(?:[^\n>]*>[^\n<]*<\/[^\n>]*>)[^\n,<]*)*),.*?(\d+)(?=[^\n\d<>]*(?:<(?:s>[^\n<>]*<\/s>|[^\n<>]+>)[^\n\d<>]*)*<\/h\d>)/; var OVERRIDE_REG = /^Override\s*header:\s*/i; function getAuthorName(a) { return a.owner.display_name; } function process() { var valid = []; answers.forEach(function(a) { var body = a.body; a.comments.forEach(function(c) { if(OVERRIDE_REG.test(c.body)) body = '<h1>' + c.body.replace(OVERRIDE_REG, '') + '</h1>'; }); var match = body.match(SCORE_REG); if (match) valid.push({ user: getAuthorName(a), size: +match[2], language: match[1], link: a.share_link, }); else console.log(body); }); valid.sort(function (a, b) { var aB = a.size, bB = b.size; return aB - bB }); var languages = {}; var place = 1; var lastSize = null; var lastPlace = 1; valid.forEach(function (a) { if (a.size != lastSize) lastPlace = place; lastSize = a.size; ++place; var answer = jQuery("#answer-template").html(); answer = answer.replace("{{PLACE}}", lastPlace + ".") .replace("{{NAME}}", a.user) .replace("{{LANGUAGE}}", a.language) .replace("{{SIZE}}", a.size) .replace("{{LINK}}", a.link); answer = jQuery(answer); jQuery("#answers").append(answer); var lang = a.language; lang = jQuery('<a>'+lang+'</a>').text(); languages[lang] = languages[lang] || {lang: a.language, lang_raw: lang, user: a.user, size: a.size, link: a.link}; }); var langs = []; for (var lang in languages) if (languages.hasOwnProperty(lang)) langs.push(languages[lang]); langs.sort(function (a, b) { if (a.lang_raw > b.lang_raw) return 1; if (a.lang_raw < b.lang_raw) return -1; return 0; }); for (var i = 0; i < langs.length; ++i) { var language = jQuery("#language-template").html(); var lang = langs[i]; language = language.replace("{{LANGUAGE}}", lang.lang) .replace("{{NAME}}", lang.user) .replace("{{SIZE}}", lang.size) .replace("{{LINK}}", lang.link); language = jQuery(language); jQuery("#languages").append(language); } }</script>

Скретч , 221 217 байт

Клацніть зображення, щоб переглянути його в дії. Рух визначається натисканням клавіш , тому він буде плавнішим, чим швидше буде встановлено повторення клавіші.

Зображення включене в проект, але байти Scratch, як правило, підраховуються з текстового подання на гольфі , за цією мета-публікацією . Якщо є незгода щодо того, чи прийнятно це (чи рух досить плавний), повідомте мене, і я спробую обійти його.

Обробка 2, 219 199 241 220 219 байт

int a,x=0,y=0;void setup(){size(500,500);}void draw(){background(-1);image(loadImage(".png"),x,y);if(keyPressed){a=keyCode;if(a==38)y--;if(a==37)x--;if(a==40)y++;if(a==39)x++;}x=constrain(x,0,436);y=constrain(y,0,454);}

Потрібно зображення, збережене як .pngу тому самому каталозі, що й .pde

Python 2, 262 253 246 240 байт

from pygame import*
init()
key.set_repeat(1)
p=[0,0]
d=display
c=d.set_mode((400,)*2)
while c.fill((255,)*3):
 e=event.get(2);c.blit(image.load("I"),p);d.flip()
 if e:x=e[0].key+1;q=x&2;b=q/2;p[b]=max(0,min(336+b*16,p[b]+(1-q)*(1-(2*x&2))))

Ого. Що за хакерство.

Використовується модуль 'pygame', знайдений на http://pygame.org .

Пояснення

key.set_repeat(1) - Надсилайте повторювані ключові події через систему подій кожні мілісекунди

c=d.set_mode((400,)*2) - Створіть дисплейну поверхню 400x400

while c.fill((255,)*3):- Ефективно, while 1:але також очищає екран

e=event.get(2);c.blit(image.load("I"),p);d.flip()- Збирайте лише події на клавіатурі, завантажуйте зображення, збережене у png-файлі під назвою, Iта малюйте його. Оновіть екран

if e:x=e[0].key+1;q=x&2;b=q/2;p[b]=max(0,min(336+b*16,p[b]+(1-q)*(1-(2*x&2)))) - Якщо відбулася подія, визначте, яку клавішу зі стрілками натискали (чи дивно це робити, якщо натиснути інші клавіші), а потім змініть положення поверхні залежно від того, яку клавішу ви натиснули.

Haskell, 410 байт

import Graphics.Gloss
import Graphics.Gloss.Interface.Pure.Game
main=do b<-loadBMP"b";play(InWindow""(400,400)(0,0))white 200((0,0),id)(b#)e(%)
e(EventKey(SpecialKey k)Down _ _)(c,_)|k==KeyUp=(c,fmap(+1))|k==KeyDown=(c,fmap(+(-1)))|k==KeyLeft=(c,((+(-1))?))|k==KeyRight=(c,((+1)?))
e(EventKey _ Up _ _)(c,_)=(c,id)
e _ w=w
_%(c,f)=(s?(s<$>f c),f)
s=min 200.max(-200)
b#((x,y),_)=Translate x y b
f?(a,b)=(f a,b)

Зображення прибульця очікується у файлі, названому bу .bmpформаті.

Я новачок у бібліотеці Gloss, тому, можливо, це не оптимально. Хтось знає, чи можу я перевірити, чи натискається клавіша замість відстеження KeyUp/ KeyDownподій?

Як це працює: останні чотири параметри play- це стан світу (ініціалізований з ((0,0),id), функція малювання зображення із стану ( #), обробник подій ( e) та функція, яка змінює стан з часом ( %).

Стан - це пара координат xy і функція, як їх змінювати щоразу, коли %викликається.

#переміщує растрову карту ( b) до поточних координат і малює її.

eшукає або KeyDownподії клавіш курсору і встановлює відповідні функції в стані, або для KeyUpбудь-якої клавіші, щоб скинути функцію в стані на функцію ідентичності.

% застосовує функцію від стану до поточних координат і перевіряє межі.

В'яз, 240 байт

import Graphics.Element as G
import Keyboard as K
import Time
import Signal exposing(..)
c=min 800>>max 64
i(x,y)=G.container x y G.middle(G.image 64 48"http://i.stack.imgur.com/CUweU.png")
main=i<~foldp(\{x,y}(v,w)->(c v+x,c w-y))(99,99)(sampleOn(Time.fps 200)K.arrows)

Спробуйте тут . Кількість байтів відбувається після заміни URL-адреси на .png.

AutoIt , 269 267 байт

#include<Misc.au3>
GUICreate(0,-1,-1,-1,-1,-1,34078728)
$0=GUICtrlCreatePic("b.bmp",0,0,64,48)
GUISetState()
Dim $1,$2
$3=_IsPressed
Do
$1+=$3("27")-$3("25")
$2+=$3("28")-$3("26")
$1=($1>336)?336:($1<0)?0:$1
$2=($2>352)?352:($2<0)?0:$2
GUICtrlSetPos($0,$1,$2)
Until 0

Потрібно зберегти зображення як b.bmp у каталозі сценаріїв. Якщо ви хочете використовувати зображення з реальною прозорістю, вам доведеться перетворити його з PNG в 32-бітну растрову карту (OT: дійсно не оцінений формат).

Пояснення

Нам потрібно імпортувати, Misc.au3щоб отримати доступ до _IsPressed. Функція, яка приймає код ключа і повертається Trueабо Falseпри натисканні клавіші.

Специфікація виклику є досить крутою в тому, що нам потрібно створити квадратне вікно 400 пікселів. Параметри розміру за замовчуванням (позначаються як -1або Default) - 400x400. Розширений стиль вікна встановлюється в 34078728. Це змушує подвійне буферизацію вікна та малювати знизу вгору. Це необхідно для усунення мерехтіння відповідно до вимоги виклику. У Windows 10 ця незвична (і дещо недокументована) комбінація стилів розбиває рядок заголовка вікна (усі вивідні ефекти вимкнено).

$1і $2оголошуються і будуть утримувати зсув x і y зображення, завантаженого елементом управління $0. $3стає вказівником на функцію, _IsPressedщоб значно скоротити код.

Оскільки не потрібно виходити з програми, цей скрипт працює у нескінченному циклі ( Until 0).

$1+=$3("27")-$3("25")зловживає типом даних варіанту в AutoIt, динамічно _IsPressedвиводячи булеве значення, повернене з цілого числа, яке може бути додане або підрядне від зміщення x. Те саме для у. $1=($1>336)?336:($1<0)?0:$1використовує потрійний оператор, відомий з мов, подібних С, щоб здійснити перевірку меж, щоб зупинити прибульця на кордонах.

GuiCtrlSetPos переміщує керування зображенням на нові координати.

Ось скріншот із прозорим прибульцем (ви можете навіть рухатись по діагоналі):

Lua + LÖVE, 291 символ

x=0
y=0
l=love
g=l.graphics
l.window.setMode(400,400)
i=g.newImage("i")
function l.update()d=l.keyboard.isDown
if d("left")and x>0 then x=x-1 end
if d("right")and x<336 then x=x+1 end
if d("up")and y>0 then y=y-1 end
if d("down")and y<352 then y=y+1 end
end
function l.draw()g.draw(i,x,y)end

Для цього використовується непереборне вікно розміром 400 х 400. Я не мав успіху з коригуваннямlove.keyboard.setKeyRepeat() на пришвидшення читання клавіш, тому я зробив рекомендований спосіб, опитуючи статус кожного ключа.

Оскільки моє відношення до Луї forне найкраще, ні цього разу не вдалося зробити циклічні роботи коротшими, ніж жорстке кодування дампа за умовами кожного ключа.

SpecBAS - 285 255 байт

1 GRAPHIC NEW v LOAD "inv8.bmp" TRANSPARENT 15
2 PALETTE COPY v,0,1 TO 5: GRAPHIC REMAP v
3 LET x,y=100
4 CLS : WINDOW PUT GRAPHIC v,0,x,y
5 LET x=x+KEYST(39)-KEYST(37),y=y+KEYST(40)-KEYST(38)
6 LET x=CLAMP(x,1 TO 400),y=CLAMP(y,1 TO 400)
7 WAIT SCREEN 
8 GO TO 4

Завантажує зображення - колір 15 яскраво-білий, так що стає прозорим.

Використовуючи оригінальне зображення та стандартну палітру SpecBAS, це вийшло трохи дивним, тому лінія 2 перемикає їх на відповідність вхідному зображенню. Знизу зображено, як це виглядає без рядка 2 і після.

Команда CLAMP обмежує графіку між 1 і 400 в обох напрямках, економить на кількох операторах IF ... THEN.

Рядок 9 просто чекає, коли речі наздогнать і запобіжить мерехтіння.

Він переміщується по одному пікселю за часом, на основі булевої перевірки, яка клавіша натиснута, тому потрібно тривати трохи більше 5 секунд, щоб перейти з боку в бік.

Ruby with Shoes, 252 243 символи

Shoes.app{background white
i=image'i'
m=[0,0]
a=[:width,:height]
animate(99){i.left+=m[0]<=>i.left
i.top+=m[1]<=>i.top}
keypress{|k|d,v={?u=>[1,-1],?d=>[1,1],?l=>[0,-1],?r=>[0,1]}[k[0]];m[d]=[[m[d]+v*4,self.send(p=a[d])-i.send(p)].min,0].max}}

Для цього використовується вікно зміни розміру, яке починається з замовчування 600 x 500. Якщо змінити розмір вікна, щоб окупант не залишився, він повернеться після натискання наступної клавіші руху.

Трюк у задоволенні вимог полягає в тому, що позиція окупанта змінюється з кроком 4, але фактичний рух здійснюється з кроком 1 на 99 кадрів в секунду.

Tcl / Tk , 242 байти

grid [canvas .c -w 400 -he 403 -bg #FFF -highlightt 0]
.c cr i 30 24 -i [image c photo -fi .png] -t p
lmap {k b x y} "Up 1]>25 0 -5 Right 0]<368 5 0 Down 1]<376 0 5 Left 0]>30 -5 0" {bind . <$k> "if \[lindex \[.c coo p] $b {.c move p $x $y}"}

JavaScript (використовуючи paper.js), 215 байт

v=new Raster("http://i.stack.imgur.com/CUweU.png",99,99);p=new Size(4,0)
onFrame=e=>{if(!v.isInside(view.bounds)){p=-p};v.position+=p}
onKeyDown=e=>{p=new Size([[0,-4],[0,4],[-4,0],[4,0]]["udlr".indexOf(e.key[0])])}

paper.js - це графічна структура JS, що означає, що вона має багато корисних функцій щодо маніпулювання зображеннями. Для запуску, просто скопіювати вище в розділі зліва тут , а потім, щоб перемістити іноземця навколо, натисніть один раз в правій частині , щоб дати йому фокус. Якщо ваш браузер може працювати з ним, він повинен працювати зі швидкістю 60 кадрів в секунду.