суббота, 10 ноября 2018 г.

Бесконечное лето

https://ru.wikipedia.org/wiki/Бесконечное_лето
Шикарно, особенно для уровня российских разработчиков) Новый жанр компьютерных игрушек - визуальный роман называется)

музыка отдельно: https://music.yandex.ru/users/kish4ever/playlists/1086?lang=hy

цензуру убрать:
https://steamcommunity.com/sharedfiles/filedetails/?id=604593688
или посмотреть картинки отдельно:
https://cloud.mail.ru/public/ABSS/YrF9wTfJS

схема решений: https://vk.com/doc-62816733_437663264

Вокалоид

имитация голоса поющего человека на основе заданной мелодии и текста.
http://www.vocaloid.com/en/
https://ru.wikipedia.org/wiki/Vocaloid

А еще можно скрестить эту технологию с караоке и just dance 4)

Собственно есть даже виртуальная певица Мику Хатсуне - голос программы вокалоид. У нее проработан образ и она даже дает концерты:
https://www.youtube.com/watch?v=YSyWtESoeOc

The Witcher 3 Wild Hunt Concert Video Game Show

понедельник, 1 октября 2018 г.

Сэр Троглодит

Сэр Троглодит
23 дек. 2016 г. на английском языке вышла первая серия героев 3! Затем она была дополнительно залита с переводом на русский язык.
Всего 38 видео за полтора года. Вначале серии выходили редко, потом видео стали появляться раз в неделю. И вот наконец, преодолена планка в 50.000 подписчиков, что говорит о том, что канал Сэра Троглодита - самый популярный в мире по героям меча и магии 3! "Всем настойки на подземной жабе!"
(Для сравнения - у крупнейшего англоязычного геройщика TheKnownWorld всего 19к подписчиков.)

сортировка по-японски pascal

http://acm.timus.ru/problem.aspx?space=1&num=1546&locale=ru
http://acm.timus.ru/Supplement/BlackBox/BlackBox.aspx
http://acm.timus.ru/submit.aspx?space=1&num=1546

решение
сортировка по-японски pascal

  • function IsLess(const pa, pb: PChar): Boolean;
  • const D = ['0'..'9']; D0 = D+[#0];
  • var
  •  a, b, ta, tb, za, zb: PChar;
  • begin
  •  a:=pa; b:=pb;
  •  while (a^<>#0) and (b^<>#0) do begin
  •    while not (a^ in D0) and not (b^ in D0) and (a^=b^) do begin
  •      Inc(a); Inc(b);
  •    end;
  •    if (a^ in D) and (b^ in D) then begin
  •      za:=a; while a^='0' do Inc(a); ta:=a; while a^ in D do Inc(a);
  •      zb:=b; while b^='0' do Inc(b); tb:=b; while b^ in D do Inc(b);
  •      if a-ta<>b-tb then begin
  •        IsLess:=a-ta<b-tb; Exit;
  •      end else begin
  •        a:=ta; b:=tb;
  •        while (a^ in D) and (b^ in D) and (a^=b^) do begin
  •          Inc(a); Inc(b);
  •        end;
  •        if a^ in D then Break;
  •        if a-za<>b-zb then begin
  •          IsLess:=a-za<b-zb; Exit;
  •        end;
  •      end;
  •    end else Break;
  •  end;
  •  IsLess:=a^<b^;
  • end;