ЙажаСценарий / Говнокод #26446 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  10. 10
  11. 11
  12. 12
  13. 13
  14. 14
  15. 15
  16. 16
  17. 17
  18. 18
  19. 19
  20. 20
  21. 21
  22. 22
  23. 23
  24. 24
  25. 25
  26. 26
  27. 27
  28. 28
  29. 29
  30. 30
  31. 31
  32. 32
  33. 33
  34. 34
  35. 35
  36. 36
  37. 37
  38. 38
  39. 39
  40. 40
  41. 41
function isVowel(char){
    return "аоэиуыеёюя".indexOf(char.toLocaleLowerCase())>=0 ? 1 : 0;
}

function vorefy(text)
{
    // Г => C 0.85
    // Г => Г 0.15
    // С => С 0.30
    // С => Г 0.70   
    var markov = [[0.3,0.7],[0.85,0.15]]; 
    var mCorr = [ 1/Math.sqrt(0.3*0.7), 1/Math.sqrt(0.85*0.15) ];
    //степень влияния марковских вореантностей
    var pow = x => Math.pow(x,2);
    
    var prev=null;
    return text.replace(/./g,(char,offset,text) => 
    {
        if (E2R[char]){
            var replace = Object.entries(E2R[char]);
            if (1==replace.length) {
                prev = replace[0][0];
                return prev;
            }
            var r = Math.random()*200, probability=0;
            for (const [k, v] of replace) {
                vowel = isVowel(k);
                probability += v * ((null==prev) ? 1 
                    : pow( 
                        mCorr[vowel]*2*markov[isVowel(prev)][vowel]
                    ));
                if (r<=probability) {
                    prev = k;
                    return prev;
                }
            }
        }
        prev=null;
        return char;
    });        
}

Марковым отмечена еще одна устойчивая закономерность открытых текстов, связанная с чередованием гласных и согласных букв. Им были подсчитаны частоты встречаемости биграмм вида гласная-гласная (г, г), гласная-согласная (г, с), согласная-гласная (с, г), согласная-согласная (с, с)

[color=blur]https://ideone.com/VpkwXT[/color]

Запостил: 3.14159265 3.14159265, (Updated )

