Спасение принцессы на 8 разных языках программирования

⋮

ОТВЕТИТЬ НОВАЯ ТЕМА

dvserg 6 окт 2016 в 21:35

Ярила • На сайте 10 лет

Цитата (sanctas @ 6.10.2016 - 14:33)

Давайте на Ардуино и чтобы каждая конечность акторов дергалась через отдельный пин! Мне не хватает внимания со стороны окружающих. Обнимите меня, кому не лень. подбор пауз между дерганьем через delay!

Эти дергания пинов и принцессы приведут к появлению потомства.

Это сообщение отредактировал dvserg - 6 окт 2016 в 21:40

~~stylez~~ 6 окт 2016 в 22:02

Ярила • На сайте 10 лет

Цитата (Рапапай @ 6.10.2016 - 16:01)

Цитата (Plejik @ 6.10.2016 - 14:14)

С паскаля взоржал, спасибо =)))

На делфях у рыцаря был-бы охрененный интерфейс, нахрена там принцесса)))

на делфях рыцарь сразуже начал бы искать по форумам модуль по спасению принцесс

~~Voronezher~~ 6 окт 2016 в 22:34

Ярила • На сайте 13 лет

Лисп реально убил. Единственный ЯП(язык программирования, а не то что вы подумали), который никак не удается постигнуть. В основном из-за отсутствия адекватных мануалов.

БубиЧервь 6 окт 2016 в 22:45

Хохмач • На сайте 12 лет

Цитата (Voronezher @ 6.10.2016 - 22:34)

А у меня не переваривание питона. Не могу пробелы писать ))

GCoder 6 окт 2016 в 22:58

Приколист • На сайте 12 лет

Мне очень нравится forth
: Save now princess

Это сообщение отредактировал GCoder - 6 окт 2016 в 23:04

~~SPP~~ 6 окт 2016 в 23:15

Шутник • На сайте 9 лет

Этим "тупым" одинэсникам приходится кроме программеров быть еще и бухгалтерами и юристами, чтобы ответить на действительно тупые вопросы бухгалтеров "... какого хуя у меня отчетность неправильно считает", хотя считает неправильно не отчетность, а ее тупая башка... Кто из программеров еще может похвастаться таким "широким профилем"?

зы: а по поводу языка 1С: ну паскаль + SQL, ничего особенного ))

Это сообщение отредактировал SPP - 6 окт 2016 в 23:18

~~Яжпрограммер~~ 6 окт 2016 в 23:25

Хохмач • На сайте 9 лет

Java:

try {
public class SaveAPrincess{
.
.
.
.
}
} catch (Exception e) {
}

и все равно первая ошибка - NullPointerException

БубиЧервь 6 окт 2016 в 23:31

Хохмач • На сайте 12 лет

Цитата (SPP @ 6.10.2016 - 23:15)

1c пиздатая программка только:

1. Никогда не видел её легальную
2. Русский язык это ту мач
3. Никогда не писал бухгалтерию, зато писал тетрисы, змейку, сканер штрих-кодов и подобную поебень.

Интересная среда вообще.

Это сообщение отредактировал БубиЧервь - 6 окт 2016 в 23:32

byrbyrbyr 6 окт 2016 в 23:40

Шутник • На сайте 12 лет

А мне нравится MMX )

Код

pxor mm0,mm0
movd mm1,ebx
movd mm2,ecx
mov ah,al
movd mm3,eax
punpcklbw mm3,mm3
not al
mov ah,al
movd mm4,eax
punpcklbw mm4,mm4

punpcklbw mm1,mm0
punpcklbw mm2,mm0
punpcklbw mm3,mm0
punpcklbw mm4,mm0

pmullw mm1,mm3
pmullw mm2,mm4
paddw mm1,mm2
psrlw mm1,8
packuswb mm1,mm0

А что, по-моему всё понятно

Это сообщение отредактировал byrbyrbyr - 6 окт 2016 в 23:41

БубиЧервь 6 окт 2016 в 23:51

Хохмач • На сайте 12 лет

