Иисус отверг Тему [entries|archive|friends|userinfo]
Шансонье Дима Даннер

[ website | Полин Квітне ]
[ userinfo | ljr userinfo ]
[ archive | journal archive ]

на верность республике и демократии II [Feb. 1st, 2021|10:03 pm]
Про Старую Республику Звездных Войн я писал несколько лет назад; она, согласно додиснеевскому (ныне отмененному) канону, росла и эволюционировала в течении то ли двух, то ли двухсот тысяч лет, а с появлением Палпатина вступила, вполне по Марксу, в фазу абсолютного государства. Одномоментное создание Новой Республики, хоть после шестой, хоть после девятой серии, уже не может быть возвратом к прошлому. Старые Гильдии физически уничтожены, планеты экономически истощены и деморализованы. В этом смысле странно выглядит появление "флота добровольцев" в конце девятой серии, что было недостижимой мечтой еще сорок лет назад, при Эндоре. Но допустим. Так или иначе, после войны сохранение республиканской армии - вопрос решенный, не только по внешнеполитическим (раскол Галактики не преодолевается одной битвой, это всегда было очевидно всем), но и по внутриполитическим причинам, то есть по соображениям справедливости (соотношения риска и бенефиций) и равновесия сил.

( Эта армия будет немногочисленной и экономически непривилегированной )
Link11 comments|Leave a comment

Collapse OS [May. 12th, 2020|11:09 pm]
[Tags|, ]

Дурацкий медиавирус раздули из сабжа. На самом деле - проект модульной self-hosted микро-ОС для слабого 8битного железа (законченная рабочая версия - для Z80, идут попытки добиться кросс-платформенности). Требования к памяти для ассемблера сейчас около 16К.

Собрал бинарник для Спектрума, пока просто работает, без особых изысков (на видео hello world на встроенном бейсике и ассемблере).

Надеюсь все же допилить поддержку ленты для полной самосборки на коробочном спеке 48К.
Link3 comments|Leave a comment

на верность республике и демократии [Nov. 25th, 2019|10:58 pm]
Старый текст 2015 года о политике Star Wars, который переношу из фб сюда в основном с целью заиндексироваться гуглом.

( Все знают и время от времени говорят, что  )
Link2 comments|Leave a comment

о чем надо помнить прежде чем писать фигню всякую про ИоТ [Jun. 1st, 2018|01:44 am]
Кофеварка, Холодильник, Главный пульт

Кофеварка: Чувак, молоко там осталось еще?
Холодильник (сканит содержимое): Не-а, фонарь. Че, заказать, что ли?
Кофеварка: Ага, заказывай.
Главный пульт: Э-э, народ, хозяева уехали, так что пока сбейтесь.
Холодильник: А, ну ок.
Кофеварка: Надолго?
Главный пульт: Завтра перезвоню спрошу.
Кофеварка: Оки-чмоки.

(занавес)
LinkLeave a comment

ну, ззаеец [Dec. 4th, 2017|07:39 pm]
[Tags|]

Сегодняшний дудл по поводу 50летия трудовой деятельности папы Лого сделал мини-холивар. "Оптимальное" по мнению гугла решение к последнему уровню состоит из (спойлер) четырех зацикленных команд, в результате чего несчастный заец бьется головой об стены и описывает неудобоуподобляемо сложноподчиненную траекторию, но морковку свою высобирывает, получив ачивку за "самое короткое решение".

В комментах народ разделился на "я надеюсь, что мои дети так кодить не будут НИКОГДА" и "но ведь нужно стремиться к самому короткому коду!". Ну я понимаю, бывает оптимизация по памяти, по скорости, по читабельности, по головной боли разработчика в конце концов. "К самому короткому коду"! Демомейкеры понабежали, такое впечатление, 1К интро типа.

Короче, кто здесь сошел с ума?

Ну и также прелестный повод вспомнить статью Шерри Теркл и юбиляра, начинающуюся словами:

"The concerns that fuel the discussion of women and computers are best served by talking about more than women and more than computers. (...) Here we address sources of exclusion determined not by rules that keep women out, but by ways of thinking that make them reluctant to join in."
Link13 comments|Leave a comment

cut here [Oct. 2nd, 2017|02:41 pm]
( Read more... )
LinkLeave a comment