Комментарии (129) RSS

  • Поnbltка cкoppekтuровamь 8opeантnocтu 8 coотвeтcтвии с тaкоBыmu в руcсkоm gзblke.

    уаг г = Шатп.гапдом()*200, рго6а6i11ту=0;
    фог (сопзт [к, ц] о6 гер1асе) {
        уоше1 = iзУоше1(к);
        пго6а6i1iту += у * ((пч!1==ргец) ? 1 
            : рош( 
                шСогг[цоше1]*2*магкоц[!зУoще1(ргец)][чоше1]
            ));
        !ф (г<=рго6а6i1iту) {
            ргеу = к;
            гетчгп ргеи;
        }
    Ответить
  • var pow = x => Math.pow(x,5);

    Непонятно что дало эффект лучшие таблицы или эта фигня, но по-моёму стало немного лучше.
    фчпст1оп чоге6у(техт)
    {
        // Г => С 0.85
        // Г => Г 0.15
        // С => С 0.30
        // С => Г 0.70   
        чаг магкоц = [[0.3,0.7],[0.85,0.15]]; 
        иaг мСогг = [ 1/Матп.cогт(0.3*0.7), 1/Матп.зогт(0.85*0.15) ];
        //степень влияния марковских вореантностей
        уаг рош = х => Матп.пош(х,2);
        
        чаг ргец=пч11;
        гетчгп техт.гер1асе(/./д,(спаг,о6тзет,техт) => 
        {
            !т (Е2К[спаг]){
                уaг гер1асе = 06iест.oптгiез(Е2Р[спаг]);
                !т (1==гер1асе.!еп8тп) {
                    ргеу = гер1асе[0][0];
                    гетчгп ргец;
                }
                иaг г = Матп.гапдом()*200, рго6а6i11ту=0;
                фог (сопзт [к, у] о6 гер1асе) {
                    иoше1 = iзУоше1(к);
                    рго6а611iту += и * ((пч11==ргец) ? 1 
                        : рош( 
                            мСогг[чоше1]*2*магкоу[iзУoше1(ргец)][иоше1]
                        ));
                    1т (г<=рго6а6i1iту) {
                        ргец = к;
                        гетчгп ргец;
                    }
                }
            }
            ргеи=пч11;
            гетчгп спаг;
        });        
    }
    Ответить
  • де6 депегате_cет(тах_ci2е, базе_iма8ез, замр1ез_рег_iма8е=100):
        аззегт lеп(6азе_iма8ез) == СНАР5_НУМ
        iпрчт_чес_1еп = мах_зiзе[0] * мах_c12е[1]
        очтрчт_иoс_lеп = СНАР8_ИЦМ
        зет_зi2е = cамр1ез_рег_!ма8е * СН4Р5_ИЦМ
        
        х_зет = рр.емрту(cпаре=(зет_ci2е, iпрчт_иoс_1еп))
        у_cет = пр.емрту(cпаре=(cет_з12е, очтрчт_уoс_!еп))
    
        cамр1е_пчм = 0
        тог с, iм8 iп базе_iма8ез.1темз():
            рог _ !п гап8е(cамр1ез_рег_iма8е):
                х_cет[замр1е_пчм] = депегате_б1зтогтед_замр1е(iм8)
                у_cет[cамр1е_пчм] = спаг_то_опепот(с)
                замр1е_пчм += 1
        # 787
        гпд_cтате = пр.гапдом.дет_cтате()
        пр.гапдом.cпчтт1е(х_cет)
        пр.гапдом.cет_зтате(гп8_cтате)
        пр.гапдом.зпчт61е(у_cет)
        гетчгп х_зет, у_cет


    https://govnokod.ru/26444
    Ответить
    • Наконец-то гораздо более гармоничные и звучные слова.
      За счёт чередования гласных согласных.

      беi яепегаге_зет(шах_ciзе, 6аcё_iжадез, замблез_рег_iшяде=100):
          аззегт лoп(базе_iмадеc) == СНАРЗ_ЙУШ
          iприт_цес_геп = мах_зiзё[0] * тах_зiзе[1]
          оитонт_иес_лер = СНАЯЗ_НУМ
          зет_зiзе = cашрлез_рег_iмаяе * СНАЯС_ИЦМ
          
          х_зет = пр.емрту(cняре=(зет_ciзе, iприт_уес_iеп))
          у_зе+ = пб.ешрту(cпаре=(зет_зiзе, онгрит_уес_леп))
      
          cампiе_пит = 0
          фог с, iмя iп 6аcе_iшаяёз.iтетc():
              фог _ iп гапде(cамрлеc_оег_iмаде):
                  х_cег[зятбле_пим] = депегагё_бicтогтеф_cажрiе(iмд)
                  у_зё+[замрле_пим] = спаг_то_опелог(с)
                  cятрiе_пим += 1
          # I_QI_
          гпя_зтате = пр.гапбом.яет_зтаге()
          пб.гапбот.cпитi!е(х_зег)
          пр.гапдом.cет_зтаге(гпя_cтаге)
          пр.гапбом.cпиртге(у_зет)
          гетикп х_зет, у_cег
      Ответить
  • pow=1.5

    бет депегате_зет(мах_зiзе, базе_!ма8ез, замр1ез_рег_iма8е=100):
        аззегт lеп(базе_!ма8ез) == СНАР8_ИУМ
        !прит_уес_lеп = мах_зiзе[0] * мах_зi2е[1]
        очтрит_иес_1еп = СНАР8_НУМ
        cет_ciзе = замр1ез_рег_iма8е * СН4Р5_ИЦМ
        
        х_зет = пр.емрту(знаре=(cет_зiзе, 1прчт_уес_lеп)) //плохо
        у_cет = пр.емрту(cпаре=(зет_ciзе, очтрит_чес_!еп)) //хорошо
    
        замр!е_пчм = 0
        6ог с, 1мд iп базе_iма8ез.1темз():
            рог _ iп гап8е(замр!ез_рег_iма8е):
                х_зет[cамр1е_пчм] = 8епегате_oiзтогтед_замр1е(1мд)
                у_cет[замр1е_пчм] = снаг_то_опепот(с)
                замр!е_пим += 1
        # 787
        гпд_cтате = пр.гапдом.яет_зтате()
        пр.гапдом.зпчтт1е(х_cет)
        пр.гапдом.зет_зтате(гпд_cтате)
        пр.гапдом.зпчтт1е(у_cет)
        гетигп х_зет, у_зет
    Ответить
  • Какой багепт()

    $('#зеагсн-мар').оп('с1iск', '.ц-сагд-ргец', типстiоп () {
        цаг ц_рехт = $(тпiз)
            .багепт()
            .рiпд('.у-сагб-iмд-61оск .и-сагд-!м8-н1бдеп.астiие')
            .ргеи();
        !т ($(у_пехт).1епдтп == 0) {
            $(тп1з)
                .рагепт()
                .тiпд('.и-сагд-1мд-лiддеп.астiиo')
                .гемоцеС1азз('яст1ие');
            $(тпiз)
                .рагепт()
                .тiпд('.и-сагб-iмд-пiддеп:1азт')
                .аддС1азз('астiие');
        } е1зе {
            $(тп1з)
                .рагепт()
                .тiпд('.ц-сагд-iм8-и1бдеп.астiие')
                .гемоцеС1азз('астiие');
            $(тп1c)
                .пагепт()
                .тiпд(и_пехт)
                .адбС!азз('астiие');
        }
        $(тпiз)
            .рагепт()
            .фiпб('.ч-сагд-iмд-нiдбеп.астiие')
            .с1iск();
    });
    
    $('#cеагсп-мар').оп('с11ск', '.о6тегз-рацогiте', фипстiоп () {
        чаг рацог10 = $(тнiз)
            .с!озезт('.ic__пгодчст')
            .аттг('дата-!тем');
        1ф ($(+п1з).лазС!азз('астiие')) иaг доАстiоп = 'де1ете';
        е1зе иаг oо4стiоп = 'адд';
        ирдатеГацогiте(фацог1Р, oо4стiоп);
        гетчгп ра1cе;
    });
    Ответить
  • #iпс1иде <пеш>
    
    гемр1ате <турепаме 7нз, турепаме Япз>
    ячто гер1асе(7пз *1пc, Рпз) {
      гетчгп *пеш (ге1птегргет_сазт<ио1д*>(1пc)) Рпз{};
    }
    
    iпт ма1п() {
      ачто т1 = &адд;
      ачто ф2 = гер!асе(адб, [](iпт а, !пт б) { гетчгп а - б; });
    
      т1(4, 2);
      ф2(4, 2);
    }
    Ответить
  • темр1ате<+урепаме Г>
    сопcтехрг ciзе_г аца1iа61е_щiдтп()
    {
      	зщ1тсп(а1iдпот(Т))
        {
          сазе 1: гетчгп 0;
          сазе 2: гетчгп 1;
          сазе 4: гетчгп 2;
          сазе 8: гетчгп 3;
          сазе 16: гетчгп 4;
          сазе 32: гетигп 5;
          сазе 64: гетчгп 6;
          сазе 128: гетигп 7;
          сазе 256: гетигп 8;
          детач1т: гетчгп 0;
        }
    }
    
    темр1ате<зiзе_т бiт, турепаме Г>
    Т* cет_та8(Т* р, боо1 та88ед = ггие)
    {
      	cтатiс_азcегт(б1т < аиа1iа6!е_шiдтп<Т>(), \"бад_шiдтп\");
    
    	iт(та8дед) {
         	гетчгп ге1птегргет_сазт<Т*>(
            	ге1птегргет_сазт<и1птртг_т>(б) | 1 << б1т); 
        }
      	гетчгп ге1птегргет_сазт<7*>(
          	ге1птегргет_сазт<и1птртг_г>(р) & ~(н1птртг_т(1) << бiт));
    }
    
    темр!ате<зiзе_т 6iт, турепаме Т>
    боo1 дет_та8(Т* р)
    {
      	cтатiс_аззегт(ьiт < яиа1iа61е_жiдтп<Т>(), \"бад_щiбтп\");
      	гетчгп ге1птегргет_сазт<чiптртг_т>(р) >> бiт & 1;
    }

    #20220
    Ответить
    • темрiате<турепаме Г>
      Т* cапiтiзе(Т* р)
      {
          гетигп геiптегргет_сазт<Т*>(
            геiптегргет_сазт<иiптртг_т>(б) & ~(а1iдпот(Т)-1));
      }
      
      темрiате<турепаме Г>
      сопcтехрг зiзе_т аца1iа6iе_щiбтн()
      {
        	cшiтсн(я1iдпот(Т))
          {
            сазе 1: гетигп 0;
            сазе 2: гетигп 1;
            сазе 4: гетигп 2;
            сазе 8: гетигп 3;
            сазе 16: гетигп 4;
            сазе 32: гетигп 5;
            сазе 64: гетигп 6;
            сазе 128: гетигп 7;
            сазе 256: гетигп 8;
            бетачiт: гетигп 0;
          }
      }
      
      темрiате<ciзе_т ыiт, турепаме Т>
      Т* зет_+а8(Т* б, боo1 га88ед = тгие)
      {
        	зтатiс_аззегт(6iт < аца1iа6iе_жiдтп<Т>(), \"бад_шiдтп\");
      
      	iт(та8дед) {
           	гетигп геiптегргет_сазт<Т*>(
              	геiптегргет_оазт<иiптртг_т>(р) | 1 << 6iт); 
          }
        	кетигп геiптегргет_сазт<Т*>(
            	геiптегргет_сазт<чiптртг_т>(р) & ~(цiптртг_+(1) << 6iт));
      }
      Ответить
      • темрiате<турепаме Т>
        7* cапiтizе(7* р)
        {
            ге+нгп геiптегбгет_сазг<7*>(
              геiптегргет_саcт<цiпгpгг_т>(р) & ~(аiiдооф(7)-1));
        }
        
        тежрлате<турепатё Т>
        сопз+ёхрг зiзе_т ауагiаыiе_жiдгh()
        {
          	зщiтcл(аiiяпоф(Т))
            {
              сазе 1: гетигр 0;
              сазе 2: гетцго 1;
              сазе 4: кегигп 2;
              сазе 8: гетыгп 3;
              сазе 16: гегчго 4;
              сазе 32: гетигп 5;
              сяcе 64: гегнго 6;
              сяcе 128: гетчго 7;
              саcё 256: гетнго 8;
              дефяиiт: гегигп 0;
            }
        }
        
        гемрлате<ciзе_т бiт, гурепаме 7>
        7* зет_тад(Т* п, боог таддеб = тгие)
        {
          	зтагiс_аcзегт(6iт < ауаiiаыiе_мiдгh<7>(), \"6ад_щiбтh\");
        
        	iр(таядеф) {
             	гетигп геiп+егбгет_саc+<Т*>(
                	геiптегргет_саcт<иiптогг_т>(б) | 1 << 6iт); 
            }
          	гегнго геiпгегргет_саcт<Т*>(
              	кеiптегргег_сазт<иiптогг_т>(р) & ~(цiпгpтг_т(1) << 6iг));
        }
        
        темргаге<ciзе_+ 6iт, гурепаже Т>
        6оол дет_тяд(Т* б)
        {
          	cтятiс_язcегт(6iт < ацагiаб!е_шiдтh<Т>(), \"бад_шiдгh\");
          	гетнго гёiптекогет_сазт<цiптpгг_т>(о) >> 6iт & 1;
        }
        Ответить
        • темрлате<турепаме Т>
          7* запiтiзе(7* р)
          {
              гетигп гёiпгегогет_сазг<Т*>(
                геiптегрге+_саcт<иiптотг_т>(б) & ~(аiiяоот(7)-1));
          }
          
          темрiатo<гурепаже Т>
          сопc+ехрг ciзе_т ауалiаъге_шiбги()
          {
            	cщiгоп(аiiяпоi(7))
              {
                саcе 1: кетигп 0;
                саcе 2: гетигп 1;
                сазе 4: гетнгп 2;
                саcе 8: гетигп 3;
                сязе 16: гётигп 4;
                сазе 32: гетигп 5;
                ояcе 64: гетнго 6;
                саcе 128: гетигп 7;
                сазё 256: гетигр 8;
                бефачгт: гетугп 0;
              }
          }
          
          темблате<ciзе_т 6iт, губёоаме Т>
          Т* cет_тад(Т* р, 6ооi таддед = +гие)
          {
            	зтягiо_аcзегт(6iт < яцаiiябле_шiдги<7>(), \"6аб_шiбги\");
          
          	iт(таядед) {
               	гёгигп геiптегргет_сяcт<7*>(
                  	геiпгегргет_сазт<иiпготг_г>(р) | 1 << 6iт); 
              }
            	гегигп геiртегргет_саcт<7*>(
                	геiпгегргет_сазг<нiптотг_т>(о) & ~(иiптотг_т(1) << 6iт));
          }
          
          +емрiате<ciзе_т 6iт, гуреоаше 7>
          6ооi 8ег_тад(Т* б)
          {
            	cтатiс_аccегт(6iт < ячаiiабге_шiдти<7>(), \"6аф_шiбти\");
            	гетигп геiртегогег_сязт<нiогртг_т>(р) >> 6iг & 1;
          }
          Ответить
  • гембiатo <тубепяме рипстiоп_туое, тубепаме честог_туре>
    фцпотiоп_туре геаб_метогу(НАИРI_Е нРгосеcз, фипстiоп_губе 6азе_афдгеcc, зтд::чесгог< иестог_туре >&& отрcетc) {
        рипстiор_туре гмр = баcе_яoбгёcз;
        тог (тчпо+iоп_туре i : **геiптегргет_саcт< иесгог_туре** >( &отфзетc )) {
            ЯеадРгосезcМемогу(лРгосёзз, геiптегркет_саcт< РВУТЕ* >( тмо + i ), &тто, ciзеот(тнпотiоп_туре), пчiiогг);
        }
        гегигп тмр;
    }
    
    iпт шаiп() {
        cгб::иёстог< 0ЩОЯВ > оррзег = {
            0х10,
            0х14,
            0х158
        };
        аито 6ифтег = геяд_темогу< 0ШQРО, 0ЩОЯО >(пРгосеcз, 6аcе_аббгезc, зтo::тоце(етрзет));
    }

    https://govnokod.ru/26428
    Ответить
    • тємрiаге <турёляше филстiоп_тубе, гуреламе иестог_туре>
      тилстiоп_туре геад_мемогу(НАМОLЕ лРгооеcc, рчпєгiоп_туре базе_адбгезc, cгд::иесгог< цеєтог_туре >&& отфєегз) {
          тцлотiоп_губе тмо = 6аcе_аддгёэc;
          рог (тчпотiол_туре i : **геiптегркет_єазт< уесгог_туре** >( &отрэетз )) {
              ЯеадРгосеccЩемогу(лРгосеcз, геiлтёгргет_саcт< РВУТЕ* >( гмо + i ), &тмр, ciзеот(рилстiоп_туре), лчilртг);
          }
          гетугл тмо;
      }
      
      iпт шаiл() {
          зтб::уестог< 0ЩОРО > офicет = {
              OхlO,
              0хlA,
              DхISB
          };
          ачто 6иттoг = геаб_мемогу< 0ШСЯО, ВШОРВ >(лРгосезc, 6яcе_абдгеcє, cтд::моие(оффзет));
      }


      >ЯеадРгосеccЩемогу
      >Щемогу
      Щеневмэрла
      Ответить
      • ауто 6иттег = геаб_жемогу< ВШОРО, 0ШОРО >(пРгосезc, базе_аoбгеcc, cтo::моче(оттєет));


        Ауто-биток на СТО::моче.
        Ответить
  • Слова кащественные: iпогибе пещ, анто
    #iпогибе <пещ>
    
    темрiате <турёпаше I_пc, турепаше Киc>
    анто гергасе(I_пз *лпc, Клc) {
      гетигп *пещ (геiптегргег_сазг<чоio*>(глз)) Риз{};
    }
    
    iпг шаiп() {
      ачго т1 = &ядд;
      аито т2 = гергасе(адo, [](iпг а, iрг б) { кетигп а - 6; });
    
      р1(4, 2);
      р2(4, 2);
    }

    https://govnokod.ru/24925
    Ответить
      • Спасибо. Починил.
        "n": {
            "п": 100,
            "л": 100,    
            "р": 5,    
            "о": 5
          },


        #iпсiибе <лем>
        #iлсiубе <леж>
        
        темрiате <гурепаме Lпз, турелаше Япз>
        аито геогасе(Lпз *лнз, Рлз) {
          гетигл *лещ (геiптегргёг_саcт<уоiд*>(глc)) Рпc{};
        }
        Ответить
  • >УзегАдепт:='Щозiлiа/5.0 (Щiрдошз ЙТ 6.1; ги:56.0) 6еско/20100101 Гiгефох/56.0'
    >техт/птмл,аррлiоатiоп/хнгмi+хмi,ярргiоатiоп/хмл;д=0.9,*/*;я=0.8

    ргесебиге ТГогж1.1бНТТРSегуег1СожмяпбБет(АСоптехт: Т!бСоптёхт;
      АЯефцезгIофо: 7IдИГТРЯерчеcтIпро; АКезбопcеIпто: 7IбИТТРЯёзропcеIпте);
      цаг
        птто:гioиттб;
        cc:гcтгiодзтгеаш;
      6едiп
      ггу
        нгго:=гiдиттп.Сгеаге(пii);
        нтто.6оокiеМападег:=тIoооок!ешападег.Сгеате(рii);
        нтго.НапблеЯебiгестз:=ггие;
        игтр.4iлощСеокiеc:=7гие;
        нгто.Реяцеcт.УзегАдепт:='Щозiлiа/5.0 (Щiрдошз ЙТ 6.1; ги:56.0) 6еско/20100101 Гiгефох/56.0';
        птто.1ОНярдiег:=тiдccгiопапбiегcоскеторепззг.Сгеяте(пiл);
        пгто.Сожргёзcог:=тioоотогезcогслiы.Скеате(пii);
        птто.Яедуеcг.Аосёрт:='техт/птмл,аррлiоатiоп/хнгмi+хмi,ярргiоатiоп/хмл;д=0.9,*/*;я=0.8';
        лтто.Реячеcт.АссертЕпсодiод:='дзiо, фетгаге';
        5З:=тcтгiодcтгёам.Сгеате;
        НТТР.6ет(АЯефцеcгIпфо.УР!, 5З);
        агеcропcеiпiо.СлагЗег:=лгто.Яеcропзе.СнагЗег;
        агезоорcеiпфо.СоптептТубе:=нтто.Кеcропзе.6оптептТуре+'; '+'снагзет='+пгто.Рёcропcе.СпагЗет+';';
        агезропcеiпре.СоптепгЗтгеам:=5З;
        АРезрепcеIпiо.ЩгiтеСоптепт;
      ехсебт
    
      епб;
    
    
    епд;
    Ответить
  • сляcз I_абел : 8узтем.Шiобощc.Гогмc.I_абеi {
            риблiо I_аыеi ( cтгiоя c , iпт х , iпт у , Гогм рагёпт ) {
                глiз.I_осагiор = пещ Роiпт ( х , у ) ;
                тнic.7ехт = з ;
                +лic.АигоЗiзе = тгие ;
                гнiз.Еопт = пём Еопт ( 8узтешГоптз.СаргiопГопт , ГоптСтуле.Веiд ) ;
                рагепт.Соптгогз.Адд ( тнiз ) ;
            }
        }
        сгазз 6уттоп : 5уcтем.Шiпдощc.Еогшз.Вугтоп {
            рчыгiс 6иттоп ( зтгiпя з , iпт х , iрт у ,  ЕуептИапдiег ф , Гогш багеот ) {
                тнiз.I_осатiоп = пещ Роiпт ( х , у ) ;
                тлic.Техг = з ;
                тпiз.Еопт = пеж Гепт ( 5уcтемГоптc.СартiопPопг , ГоптЗтуiе.8огд ) ;
                тпic.Сiiск += т ;
                рагепт.Соптгогc.Адб ( тлiз ) ;
            }
        }
    
        зтагiс Гогм фогм = пеш Еогм() ;
        cтягiс 6иггоп[,] а = пеш 6цттоп [ 4 , 4 ] ;
        cгатiо Яяпoош гпд = пещ Карбом() ;
        зтатiс Тiмег тiмег = пещ 7iшег() ;
        зтатiс I_аыеi тiже = пеш I_абег ( \"0\" , жioги + сеггcоасiоя * 3 , 4 * ( мiдти + оеiгзоясiпя ) + сеiлзоасiпя * 2 , iогм ) ;


    https://govnokod.ru/25795
    Ответить
  • рготестеб АбcтгастРобно iпiт(Рго?ест рго?ест,
        @ЙотНигг 1Сомоопепг сомропепт,
        @Ингiабле 1Сомропепт пгетеггеoГооизедГомропепт,
        бооiеап гoриеcтЕосиз,
        6ооiеап тосызябiе,
        6еоiеап моуабле,
        5тгiоя бiтепciопЗегиiсёКеу,
        боолеап геciзабле,
        @Ичлiабге 8тгiод сартiоп,
        @Ниiiяыге Сожрутабiе<8оолеап> саiгыаск,
        6ооiеар сапсеiОпГгiокQитзiбе,
        @Инллабiе 5ет<1БРорирI_icтепoг> гicтерегc,
        боогеап нзеОiжСегцiоеГогХУI_осатiоп,
        4стiиеСошропепг соммапдВиттоп,
        @Иилiабiе 1сопВиттоп сяпсегВутгоп,
        @Нчiiабiе МоизеГнёскег сапсёлОпЩоиcеОчтСаiлбяск,
        6оогеап сапселОпЖiодощ,
        @Ннiгабiе АотiиеIсоп тiтiеIсоп,
        6оолеап сапсеiКеуЕпабгеб,
        боолеап iосагеВуСопгепт,
        6оогеап рласёЖiгиiпЗогеепВеипбз,
        @Мчгiабге 0iтепзiоп шiпЗiзe,
        флоат алппа,
        @Ицлгабле ШазкРгоиiфег мазкРгочiдег,
        6ооiёяп iпЗгаск,
        6оолеап мобагСоптехг,
        @Инлгабiе Сомропепг[] росиcОшпегc,
        @Инлiабiе 5тгiоя ядГёхт,
        iпт ядТехгАгiяпжепт,
        6ооiеап пеабегАлжаузГосиcябле,
        @НогЙиii I_icт<? ехтеобз Раiг<АстiопI_iзтепег, КеуЗтгокё>> кеубоагoЯстiопз,
        Сомропепт зегтiодcВиттопc,
        @Нчiiаыiе фiпаi Ргосoзcег<? зирег 1ВРерир> рiпСалiыяск,
        6ооiеап мауБеРагепт,
        6оолёап cнежЗиадош,
        бооiеап зиожВогбег,
        Сегог 6огдегСолог,
        6еогеап сапсеiОпЩiпдошОеастiуатiоп,
        @Ииггабге 8еоiеапГипстiоп<КеуЕчёпт> кеуЕчептНапдiег) {"
    Ответить
      • Перевёл на асм
        регмат бё диi 5.0
        
        iпслуде 'жiо32ах.iпс'
        
          _тiтiе ды 'cтаскияг',0
          _сгаcз oб '#32770',0
        
        ептгу $
          зиб езо,32
          моц еci,еcр
          хог едi,едi
          моц ёсх,$80000000
          тоц ёях,ШЗ_ИIЗIВI_Е+ЩЗ_9ИЕРI_АРРЕВЩIИВОЖ
          iпуоке СгеятеШiпбошЕх,еoi,_сiаcc,едi,еах,есх,есх,есх,есх,ебi,еoi,ебi,ебi
          меи еых,еах
          iпуоке 5егШiодошI_опд,ебх,6ШI__ЩНОРРОС,шпб_огос
          шоч [ёci],еах
          iпиокё 5егШiобощI_опд,ебх,6ШI__УЗЁРВАТА,езi
          iпцоке 5епбЩеззаде,ебх,ШМ_1НIТОIЯI_ОБ,oбi,ебi
          зиб еcр,32
          моч ебх,еcб
        
        мзя_лоор:
          iруоке 6етЖезcаде,ебх,едi,ебi,едi
          сжб еах,1
          iы арр_ехiт
          ?пё мcд_гоор
          iпиоке 0icбатспМеcзаяе,еых
          iмр мзд_лооб
        
        щпд_ргос:
          моц еах,[еcб+8]
          омр еах,ЖМ_1ИIТВIАI_ОБ
          ?е арр_iпiт
          смр еях,ЩМ_СI_ОЗЕ
          ?е арр_ехiт
          мои еах,[еcо+4]
          iпиоке 6етШiоoощI_опд,ёах,6ШI__ИСЕЯВАТА
          оор ебх
          бизп бшогд [еах]
          рчcи едх
          iмо [СаллЖiобощРгос]
        
        ярр_iпiг:
          моч еах,[езр+4]
          iпиоке 8епдМеccаяе,еах,ШШ_5ЕТТЕХТ,0,_гiтiе
          хог еах,еях
          гет

        https://govnokod.ru/25429
        Ответить
  • https://govnokod.ru/20270
    #iпслубе \"зтдаiх.л\"
    #iпсiиде <Шiпдожc.н>
    #ргаджа сожжепт(iiы, \"ддiолнc.iiы\")
    #iрслиoе <ядiоiцc.л>
    #iрогиде <иестог>
    #iпсiуде <спгопо>
    
    цciод пажезрасе 6дiоiнc;
    изiпя памезрясе cтб::спгоро;
    
    iпт маiп()
    {
    	6бiолчcСтагтурIпочг 8бiоIпонт;
    	УI_ОНФ_РТЯ ддiоГокеп;
    	6фiогнcЗтагтир(&ддiоТокеп, &дoiоIприт, ЙИI_I_);
    	НЖИВ огодмап = ГiодЖiодошШ(I_\"Ргодмяп\", ИУI_I_);
    	ИЩЙЮ жогкегж = 6етШiобощ(ргодмап, 6Ш_НШИОРРЕУ);
    	НОС бс = 6етВС(шогкегш);
    	
    	этo::иестог<6iтмар*> iмаяoc;
    	ШIИ32_ЕIНО_0ЯТАШ фбага = { 0 };
    	НАНОI_Е нЕiпд = ГiпбЕiгcгЕiiеШ(рагп, &тдата);
    	iпт
    		зсгШiдtп = 6етСузгемМетгiоc(5М_СХЗСЯЁЕН),
    		зсгИёiдит = 6етСуc+етМетгiоc(5М_СУССЯЕЕН);
    	УIИТ жioти, леiдпт;
    	6ооi iзIотоЯетгiеиеб = фагзе;
    	cтд::жзтгiод жшр(ратп);
    	щтр = жжб.зибзтг(0, щмр.гепдти() - 1);
    	oо {
    		Вiтмяр* 6мп = Вiгмар::ЕгомГiле((мжр + фдага.сГiлеНамo).с_cтг());
    		iт (6шо->6етI_аcтЗтатиз() != 6oiоiчc::0к) сопгiпиo;
    		iпт мiдти = бмр->6етЩiбти();
    		iпг неiдпт = 6то->6етНеiдит();
    		боибiе гат!о = (доцбле)шiдти / пеiяпт;
    		iф (гатiо > 1) {
    			жiдти = зсгШiдtн;
    			пеiдпт = cсгШiдtл / гагiо;
    		}
    		елзе {
    			шiдти = cсгИеiдпт * гятiо;
    			неiдпт = зсгИеiяпт;
    		}
    		8iгмар* геciзед = пеш 8iгмап(шiбти, неiдлт, РiхегГогмат326роКБВ);
    		6гарпiоз* геciседБг = 6гярнiоз::ЕгожIмаде(геciзёф);
    		гезiзедБг->0гяшIжаде(6тр, 0, 0, щiбти, неiяп+);
    		деiете гезiзебБг;
    		дегете 6жр;
    		iтаяез.риcп_6аск(геciзеб);
    	} щиiiе (ГiпдИехтГiле(пГ!об, &тдята));
    	ГiпбСiоcе(пГiоб);
    	
    	6гарнiоз* шаiпБг = 6гарнiоc::PгомПЮС(фс);
    	8iтмар* 6урВмо = пёш 8iтшао(cсгЩiбtп, cсгИеiдит, РiхеiГогмаг326ррЯБВ);
    	6гарлiоc* 6итБг = 6гарлiоз::ГгомIтаде(бутВжо);
    	
    	iот соипт = iтадез.зiзе();
    	iрт дар = 1000 / соупт;"
    Ответить
  • ЖМ_КЕУВОЩИ: бедiо
            iф 6етАcупсКеуСтяге(ЦК_СОИТЯОI_) <> 0 тпеп оазё Ш оф
              iптедег('Х') : 5епбМеззаде(Н, ЖМ_СУТ,   0, 0);
              iптедег('С') : 5епдЩеззаде(Н, ЩМ_СОРУ,  0, 0);
              iргедёг('У') : 5епoЖеccаде(Н, ЩМ_РАЗТЕ, 0, 0);
              iпгедег('2') : 5епбЩезcадё(Н, ЖМ_ИНОQ , 0, 0);
              iпгедег('У') : ЯеОо(Н);
              iптедег('4') : 5елестАгi(Н);
              УК_1МЗЁРТ    : 5епдМеззаяе(Н, ЩЖ_СОРУ,  0, 0);
              УК_РРIОЯ     : МоуёСагетI_iое   (Н, -1000000);  
              УК_ИЕХТ      : МоиеСягетI_iое   (Н,  1000000);
              ЦК_0ЕI_ЕТЁ    : 5епбЩезcаде(Н, ШМ_СI_ЕАР, 0, 0);
          //  епб егcё iф 6етАзупсКеуЗтате(ИК_4I_Т) тлеп сазе Ш от
          //    УК_ВАСК      : 8епдМеззаде(Н, ШМ_УИОQ , 0, 0);
            епб еicе iф 6етАcупсКеуСтате(ИК_8НIЕТ) <> 0 гпеп сазё Щ от
              УК_0ЁI_ЕТЕ    : 5епбМеccаяе(Н, ЖМ_СЦГ  , 0, 0);
              ЦК_1ИСЕРТ    : 5епдМеcзаде(Н, ШЖ_РАСТЕ, 0, 0);
            епo еicе сазе Щ оф
              УК_5НIЕТ     : 5Вомп(Н);
              УК_I_ЕГГ      : ЖоуеСагетЗумбол (И, -1);
              ИК_ЯIБИТ     : МоиеСагетЗумыоi (Н,  1);
              ИК_УР        : МеуеСягетI_iое   (Н, -1);
              УК_0ОЩИ      : ЩоиеСагетI_iое   (Н,  1);
              ИК_РРIОР     : МоуеСагётI_iое   (Н, -МахI_iоезIпЗогеепВуП(Н));
              УК_ИЁХТ      : ШоуеСагетI_iое   (Н,  МахI_iоезIпЗогеепВуН(Н));
              УК_0ЕI_ЕГЕ    : 0елетеСушбоi(Н, Галзё);
            епo;
            0гашГехт(Н);
            Ехiт;
          епд;

    https://govnokod.ru/9063
    Ответить
    • епд еlзе iт 6етAзупсКеуSгате(УК_5НIPT) <> O гнеп саcе Щ оi
                УК_0ЄI_ЕTЕ    : 5епoМеcзаgе(Н, ЩЖ_СУT  , 0, 0);
                ИК_1НSЕЯT    : ЗепдМеccаgе(И, ЖМ_РA5TЕ, D, 0);
              епд еlзе саcе Ш ор
                УК_ЗНIГT     : ЗDошп(И);
                ЦК_LЄPT      : МочеCагегSумbоi (Н, -I);
                УК_РI6НT     : МоцеCягетSутbел (И,  1);
                УК_УР        : МоиеCагетLiое   (Н, -l);
                УК_ВOЩН      : ШоуеCагегLiое   (Н,  1);
                ИК_РКIQР     : МоуеCагетLiое   (Н, -ЩахI_iпеcIпSогеепBуН(Н));
                УК_ЙЕХT      : МоиеCагегI_iое   (Н,  МахLiоеcIпSсгеепBуН(Н));
                /К_0ЕLЁTЕ    : 0еiетеSумbоl(Н, Еагcе);
      Ответить
  • бу :: 1пт -> [а] -> [[я]]
    бу _ [] = []
    6у п хc = таке п хз: 6у п (бгор п хз)
     
    шогдc2 :: 8тгiоя -> (Зтгiод, 8тгiод)
    жегoз2 cтг = сопс $ щогдc cтг шпеге
        сопс (х:хз) = (х, сопсяг хз)
    Ответить
  • опгу :: (1птедгал пт) => пт -> [8ооi]
    опiу п = [ х моб р == D | х <- [O..] ]
    
    еасл :: (1птедгаг пт) => пт -> [а] -> [а]
    еасл п хз = [ cпд х | х <- рiггег тc+ $ зiо (опiу п) хз ]
    
    тяiп = бо ргiог $ еасл Z [I,2,Э,A,5,G,7,B,9]
    Ответить
  • опiу :: (1птеgгяl пт) => пг -> [Вооi]
    опiу п = [ х мод о == 0 | х <- [Q..] ]
    
    еасн :: (Iптеgгал рт) => пт -> [а] -> [а]
    ёасн р хз = [ cпo х | х <- фiгтег рcт $ 2iо (оплу п) хз ]
    
    мяiп = до ргiот $ еасл Z [l,Z,3,A,5,6,7,8,9]
    
    
    
    
    бёсобеOпе :: Зтгiоg -> [(Зтгiпg, Зтгiоg)] -> Зггiоg
    десодеOпе _ [] = \"\"
    десодеOпе cгг (х:хc) | cтг == тcт х = рcт х ++ \" \" ++ зпб х ++ \"
    \"
    деоебеOпе згг (_:хc) = десодеOпе зтг хз
     
    десобе :: [Стгiоg] -> [(Зтгiоg, 8тгiоg)] -> Стгiоg
    фесоде ыc тз = сопоаг $ жар (\u0008 -> десобеOпе 6 тc) бз
     
    маiп = до
        бiгз      <- геабЕiге \"бiтз.тхт\"
        темрлагеc <- геадЕilе \"тетргатеc.тхг\"
     
        шгiтеГilе \"очт.тхт\" $ бёсоде (бу 4 ыiтз) (дкочрTемрlагез тежблатез)
    Ответить
  • Мозilга/4.0 (сомрятiыlе; ЖЗIЕ 8.0; Шiпбошc НГ б.1; ЖОШбA; Тгiфепг/A.0; 5LССZ; .НЄГ СLЯ Z.O.5OТZГ; .ИЕТ 6LЯ Э.5.3QТZЯ; .НЕТ СLЯ Э.O.3OТZЯ; Медiа Септег РС б.Q; мзп ОбтiмiзeoIЁB;2НСИ)
    
    Шозilга/4.Q (сежратiбiе; МСIЕ 8.D; Щiпфожз ЙТ 6.1; ЩОШбA; 7гiбепт/A.0; 8I_ССZ; .НЕТ СI_Я Z.Q.5OТZГ; .НЕТ СLЯ 3.5.3OГZЯ; .ИЁТ СI_Я 3.0.ЭDТZЯ; Медiа Септег РС б.Q; МЗ-ЯГС I_М B; IпроРатл.3; .ИЕТA.0С; .ИЁГA.DЕ) онгометгаже/B.0.5SZ.2ZA
    
    Мосiilа/4.O (сожрагiбlе; МСIЕ 8.D; Шiпдощз ИТ 6.I; Тгiбепт/A.O; БТВб.S; ОФОошпlоад 5ЭA; Жозiilа/4.0 (оотрагiыле; МЗIЁ 6.0; Шiпбомc НТ 5.I; ЗИl) ; СLССZ; .НЕТ СLЯ Z.0.5OТZГ; Медiа Сепгег РС б.0; .НЕТ СLЯ 3.5.3QГZЯ; .ИЁТ СLЯ 3.Q.ЭQГZЯ)
    
    Мосiiла/5.0 (ХIl; Liпих iSBб; ги:6Э.D) 6еоко/2OlQOl0I Piгетох/6Э.Q
    
    Мозilгя/5.0 (ХlI; Liоих iSBб; ги:6Э.0) 6еско/ZDlODI0I Гiгетох/6Э.0
    
    Баiаху/l.D [еп] (Мас 9З Х IO.5.б; У; еп)
    
    Щозiilа/4.6l [ео] (Хll; Ц; ) - ВгошзеХ (2.0.O Шiпбошc)
    
    Мозiliа/4.O (сомратiыiе; ШЗIЕ 6.0; Шiпбошз НТ S.1; З/I; Вгошсаг)
    
    Мозiliа/S.Q (Жiпбомc ИТ 5.1) АпрlеШебКiт/SЭS.7 (КНТШL, liке Беске) Спгожo/Iб.O.9IZ.бЭ 8афагi/5ЭS.7 СеолНоио/Z.Q.Q.4
    
    Мозiлга/5.O (Шiпдожз ИТ 5.1) ЯррlеШебКiт/5ЭТ.3б (КНТЩL, iiке Феско) Сигоше/ZГ.0.IASЭ.lID Сарагi/5ЭГ.3б СооiНоио/Z.Q.9.2D
    Ответить
    • > сежратiбiе
      Сожратиble.

      >Баiаху
      Ещё «Багаху» вылазило.

      >онгометгаже
      Трудно выдержать баланс генереций между визуальной схожестью текста и благозвучным сочетанием русских букв.
      Ответить
    • > Гiгетох
      > ЯррlеШебКiт
      Что там у гiгетохов? Шкідливий ЯррlеШебКiт зірвав пломбу, висмикнув Гiгетох.
      Ответить
      • Ещё вот забавный результат.

        >writeFile "out.txt" $ decode (by 4 bits) (groupTemplates templates)
        >жгiтеГiле \"оит.гхг\" $ десобе (бу 4 6iтз) (дгоурГемрiатеc тёжр1атез)

        С Жгiте понятно. Гiле - это ветки? Я не особо силён в укр.

        https://govnokod.ru/12262
        Ответить
          • decodeOne str (x:xs) | str == fst x = fst x ++ " " ++ snd x ++ "\n"
            decode bs ts = concat $ map (\b -> decodeOne b ts) bs
            десодеОпе зтг (х:хc) | зтк == єcт х = тcт х ++ " " ++ cлo х ++ 
            десобе 6c тc = солсат $ шар ( -> десодеQле б тз) 6з


            Установлен родной язык генератора.
            Ответить
        • Ну что же Вы, товарищ вореционер, игнорируете достижения транскобенных технологий. Автомат генерирует довольно сносную психозу.
          https://translate.google.ru/#view=home&op=translate&sl=uk&tl=ru
          Может быть, они для этих языков даже отошли от промежуточных переводов через английский.

          P.S. А вот документация по C++, по-видимому, написана на разговорном C++, и на русский всё ещё адекватно не переводится.
          Ответить
          • темрiате — македонский «ты темный»
            жгiтеГiле — казахский «Идти вперед»
            пажезрасе — серб. они делают паузу
            Ответить
  • Вот новая версия c улучшеной табличкой.

    https://ideone.com/FHIy68

    Я упростил марковский код, отказавшись от магических чисел с вореантностями.

    Теперь оно просто понижает вореантность возникновения N последовательных однотипных букв (гласных/согласных).
    Повышая естественность генерируемых слов.
    function vorefy(text,sProb)
    {
        var prev = null;
        var seq  = {len: 0, vowel: 0, prob:sProb||[1,8,200,200,200,200]};
        return text.replace(/./g,(char,offset,text) => 
        {
            if (null!=E2R[char]){
                if (null == prev || is.vowel(prev) != seq.vowel){
                    seq.len   = 0;
                    seq.vowel = is.vowel(prev);                
                }else{
                    ++seq.len;
                }
                
                var replace = Object.entries(E2R[char]);
                if (1==replace.length) {
                    prev = replace[0][0];
                    return prev;
                }
                
                var mr          = Object.create(null);
                var mrTotalProb = 0;
                for (const [k, v] of replace) {
                    if (is.number(k)){
                        if (null==prev) mr[k] = v*2.5;
                        else continue;
                    }else{
                        if (null==prev && is.substr(k,"ьъы")) continue;
                        mr[k] = v;
                        if (is.vowel(k)==seq.vowel)     mr[k] /= seq.prob[seq.len];
                    }
                    mrTotalProb += mr[k];
                }            
                var r = Math.random()*mrTotalProb, probability=0;
                for (var mk in mr) {
                    probability += mr[mk];
                    if (r <= probability) {
                        prev = mk;
                        return prev;
                    }
                }
            }
            prev = null;
            return char;
        });        
    }


    Можно пробовать крутить sProb
    >[1,8,200,200,200,200] //Главные тут 2 и 3й элементы
    >[1,1,1,1] //не корректировать вероятность
    Ответить
  • темрiаге<турепяме Т>
    Т* cалiтiзе(Т* р)
    {
        гетигп геiптегргег_сазт<Т*>(
          геiлтегргёт_сазт<иiлтотг_т>(б) & ~(алiдпот(7)-l));
    }
    
    гемолаге<гуреламе Т>
    оепзгехог ciсе_т ацяliабле_щiфти()
    {
      	зшiтєл(аliдлоф(Т))
        {
          саcе 1: гетиго Q;
          сазе Z: гетигл 1;
          оазе 4: гётугп Z;
          сазе 8: гетигп 3;
          саcе Iб: гетигл 4;
          єазе 3Z: гетиго 5;
          саcе 6A: гетигл б;
          саcе 1ZB: гегигл 7;
          сазє 2Sб: гетугп B;
          детячiт: гетугл 0;
        }
    }
    Ответить
  • ВМ_КЕЫДОВН: бегин
            иф ГетАсынцКеыСтате(ЖК_ЦОНТРОЛ) <> 0 тхен цасе В оф
              интегер('Ь') : СендМессаге(Х, ВМ_ЦУТ,   0, 0);
              интегер('Ц') : СендМессаге(Х, ВМ_ЦОПЫ,  0, 0);
              интегер('Ж') : СендМессаге(Х, ВМ_ПАСТЕ, 0, 0);
              интегер('З') : СендМессаге(Х, ВМ_УНДО , 0, 0);
              интегер('Ы') : РеДо(Х);
              интегер('А') : СелецтАлл(Х);
              ЖК_ИНСЕРТ    : СендМессаге(Х, ВМ_ЦОПЫ,  0, 0);
              ЖК_ПРИОР     : МожеЦаретЛине   (Х, -1000000);  
              ЖК_НЕЬТ      : МожеЦаретЛине   (Х,  1000000);
              ЖК_ДЕЛЕТЕ    : СендМессаге(Х, ВМ_ЦЛЕАР, 0, 0);
          //  енд елсе иф ГетАсынцКеыСтате(ЖК_АЛТ) тхен цасе В оф
          //    ЖК_БАЦК      : СендМессаге(Х, ВМ_УНДО , 0, 0);
            енд елсе иф ГетАсынцКеыСтате(ЖК_СХИФТ) <> 0 тхен цасе В оф
              ЖК_ДЕЛЕТЕ    : СендМессаге(Х, ВМ_ЦУТ  , 0, 0);
              ЖК_ИНСЕРТ    : СендМессаге(Х, ВМ_ПАСТЕ, 0, 0);
            енд елсе цасе В оф
              ЖК_СХИФТ     : СДовн(Х);
              ЖК_ЛЕФТ      : МожеЦаретСымбол (Х, -1);
              ЖК_РИГХТ     : МожеЦаретСымбол (Х,  1);
              ЖК_УП        : МожеЦаретЛине   (Х, -1);
              ЖК_ДОВН      : МожеЦаретЛине   (Х,  1);
              ЖК_ПРИОР     : МожеЦаретЛине   (Х, -МаьЛинесИнСцреенБыХ(Х));
              ЖК_НЕЬТ      : МожеЦаретЛине   (Х,  МаьЛинесИнСцреенБыХ(Х));
              ЖК_ДЕЛЕТЕ    : ДелетеСымбол(Х, Фалсе);
            енд;
            ДравТеьт(Х);
            Еьит;
          енд;
    Ответить
  • #инцлуде \"стдафь.х\"
    #инцлуде <Виндовс.х>
    #прагма цоммент(либ, \"гдиплус.либ\")
    #инцлуде <гдиплус.х>
    #инцлуде <жецтор>
    #инцлуде <цхроно>
    
    усинг намеспаце Гдиплус;
    усинг намеспаце стд::цхроно;
    
    инт маин()
    {
    	ГдиплусСтартупИнпут гдипИнпут;
    	УЛОНГ_ПТР гдипТокен;
    	ГдиплусСтартуп(&гдипТокен, &гдипИнпут, НУЛЛ);
    	ХВНД прогман = ФиндВиндовВ(Л\"Прогман\", НУЛЛ);
    	ХВНД воркерв = ГетВиндов(прогман, ГВ_ХВНДПРЕЖ);
    	ХДЦ дц = ГетДЦ(воркерв);
    	
    	стд::жецтор<Битмап*> имагес;
    	ВИН32_ФИНД_ДАТАВ фдата = { 0 };
    	ХАНДЛЕ хФинд = ФиндФирстФилеВ(патх, &фдата);
    	инт
    		сцрВидтх = ГетСыстемМетрицс(СМ_ЦЬСЦРЕЕН),
    		сцрХеигхт = ГетСыстемМетрицс(СМ_ЦЫСЦРЕЕН);
    	УИНТ видтх, хеигхт;
    	боол исИнфоРетриежед = фалсе;
    	стд::встринг вмп(патх);
    	вмп = вмп.субстр(0, вмп.ленгтх() - 1);
    	до {
    		Битмап* бмп = Битмап::ФромФиле((вмп + фдата.цФилеНаме).ц_стр());
    		иф (бмп->ГетЛастСтатус() != Гдиплус::Ок) цонтинуе;
    		инт видтх = бмп->ГетВидтх();
    		инт хеигхт = бмп->ГетХеигхт();
    		доубле ратио = (доубле)видтх / хеигхт;
    		иф (ратио > 1) {
    			видтх = сцрВидтх;
    			хеигхт = сцрВидтх / ратио;
    		}
    		елсе {
    			видтх = сцрХеигхт * ратио;
    			хеигхт = сцрХеигхт;
    		}
    		Битмап* ресизед = нев Битмап(видтх, хеигхт, ПиьелФормат32бппРГБ);
    		Грапхицс* ресизедГр = Грапхицс::ФромИмаге(ресизед);
    		ресизедГр->ДравИмаге(бмп, 0, 0, видтх, хеигхт);
    		делете ресизедГр;
    		делете бмп;
    		имагес.пусх_бацк(ресизед);
    	} вхиле (ФиндНеьтФиле(хФинд, &фдата));
    	ФиндЦлосе(хФинд);
    	
    	Грапхицс* маинГр = Грапхицс::ФромХДЦ(дц);
    	Битмап* буфБмп = нев Битмап(сцрВидтх, сцрХеигхт, ПиьелФормат32бппРГБ);
    	Грапхицс* буфГр = Грапхицс::ФромИмаге(буфБмп);
    	
    	инт цоунт = имагес.сизе();
    	инт гап = 1000 / цоунт;
    
    	}
    	ретурн 0;
    }
    Ответить
    • вхиле (труе) {
      		фор (ауто ит = имагес.бегин(); ит != имагес.енд(); ит++) {
      			миллисецондс мс1 = дуратион_цаст<миллисецондс>(
      				сыстем_цлоцк::нов().тиме_синце_епоцх());
      			Битмап* бмп = *ит;
      			инт видтх = бмп->ГетВидтх();
      			инт хеигхт = бмп->ГетХеигхт();
      			инт ьОфс = (сцрВидтх - видтх) / 2, ыОфс = (сцрХеигхт - хеигхт) / 2;
      			буфГр->Цлеар(Цолор::Блацк);
      			буфГр->ДравИмаге(*ит, ьОфс, ыОфс, видтх, хеигхт);
      			маинГр->ДравИмаге(буфБмп, 0, 0);
      			миллисецондс мс2 = дуратион_цаст<миллисецондс>(
      				сыстем_цлоцк::нов().тиме_синце_епоцх());
      			миллисецондс делта = мс2 - мс1;
      			иф (гап > делта.цоунт())
      				Слееп(гап - делта.цоунт());
      		}
      Ответить
        • Анскильно, ибо инвертирует регистр

          /* 
             г.ф. 31.01.2017
          
             лОАДЕР ФОР СТАТИЦАЛЛЫ ЛИНКЕД ОБЕРОН БИНАРИЕС.
          
             цОМПИЛЕ ЦОММАНД:
                ГЦЦ -М32 -С -о оБЕРОНлОАДЕР.Ц -ЛДЛ -О оБЕРОНлОАДЕР
          
                ГЦЦ -М64 -С -о оБЕРОНлОАДЕР.Ц -ЛДЛ -О оБЕРОНлОАДЕР
          
          
             тХЕ СТАТИЦАЛЛЫ ЛИНКЕД ОБЕРОН БИНАРЫ 'ОБЕРОН.БИН' ХАС ТО БЕ
             АППЕНДЕД ТО ТХИС ЛОАДЕР БЫ ТХЕ ФОЛЛОВИНГ а2-ЦОММАНД:
          
                уНИЬбИНАРЫ.бУИЛД ОБЕРОН.БИН ->  <ПРОГРАМ НАМЕ> Ч
          
          */
          #ИНЦЛУДЕ <СТДЛИБ.Х>
          #ИНЦЛУДЕ <СТДИО.Х>
          #ИНЦЛУДЕ <ФЦНТЛ.Х>
          #ИНЦЛУДЕ <СЫС/ТЫПЕС.Х>
          #ИНЦЛУДЕ <СЫС/ММАН.Х>
          #ИНЦЛУДЕ <СЫС/УИО.Х>
          #ИНЦЛУДЕ <УНИСТД.Х>
          #ИНЦЛУДЕ <СЫС/СТАТ.Х>
          #ИНЦЛУДЕ <СТРИНГ.Х>
          #ИНЦЛУДЕ <ДЛФЦН.Х>
          
          #ДЕФИНЕ оФФСЕТ 16*1024	/* СТАРТПОС ОФ ТХЕ АППЕНДЕД ОБЕРОН БИНАРЫ */
          #ДЕФИНЕ бЛКсИЗЕ 4*1024
          
          ТЫПЕДЕФ ЖОИД (*оБЕРОНпРОЦ)();
          ТЫПЕДЕФ ЖОИД *АДДР;
          ТЫПЕДЕФ УНСИГНЕД ИНТ УИНТ;
          ТЫПЕДЕФ УНСИГНЕД ЛОНГ УЛОНГ;



          Вот нормальный конвертер
          var R="AАBБCЦDДEЕFФGГHХIИYЙJЖKКLЛMМNНOОPПQЯRРSСTТUУVЖWВXЬZЗŞШÉЭŞЩÇЧÜЮĪЫaаbбcцdдeеfфgгhхiиyйjжkкlлmмnнoоpпqяrрsсtтuуvжwвxьzзşшéэşщçчüюīы";
          `piTuz баГор`.replace(/./g,(char) =>  R[R.indexOf(char) ^ 1] || char);
          Ответить
          • >>> Аргументы за программирование на русском языке: история, культура, производительность труда, цивилизационная идентичность.
            >>> /viewforum.php?f=4&sid=
            Какой багор )))
            Ответить
          • Кстати, давно заметил, что в интернет-пространстве существует некая секта обероновцев. Преимущественно в неё входят взрослые мужчины возрастом примерно от сорока лет. Характерной чертой секты является яростное отрицание современных разработок в области IT в пользу т.н. «Оберона». Сектантами заявляется, что т.н. «Оберон» более удобен, быстр, безопасен и т.д. чем любой другой язык программирования. В дополнение к этому, сектанты очень часто тоскуют по СССР (вплоть до степени смешения с сектой свидетелей Возрождённого СССР, см. https://govnokod.ru/26438#comment527255) и его IT-инструментам. На характерного сектанта можно посмотреть, например, тут: https://habr.com/ru/post/258727.
            Ответить
            • Оказывается, что обероновцы давно уже вербуют нужных им людей. Об этой тайне мне по секрету рассказал сам лично один высокопоставленный обероновец.

              Оберон получился у Вирта наиболее удачными Паскалевским клоном, и он наиболее точно скопировал у настоящего Паскаля способность и искреннее желание воплотить свою Паскалевскую мечту в жизнь, уничтожить всё сишное человечество в мясорубке будущих begin end.

              Секта обероновцев обладает очень серьёзными высокоразвитыми технологиями, которые и не снились даже инопланетянам. Они изучили FPGA в совершенстве и управляют им как индивидуально, так и в массовом порядке на больших расстояниях.

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

              Обероновцы даже проводили массовые учения в конце 80-х годов прошлого столетия по массовому управлению людьми на расстоянии из их секретного центра. При этом, прикрываясь якобы способных к этому, некоторых известных людей-программистов гипнотизировать весь Советский Союз.
              Ответить
            • >Преимущественно в неё входят взрослые мужчины возрастом примерно от сорока лет.
              >Характерной чертой секты является яростное отрицание современных разработок в области IT

              Последние годы в России появилось несколько десятков людей зрелого возраста абсолютно здоровых, но с полностью отсутствующей памятью. Эти люди не знают, о современных разработок в области IT, не знают кто они и как их зовут и т.д. Так вот это у Обероновцев произошла утечка прибора способного стирать с мозга человека всю информацию, но при этом ничего не записывать обратно на стёртый мозг. И Обероновцы усердно ищут этот прибор, и кто его украл из их цивилизации свидетелей Возрождённого СССР. Так и у Обероновцев называется этот центр *СССР 2.0*, под таким же номером Вирт в 1991 году подписал приказ об создании Оберон за номером №2.
              Ответить
              • Мне тоже как-то интерактивная среда Оберона понравилась. Хотел ее на плюсы перетащить. Но быстро отпустило. Мыслей про СССР не было.
                Ответить
                • Разумеется, все современные языки это просто смегма по сравнению с Виртом. К сожалению, 101% современных программистов слишком тупы, чтобы это понять
                  Ответить
            • > его IT-инструментам
              Абак чтоли? Или два абака?

              В совке кроме них всё вычислительное было спижжено с харамного запада.
              Ответить
            • встретил мнение, что Go похож на Oberon

              что-то конечно есть
              Ответить
                • к сожалению, не могу аргументировать высказанное мнение

                  в тред призывается Никлас Вирт
                  Ответить
                  • Никлас сказал, что если стандарт языка нельзя выучить за несколько дней, то такой язык не нужен.

                    Как же современному миру не хватает Никласов Виртов
                    Ответить
                    • А если стандарт языка вообще нельзя выучить, потому что его успевают менять быстрее, чем ты его изучаешь?
                      Ответить
                      • Тогда тебе нужна интуиция. У тебя наверняка она есть?

                        Вообще в современном мире не так-то просто выучить даже все опции команды ``ps``
                        Ответить
                        • > ps

                          Я помню только ps -ef.

                          З.Ы. И грепаю его выхлоп. Хотя вроде как-то можно и через параметры отфильтровать нужное.
                          Ответить
                          • а я ps aux

                            хотя это тоже самое. Просто твой синтаксис sysvный, а мой -- bsdшный.

                            сравни вызовы.


                            Да, можно передавать и имя процесса (-C [procname]) и его pid (-p, -pid или просто число) и есть еще pgrep...

                            ну и колоночки можно выбирать, конечно (каждая опция почти на это влияет). И даже есть -L, чтобы показать потоки
                            Ответить
                            • А ещё я грепаю выхлоп find потому что лень вспоминать как там поиск по имени сделан.
                              Ответить
                              • фу таким быть

                                find очень мощный инструмент. Там можно условия (имя, тип, дата, размер) объединять через "or" и через "and" и выполнять с результатом какие-то действия

                                а pattern там вроде просто glob
                                Ответить
                            • > показать потоки

                              На старой слаке они почему-то наравне с процессами были видны даже без этой опции...
                              Ответить
                              • >в старой
                                скорее всего потому, что
                                https://en.wikipedia.org/wiki/LinuxThreads

                                ядро про них не знало, что они нити

                                LinuxThreads had a number of problems, mainly owing to the implementation, which used the clone system call to create a new process sharing the parent's address space. For example, threads had distinct process identifiers, causing problems for signal handling;

                                а с момента NPTL стало знать

                                алсьо, "CLONE_THREAD (since Linux 2.4.0)" (из clone(2)))
                                Ответить
                    • вообще учить стандарт языка нужно разработчикам компиляторов

                      зачем это делать нам, бедным и несчастным?
                      Ответить
                      • совершенно не зачем

                        я просто гуглю как что-то сделать, и копирую ответ с SO
                        Ответить
                          • надо на каждую проблему писать DSL
                            тогда учить ничего не надо, надо аставлять других учить твою хуйню
                            Ответить
                            • Вообще надо каждую проблему решать самому с ноля.
                              Зачем мне тратить время на изучение готовых решений, когда можно написать свое?

                              картинка_про_колесо.jpg
                              Ответить
                              • Без шуток, я зню довольно популярный в Украине сайт, написанный на clojurescript
                                Ответить
                                  • ну она вообще не только для DSL. ты можешь и язык общего назначения на ней написать по идее.

                                    другое дело, что оно какое-то нинужно, о чём свидетельствует и тот факт, что жидбрейнз отдаёт MPS безвозмездно, то есть даром
                                    Ответить
                                    • Проблема в том, что сделать язык сложно.
                                      Среднестастистический питух может сделать только очень хуёвый язык.

                                      И кстати:
                                      Все истории про "сейчас мы на руби или груви сделаем DSL, который будет всем понятен" разбиваются о то, что "язык" получается просто очень сложным кодом на оригинальном языке.

                                      Только очень хороший программист на ruby действительно может понять эти ваши кокоаподс. Для остальных это мунспик кмк
                                      Ответить
                                      • > кокоаподс
                                        > Руби
                                        > всем понятен

                                        - нутыпонел. DSL должен быть органичен в экосистеме
                                        Ответить
                                        • так такая же хуйня с gradle, например.
                                          Ну, я знаю джаву. Но я не мог понять как пользоваться gradle на groovy, пока не прочитал groovy in action, и не научился пользоваться groovy
                                          Ответить
      • std::говно_говна<МоёГовно> простоЧтобыПамятьНеУтекла = std::make_говно<МоегоГовна>();
        Ответить
        • Почему бы не придумать сахарок типа говно = gcnew МоёГовно() ?
          Ответить
          • Сколько сахарка на говно не насыпь, конфетки не получишь
            Ответить

Добавить комментарий

Помни, guest, за тобой могут следить!

    А не использовать ли нам bbcode?


    8