Цитата (byrbyrbyr @ 6.10.2016 - 23:40)

А мне нравится MMX )

Код

А что, по-моему всё понятно

punpcklbw mm4,mm4

Вот этот момент повеселил ))

byrbyrbyr 6 окт 2016 в 23:58

Шутник • На сайте 12 лет

Цитата (БубиЧервь @ 6.10.2016 - 23:51)

Цитата (byrbyrbyr @ 6.10.2016 - 23:40)

А мне нравится MMX )

Код

А что, по-моему всё понятно

punpcklbw mm4,mm4

Вот этот момент повеселил ))

А там вообще всё просто

Цитата

Команда PUNPCKL распаковывает младшие элементы операнда-источника и операнда-назначения в операнд-назначение. Элементы двух операндов записываются в результат через один, т.е. в младший элемент результата помещается младший элемент операнда-назначения, в следующий более старший элемент — младший элемент операнда-источника, далее — следующий элемент из операнда-назначения, элемент из операнда-источника и т.д. до полного заполнения всех элементов результата, этот результат затем помещается в операнд-назначение.
Операндом-назначением является MMX-регистр. Операндом-источником может быть как MMX-регистр, так и операнд в памяти. Операнд в памяти является 64-разрядным, но производится доступ только к его младшим 32-м битам.
Команда PUNPCKLBW распаковывает байты.

publicistic 7 окт 2016 в 06:40

Приколист • На сайте 12 лет

Эта пять!!!

kuzzzma 7 окт 2016 в 06:55

Хочу спросить. • На сайте 11 лет

Цитата (alexeymc @ 6.10.2016 - 15:37)

Интересно, если бы был ассемблер, то он и принцесса раньше от старости бы померли, до того как спаслись? Причем всё бы делалось правильно.....

Я очень старый. Не обижайтесь, если я вспомню такую хню, как ЯАП Наири. Ну, понятно, что у принцессы не было бы шансов. Напомню, что у агрегата, занимающего пару комнат, для которого хитрыми армянами был создан этот язык, монитора тоже не было. На все про все была электрическая пишущая машинка! Максимум, что можно было добиться адским трудом - это распечатка намрулонной бумажке крестиками и ноликами чего-то, напоминающего как бы принцессу. При этом только электроэнергии машина сожрала бы киловатт десять.
Извините за такой винтаж.

~~beerson~~ 7 окт 2016 в 07:02

Ярила • На сайте 11 лет

Цитата (Voronezher @ 7.10.2016 - 00:34)

А мне в своё время нравилось скобки считать. Зато и в открытых/закрытых тегах потом не путался, даже если код был написан мягко говоря не структурно.

Salagin 7 окт 2016 в 08:20

Ярила • На сайте 13 лет

АгаУгу

Цитата

А знал бы Perl, не заморачивался бы. Просто пошел бы

на cpan.org, нашел модуль

Цитата

и быстро отыскал нужную принцессу в замке.

NickyX3 7 окт 2016 в 08:51

Юморист • На сайте 11 лет

Стреляем в ногу на PHP, на правах бреда.

Код

<?php
// стреляем в правую ногу на PHP
// создаем пистолет
$gun = new Gun();

// проверяем есть ли в пистолете магазин
if ( $gun->checkMagazineLoaded() ) {
// достаем его
$magazine = $gun->unload();
// получаем сколко в магазине патронов
$loadedBullets = $magazine->countLoaded();
// если патронов нет
if ( $loadedBullets === 0 ) {
// берем нужное количество патронов
for($i=0;$i<$magazine->getCapacity();$i++) {
$bullets[] = new Cartrige();
}
// помещаем их в магазин
$magazine->load($bullets);
}
} else {
// нет магазина в пистолете
// получаем новый магазин для этого пстолета
$magazine = new Magazine($gun->getInfo());
// берем нужное количество патронов
for($i=0;$i<$magazine->getCapacity();$i++) {
$bullets[] = new Cartrige();
}
// помещаем их в магазин
$magazine->load($bullets);
}