сидор сидорович сидоров-сидорини [May. 3rd, 2017|03:01 am]
[Tags|, ]

Мне кажется, или на Спеке практически не было уан-лайнеров (типа удостоившегося отдельной книги коммодоровского лабиринта)? Вспоминается только DRAW-спирограф имени zx-revue, который уан-лайнером не был, но мог бы быть запросто.

А вот на недавнем Мультиматографе незамеченным (10е место в конкурсе 256b intro) прошел второй известный мне спекки-уан-лайнер, основанный догадайтесь на чем (пятнадцать секунд радости фирма гарантирует). Когда доигрывает, печатает свой листинг.

Понравился оттуда же и sidor - 64байтный процедурный бипер-синтезатор.
Link6 comments|Leave a comment

бывает, что не бывает [Nov. 30th, 2016|09:41 pm]
[Tags|, ]

Инопланетяшка в Оквони говорит "ло ки ва", что означает "бывает, что материнского объекта не существует". Сентябрьский апдейт 4.2 крашится на восьмой йоське, на десятой не крашится (привет гордым владельцам третьего айпада, была игрулина и нет игрулины). По прохождении библиотеки лазишь-лазишь этим котом в свитере, тык-мык-чик-блюмс, а оказывается, это уже конец, просто тебе забыли об этом сказать. И вот так у них все.

( Глагольных корней в трауме три )
Link3 comments|Leave a comment

traumas, traumas, traumas [Oct. 8th, 2016|11:25 pm]
[Tags|, ]

( Место имения )
LinkLeave a comment

лирическое отступление [Oct. 3rd, 2016|01:40 am]
[Tags|, ]

Третий иероглиф: ka / ta / pa (ка-та-па) означает направление или направленность (*direction):
ка = направление к говорящему (*направленность внутрь, *inwardness)
та = отсутствие направления, неуказанность (*неподвижное, *inanimate)
па = направление от говорящего к слушающему (*направленность вовне, *outwardness)

Мой перевод отличается от авторского и это можно обосновать, но пока прошу поверить на слово.

Концепции времени и ничего похожего на нее в трауме нет, но построить ее можно, я подозреваю, несколькими способами.

Для начала еще один иероглиф ko / to / po (модальность, *modality):
ко = невозможность (*impossibility)
то = возможность (*possibility)
по = необходимость (*точность, *уверенность *specificity)

1) Корень lo - быть (иероглиф so / lo / vo, который мы рассмотрим во благовремении)

tiloki = бытие родителя
tilopi = бытие потомка

Возникает искушение интерпретировать их как причину и следствие, но пока нам достаточно

totilopi = возможность бытия потомка = "будущее"
tiloti = бытие объектов = реальность (настоящее)
Идея времени образуется через возможное и актуальное. Идея прошлого не так стройна:

tipa = исходящее (от говорящего, от нас - к слушающему, к Тебе)
katipa = направленность к нам(исходящего) = возвращение
kokatipa = невозможность(возвращения) = "невозвратимость" = прошлое

2) Возможно и субъективное восприятие времени (между прочим, именно оно подразумевается в авторской грамматике глагольных времен):

Корень xi - психика, психическая форма (иероглиф xi / di / bi, который нам, может быть, когда-нибудь понадобится)

tika = входящее, приходящее (мы помним, что ka направляет к говорящему)
xitika = психическое(входящего), "представление", "память"
Идея прошлого как находящегося в представлении говорящего; между прочим, такое представление сущностно различается с "фантазией" или логически выведенной концепцией из-за присутствия идеи "вхождения".

xitipa = психическое(исходящего) = намерение

Кстати,
poxitika = знание,
poxitipa = обязанность (необходимое намерение)

Таким образом, у нас есть не "прошлое" и "будущее", но "память" и "намерение". Эстетически я предпочитаю совмещать эти два способа, различая totilopi и xitipa как две дополняющие друг друга концепции будущего, а для прошлого пользуясь xitika.

И, возвращаясь к причине и следствию, банальное наблюдение (что значит логическая структура языка!)

kopo totilopi potilopi
Link14 comments|Leave a comment

травматология [Sep. 30th, 2016|11:04 pm]
[Tags|, ]

Трауме (Traumae) - это искусственный некомпьютерный язык имени Девина Лу Линвеги, автора Oquonie и почившего в бозе Paradise. Язык состоит из двадцати семи корней (автор на каком-то этапе назвал их "девятью буквами в трех капитализациях"), комбинируемых для выражения различных идей. Самое интересное - даже не спартанская лексика, а то, что язык обладает только элементарнейшими грамматическими категориями, а как таковая грамматика (точнее, грамматики) на нем "реализуется" точно так же, как и словарь - комбинированием исходных лексем, как кубиков. Если угодно, это тот самый "китайский", который должна понимать китайская комната, поскольку сам китайский на эту роль не подходит. Исходно сам автор сосредоточил усилия сначала на воспроизведении английской грамматики, а потом на обогащении словаря, но намного интереснее не переводить "с английского на трауме" в стиле "мгимо финишд", а исследовать язык в самом себе, как если бы он был естественным (а уже потом, если захочется, заново формализировать грамматику и строить хоть бы ту же самую "китайскую комнату"). На наших уроках этим мы и займемся, воспринимая автора не как творца, а тоже как исследователя, поэтому и соглашаться с ним будем не во всем (а только, надеюсь, в главном). Звездочкой я обозначаю авторские примеры, "реализации" и комментарии, а свои собственные специально не выделяю.

Текст на трауме делится на предложения, разделяемые точками. Каждое предложение выражает единую идею, а отдельные слова, составленные из иероглифов-лексем, углубляют эту идею. Насколько я понимаю, предложение на трауме не имеет формализированного синтаксиса (если не считать заимствований из английского или других языков) и мы попытаемся вывести его логически. Морфология слов определяется одним-единственным отношением корней, а именно функциональной вложенностью (и здесь впервые вылезают уши "компьютерного" и вообще аналитического происхождения языка). Функциональная вложенность означает, что корень, присоединяемый к слову спереди, модифицирует/модулирует значение всего слова, следующего за ним. Например,

*loka входить = lo(ka) = быть(направленность внутрь),

корень lo показывает, что речь идет о сущности, характеризуемой словом, заключенным в скобки.

По сути дела, этим исчерпывается грамматическое "ядро" языка (раз уж мы перешли на такую терминологию).

Еще одно необязательное правило касается т.н. adultspeak'а ("взрослой речи", то есть речи носителей языка), когда в двух иероглифах, идущих подряд в одном слове, может выбрасываться повторяющийся согласный или гласный звук (*вместо laka (я) можно написать и сказать lak). Со вторым правилом "эдалтспика", когда гласные и согласные "для красоты" переставляются (*вместо xoka (привет) можно написать и сказать xoak) никак нельзя согласиться, поскольку при этом теряется информация о корнях (xoak = сокращенное по первому правилу xoxaka, какое-то совершенно другое слово). Мы будем пользоваться эдалтспиком только если захотим заняться художественным творчеством, к тому же при слоговом письме эти два произношения все равно не различаются.

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

Первый иероглиф: ki / ti / pi (ки-ти-пи) означает отношение наследования (*traversing) в онтологии ООП (вторые "компьютерные" уши):
ки = материнский объект (*parent)
ти = экземпляр/объект (*instance), напр. tiloka = ti(loka) = входящий (существительное)
пи = дочерний объект (*children)

При этом все три корня могут употребляться иногда как обозначение отношений, а иногда - как соответствующих объектов. Между прочим, в покойном Paradise содержимое любого объекта понималось как совокупность его дочерних объектов, так что это еще и отношение "содержит"/"содержится".

Второй иероглиф: sa / la / va (са-ла-ва) означает числительные:
са = множественность (*multiplicity)
ла = единичность (*uniqueness)
ва = "ничтожность" (нулевое значение, *noneness)

Домашнее задание: что такое pilatilapisati? Что такое pilatilakitila?
Link16 comments|Leave a comment

одна голова хорошо, а две некрасиво [Jan. 24th, 2016|06:31 pm]
[Tags|, ]

Прочитал пиратку Dysfunctional Systems Ep.1 Learning To Manage Chaos, первый и, увы, единственный эпизод visual novel-сериала от Dischan Media, недавно, в свою очередь, громогласно севших в лужу из-за бездарного менеджмента, точнее, отсутствия такового (как вы яхту назовете, так она и поплывет). Притягательность визуальных новелл для западного разработчика объясняется не только обманчивой легкостью их разработки, но и обманчивой ясностью "недостатков" классики жанра (в предыдущих постах я как раз и пытался реабилитировать "японскую интерактивность"), исправить которые, казалось бы, так легко - давайте дадим игроку больше свободы (а не как в Eve Burst Error), давайте сделаем его выбор по-настоящему судьбоносным (а не как в Kana Little Sister), давайте поставим задачу нахождения "оптимальной концовки" (а не как в дейтинг-симах)... а в результате и в десятых годах двадцать первого века, несмотря на Digital: A Love Story, "качественная западная визуальная новелла" по-прежнему считается непокоренной вершиной.

Dysfunctional Systems пошла несколько ( другим путем )
LinkLeave a comment

не с кем поделиться [Jan. 11th, 2016|08:51 pm]
[Tags|]

Прошел майнкрафт майнклаймер(л), семидневный рогалик за март 2015 года. У кого стоит питон и пигейм (или кому не лень поставить по инструкциям), советую.
Link2 comments|Leave a comment

2015 [Dec. 29th, 2015|01:06 am]
[Tags|]

Человек года: A.
Настроение года: это школа Соломона Кляра, школа бальных танцев, вам говорят
Политик года: волонтеры по скверу имени Юра
Ученый года: Екатерина Шульман
Поэт года: Саша Скул
Интерес года: движение четвертого мая
Музыка года: Euzen, Heroes del Silencio, Black Nail Cabaret
Фильмы года: "Облака Зильс-Марии",
"Головоломка",
"Дни затмения",
"Добро пожаловать ко мне".
Книги года: Умберто Эко, "Пражское кладбище",
Олаф Стэплдон, "Создатель звезд",
Джордж Оруэлл, "1984",
С.Т.Джоши, "Лавкрафт. Жизнь",
Geir Lippestad, "The Defender".
Путешествие года: "готель-резорт"
Знакомство года: И.
Разочарование года: спектрум-конкурсы
Концерт года: DepecheParty@Luft/Underground
Событие года: пес Рыжик
Кабак года: "Паб 47"
Напиток года: отвар травяной
Мечта на следующий год: легкая весна
LinkLeave a comment

Shoggoth Halls [Sep. 6th, 2015|10:31 pm]
[Tags|, ]
[Current Music |комооту, комоту-ууууууууууууу!!!!!]



for ZX Spectrum 16/48K
download (VK, .tap), UPD: googledrive
эксклюзивное превью
Link7 comments|Leave a comment

PROTOPANDORA.BAS [Aug. 15th, 2015|02:19 pm]
Check 13C78F7D
Auto 8224

# (Прототип предназначен для интерпретатора BasinC 1.69. Переключитесь на режим полной скорости клавишей F1, иначе устанете ждать)
# Клавиши: WASD, пробел - ждать, 023 - изменить белую клетку, T - взять, R - бросить.
# (для перехода на другой уровень на запрос random? нажмите y)

# Run-time Variables

Var c: Num = 1
Var r: NumArray(4, 4, 4) = 0, 3, 3, 3, 2, 2, 2, 2, 3, 3, 3, 3, 1, 1, 1, 1, 0, 3, 3, 3, 2, 2, 2, 2, 3, 3, 3, 3, 1, 1, 1, 1, 0, 3, 3, 3, 2, 2, 2, 2, 3, 3, 3, 3, 1, 1, 1, 1, 0, 3, 3, 3, 2, 2, 2, 2, 3, 3, 3, 3, 1, 1, 1, 1
Var s: NumArray(22, 32) = 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
Var a: NumFOR = 23, 22, 1, 9030, 8
Var b: NumFOR = 5, 4, 1, 9020, 3
Var p$: Str = "00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000"
Var a$: Str = "00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000"

# End Run-time Variables

1 DEF FN i(p,q)=(p-1)*32+q
2 REM final prototype to compile
10 GO SUB 9000
15 GO SUB 8000: LET p$=a$: LET p=11: LET q=17: LET tak=0: LET mov=0: LET en=32: DIM s(22,32): LET s(11,16)=85: REM init
20 GO SUB 2000: PRINT AT p-1,q-1; PAPER 8;"\@": PRINT #1;AT 0,0;en,mov: GO SUB 7000: LET en=en-1: LET mov=mov+1
30 FOR a=1 TO 22: FOR b=1 TO 32: LET c=FN i(a,b): LET d=s(a,b): IF d<>0 AND d<>85 AND d<>170 AND d<>255 THEN GO TO 90
40 LET d=0: IF b<>1 THEN IF p$(c-1)<>"6" THEN LET d=d+r(1,VAL p$(c)+1,VAL p$(c-1)+1)*64
50 IF b<>32 THEN IF p$(c+1)<>"6" THEN LET d=d+r(2,VAL p$(c)+1,VAL p$(c+1)+1)*16
60 IF a<>1 THEN IF p$(c-32)<>"6" THEN LET d=d+r(3,VAL p$(c)+1,VAL p$(c-32)+1)*4
70 IF a<>22 THEN IF p$(c+32)<>"6" THEN LET d=d+r(4,VAL p$(c)+1,VAL p$(c+32)+1)
80 PRINT #1;AT 1,0;c,: IF d<>0 THEN LET s(a,b)=d
90 NEXT b: NEXT a
100 FOR a=1 TO 22: FOR b=1 TO 32: LET c=FN i(a,b): PRINT #1;AT 1,0;c,: LET d=s(a,b): IF d=0 THEN LET p$(c)="0": GO TO 200
110 DIM a(4): LET a(1)=INT (d/64): LET a(2)=INT ((d-a(1)*64)/16): LET a(3)=INT ((d-a(1)*64-a(2)*16)/4): LET a(4)=d-a(1)*64-a(2)*16-a(3)*4
120 LET c$=" ": FOR e=1 TO 4: LET c$(a(e)+1)=STR$ (a(e)): NEXT e
130 IF c$="01 " OR c$=" 1 " THEN LET p$(c)="1": LET s(a,b)=85: GO TO 200
140 IF c$="0 2 " OR c$=" 2 " THEN LET p$(c)="2": LET s(a,b)=170: GO TO 200
150 IF c$="0 3" OR c$=" 3" THEN LET p$(c)="3": LET s(a,b)=255: GO TO 200
160 LET p$(c)="6"
200 NEXT b: NEXT a
205 LET c=FN i(p,q)
210 IF p$(c)="1" THEN GO TO 1100: REM game over
220 IF p$(c)="2" THEN LET en=en-1: GO TO 20
230 IF p$(c)="3" THEN LET en=en+2: GO TO 20
240 IF p$(c)="0" THEN GO TO 20
250 GO SUB 1000
260 LET c$=" ": FOR a=1 TO 4: LET c$(a(a)+1)=STR$ (a(a)): NEXT a
270 IF c$(2)="1" THEN GO TO 1100
280 IF c$(3)="2" THEN LET en=en-1
290 IF c$(4)="3" THEN LET en=en+2
999 GO TO 20
1000 LET c=s(p,q): DIM a(4): LET a(1)=INT (c/64): LET a(2)=INT ((c-a(1)*64)/16): LET a(3)=INT ((c-a(1)*64-a(2)*16)/4): LET a(4)=c-a(1)*64-a(2)*16-a(3)*4: RETURN
1100 GO SUB 2000: PRINT AT p-1,q-1; PAPER 8;"#": PRINT #1;AT 0,0;"GAME OVER": PAUSE 0: GO TO 15
2000 REM \#245\#1720,0;p$:\#254
2010 CLS : FOR a=1 TO 704: PRINT PAPER VAL p$(a)+1; INK 7;p$(a);: NEXT a: RETURN
7000 LET k$="": LET c$=p$(FN i(p,q)): IF c$<>"6" AND c$<>"0" AND tak=0 THEN PRINT #1;AT 1,0;"T ": LET k$="t": GO TO 7200
7010 IF c$="0" AND tak<>0 THEN PRINT #1;AT 1,0;"R ": LET k$="r": GO TO 7200
7020 IF c$<>"6" THEN PRINT #1;AT 1,0;" ": GO TO 7200
7025 GO SUB 1000
7040 LET c$=" ": FOR a=1 TO 4: LET c$(a(a)+1)=STR$ (a(a)): NEXT a: PRINT #1;AT 1,0;c$: LET k$="s"
7200 PAUSE 0
7210 IF INKEY$="t" AND k$="t" THEN LET tak=VAL p$(FN i(p,q)): LET p$(FN i(p,q))="0": LET s(p,q)=0: LET en=en-1: RETURN
7220 IF INKEY$="r" AND k$="r" THEN LET p$(FN i(p,q))=STR$ (tak): LET k$=STR$ (tak): GO SUB 7500: LET tak=0: RETURN
7230 IF INKEY$="0" AND k$="s" THEN LET k$="0": GO TO 7300
7240 IF INKEY$="1" AND k$="s" THEN LET k$="1": GO TO 7300
7250 IF INKEY$="2" AND k$="s" THEN LET k$="2": GO TO 7300
7260 IF INKEY$="3" AND k$="s" THEN LET k$="3": GO TO 7300
7270 GO TO 7400
7300 FOR a=1 TO 4: IF c$(a)=k$ THEN LET p$(FN i(p,q))=k$: GO SUB 7500:
7310 NEXT a: RETURN
7400 IF INKEY$="w" AND p<>1 THEN LET p=p-1: RETURN
7410 IF INKEY$="s" AND p<>22 THEN LET p=p+1: RETURN
7420 IF INKEY$="a" AND q<>1 THEN LET q=q-1: RETURN
7430 IF INKEY$="d" AND q<>32 THEN LET q=q+1: RETURN
7440 IF INKEY$=" " THEN LET en=en-2: RETURN
7450 GO TO 7200
7500 IF k$="0" THEN LET s(p,q)=0: RETURN
7510 IF k$="1" THEN LET s(p,q)=85: RETURN
7520 IF k$="2" THEN LET s(p,q)=170: RETURN
7530 IF k$="3" THEN LET s(p,q)=255: RETURN
7540 RETURN
8000 PRINT AT 0,0;"RANDOM?": PAUSE 0: IF INKEY$<>"y" THEN RETURN
8010 RANDOMIZE : FOR a=1 TO 4: FOR b=1 TO 4: FOR c=1 TO 4: LET r(a,b,c)=INT (RND*4): NEXT c: NEXT b: NEXT a: LET r(1,1,1)=0: LET r(2,1,1)=0: LET r(3,1,1)=0: LET r(4,1,1)=0: RETURN
9000 DIM r(4,4,4): REM rule-lrud,cell,neighbour
9010 FOR a=1 TO 4: LET r(1,2,a)=2: NEXT a: FOR a=1 TO 4: LET r(1,3,a)=3: NEXT a: FOR a=1 TO 4: LET r(1,4,a)=1: NEXT a: FOR a=2 TO 4: LET r(1,1,a)=3: NEXT a
9020 FOR a=1 TO 4: FOR b=1 TO 4: LET c=r(1,a,b): LET r(2,a,b)=c: LET r(3,a,b)=c: LET r(4,a,b)=c: NEXT b: NEXT a
9030 DIM s(22,32): LET a$="": FOR a=1 TO 32: LET a$=a$+"0": NEXT a: LET p$="": FOR a=1 TO 22: LET p$=p$+a$: NEXT a: LET a$=p$: LET a$(FN i(11,16))="1"
9040 RETURN
Link10 comments|Leave a comment

2014 [Jan. 1st, 2015|06:18 pm]
[Tags|]

Человек года: Л.
Настроение года: ужас=ужас=ужас
Политик года: Турчинов
Ученый года: Макс Тегмарк
Поэт года: Лена Войнаровская
Интерес года: управление социоэкологическими системами
Музыка года: Evil's Toy, The Kilimanjaro Darkjazz Ensemble
Фильмы года: "Голгофа",
"Хроніка УПА 1942-1954",
"Теорема Зеро",
"Она".
Книги года: "Антологія сучасної аналітичної філософії або Жук залишає коробку",
Мамардашвили-Пятигорский "Символ и сознание",
Maeve Cooke, "Re-presenting the Good Society",
Горбачев "Перестройка и новое мышление".
Путешествие года: разве что в себя
Знакомство года: волонтеры-зоозащитники
Разочарование года: ЛКП "Лев" и около него
Концерт года: тот, на котором не был
Событие года: повышение
Кабак года: "Чинзано"
Напиток года: чай черный (из бэк)
Мечта на следующий год: побольше покоя
Link3 comments|Leave a comment

[Dec. 31st, 2013|12:37 pm]
[Tags|]

Человек года: [info]unamoono@lj
Настроение года: гармония с природой
Политик года: Азаров
Ученый года: Мэри Дуглас
Поэт года: Жозе-Мариа де Эредиа
Интерес года: метафизика осуждения
Музыка года: Башня Rowan, Серебряная свадьба
Фильмы года: "Отверженные",
"Воображаемая жизнь ангелов",
"Бразилия",
"Ку!КинДзаДза".
Книги года: Монфорт и др. "10 PRINT CHR$(205.5+RND(1)); : GOTO 10",
Токвиль, "Давній порядок і Революція",
Юрий Мамлеев, "Шатуны",
Габриэль Витткоп "Некрофил",
Владимир Набоков "Ада".
Путешествие года: Сколе
Знакомство года: Т.Т. :)
Разочарование года: Майдан
Концерт года: The Snow@Макоча
Событие года: грибы@Сколе
Кабак года: Тыква ака Гарбуз
Напиток года: чай каркаде
Мечта на следующий год: невер майнд
Link3 comments|Leave a comment

ансьен режим [Sep. 15th, 2013|03:13 pm]
[Tags|]

Куплено на форуме (украинско-французское ретрО):

Декарт, "Метафізичні розмисли" (К.: Юніверс) - о сомнении в реальности и о процессе защиты диссертаций в старой Сорбонне

Ж.-М. де Эредиа, "Трофеї" (там же) - неоклассические сонеты, приводимые любимейшим Парандовским как пример тридцатилетней работы над словом, возвращений, переделываний, исправлений, шлифовок итд. Это единственный поэтический сборник автора. Перевод Дмитра Паламарчука, очень эмоциональный, кстати

Токвиль, "Давній порядок і Революція" (там же) - о преемственности институтов в истории; насколько я понимаю, довольно известная работа

Как и в прошлые разы, все издано в 2000-2001 годах.

Видено и не куплено:

Шумпетер, "Десять великих экономистов от Маркса до Кейнса" - Вальрас, Парето, Маршалл и др., сборник эссе и статей. Издательство института Гайдара ;)

Мічіо Кайку "Фізика майбутнього" - гран-при конкурса Лучшая книга форума, изд. Літопис при участии моих работодателей ЛНУ им. Франка. Довольно беззубый, если честно, прогноз развития технологий и общества до 2100 года - примерно настолько же беззубый, каким мог бы быть прогноз на 2013, изданный в 1913м или даже в 1963м. Предвидятся: искусственный интеллект, нанотехнологии, генная инженерия, "индивидуализированное массовое производство", при этом укрепление западной либеральной модели капитализма, отсутствие сколько-нибудь серьезных социальных сдвигов, изменения структуры рынка труда и прочее. Характерное восхищение Сингапуром.
Скушно, девушки. Читайте Лема.

По презентациям не ходил, так что никого и не встретил.
Link4 comments|Leave a comment

Giving an Account of Oneself [Aug. 29th, 2013|05:47 pm]
[Current Mood | confused]

Сабж, Джудит Батлер. Самый метареалистический текст из прочитанных до сих пор.

( Read more... )
Цитаты:

To know the limits of acknowledgement is to know even this fact in a limited way; as a result, it is to experience the very limits of knowing. (p. 42)

Знать об ограниченности представлений - значит обладать ограниченными знаниями даже о самом этом факте; в результате это значит переживать ограниченность самого знания.

We are in our skins, given over, in each other's hands, at each other's mercy. (101)

Мы обнажены и отданы в руки друг друга, на милость друг друга.

...ethics requires us to risk ourselves precisely... when our willingness to become undone in relation to other constitutes our chance of becoming human. (136)

Этика требует от нас рисковать собой именно тогда, когда наша готовность раствориться в отношениях с другим является нашей возможностью стать людьми.
LinkLeave a comment

navigation
[ viewing | most recent entries ]
[ go | earlier ]