// втсавляем магазин в пистолет
$gun->load($magazine);

// получаем нового человека
$human = new Human();
// получаем его правую руку
$hand = $human->getPartOfBody('hand','right');
// получаем его правую ногу
$foot = $human->getPartOfBody('foot','right');

// получаем координаты ноги
$shotPoint = $foot->getPosition();

// берем пистолет в руку
$hand->getItem($gun);

// досылаем патрон
$gun->loadBreechblock(true);
// снимаем с предохранителя
$gun->setSafety(false);
// нацеливаем на ногу
$gun->setPointer($shotPoint);

// стреляем пока не попадем в ногу
$wounded = false;
while ( $wounded === false ) {
// проверяем остались ли патроны
if ( $gun->magazine->countLoaded() > 0 ) {
if ( $shotResult = $gun->pullTrigger(1) ) {
// если выстрел удался, проверям попали или нет
$wounded = $foot->checkWounded();
} else {
// выстрел не произошел
$message = 'Осечка';
break;
}
} else {
// кончились патроны
$message = 'В пистолете закончились патроны';
break;
}
}

// выводим результат
if ( $wounded ) {
echo 'Нога поражена, осталось патронов '.$gun->magazine->countLoaded();
} else {
echo 'Нога не поражена ибо '.$message;
}

exit;
?>

АгаУгу 7 окт 2016 в 11:52

Ярила • На сайте 10 лет

Цитата (Salagin @ 7.10.2016 - 08:20)

АгаУгу

Цитата

А знал бы Perl, не заморачивался бы. Просто пошел бы

на cpan.org, нашел модуль

Цитата

и быстро отыскал нужную принцессу в замке.

Есть две категории перловщиков, ИМХО: 1. кто для любой задачи подбирает модуль 2. Кто пишет все сам.

Я вот за все время умудрился только ImageMagick активно попользовать.

Вообще Perl идеально заточен для быстрого поиска принцесс даже в сотнях тысяч темных комнат и их быстрого вывода на свет божий. Причем делается все это легко и непринужденно.

NominaSuntOdiosa 7 окт 2016 в 12:08

Балагур • На сайте 17 лет

Цитата (Criatiff @ 6.10.2016 - 13:23)

Про LISP взоржал!

ПыСы
Сам на нём всяки бяки для Автокада пишу периодически :)

Код

(if (< 1 (length xreflist))
(setq xreflist
(mapcar
(function vlax-ename->vla-object)
(mapcar
(function (lambda (b) (cdr (assoc -1 b))))
(vl-remove-if-not
(function
(lambda (a)
(assoc 331 a)
);_ end of lambda
);_ end of function
(mapcar (function entget) (mapcar (function vlax-vla-object->ename) xreflist))
);_ end of vl-remove-if-not
);_ end of mapcar
);_ end of mapcar
);_ end of setq
);_ end of if

Кусок кода из ЛИСПа для защиты файла?

worldcomplic 7 окт 2016 в 12:52

Балагур • На сайте 9 лет

У вас есть emacs. M-x save-princess. Принцесса спасена!

БубиЧервь 7 окт 2016 в 13:06

Хохмач • На сайте 12 лет

Цитата (worldcomplic @ 7.10.2016 - 12:52)

У вас есть emacs. M-x save-princess. Принцесса спасена!

Остается только выйти из emacs, блять как это сделать ааааааа

Spocoyniy 7 окт 2016 в 15:16

Ярила • На сайте 11 лет

В Basic помню что то делали.... прикольно получалось, у меня даже машинка ехала =)

NaughtyFreak 7 окт 2016 в 17:34

Приколист • На сайте 15 лет

...пойду курну чутка и запилю на С

Понравился пост? Ещё больше интересного в ЯП-Телеграм и ЯП-Max!

Только зарегистрированные и авторизованные пользователи могут оставлять комментарии. Авторизуйтесь, пожалуйста, или зарегистрируйтесь, если не зарегистрированы.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)	Просмотры темы: 50 798
0 Пользователей: