1. JavaScript / Говнокод #26446

    +1

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    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, 22 Февраля 2020

    Комментарии (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;
            }
            Ответить
        • ВНИМАНИЕ! Проводится депитулизация.
          Ответить
    • показать все, что скрытоvanished
      Ответить
    • гемб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ег) {"
      Ответить
      • Ничего не понял, но это, вероятно, «Java».
        Ответить
        • Перевёл на асм
          регмат бё ди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гетох.
        Ответить
        • Было ещё Яббle и Ябрle.

          Генератор обзавёлся зайчатками ИИ.
          Ответить
        • Ещё вот забавный результат.

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

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

          https://govnokod.ru/12262
          Ответить
          • https://youtu.be/_FaVkyUzw4k?t=40s

            Гілля, гілля
            царапає вікна
            У вікнах - пусто,
            навколи - пусто,
            на дворі - зусман.
            Ответить
            • 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;
        			иф (гап > делта.цоунт())
        				Слееп(гап - делта.цоунт());
        		}
        Ответить
        • https://www.linux.org.ru/forum/development/15616952?cid=15617205
          Ответить
          • КОИ тоже обсуждали. Родился мем ЙАЖА.

            http://govnokod.ru/26475

            Ответить
          • Анскильно, ибо инвертирует регистр

            /* 
               г.ф. 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);
            Ответить
          • В той заметке находка:
            http://вече.программирование-по-русски.рф/
            Ответить
            • показать все, что скрытоvanished
              Ответить
            • >>> Аргументы за программирование на русском языке: история, культура, производительность труда, цивилизационная идентичность.
              >>> /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.
                Ответить
              • > его IT-инструментам
                Абак чтоли? Или два абака?

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

                что-то конечно есть
                Ответить
                • странная логика

                  https://udaff.com/image/15/22/152206.jpg
                  Ответить
                  • к сожалению, не могу аргументировать высказанное мнение

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

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

                          Вообще в современном мире не так-то просто выучить даже все опции команды ``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ы под каждый чих и пых
                                    https://en.wikipedia.org/wiki/JetBrains_MPS
                                    Ответить
                                    • что-то в секции "реальные примеры" хуйня какая-то
                                      Ответить
                                    • ну она вообще не только для DSL. ты можешь и язык общего назначения на ней написать по идее.

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

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

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

                                          - нутыпонел. DSL должен быть органичен в экосистеме
                                          Ответить
                                          • так такая же хуйня с gradle, например.
                                            Ну, я знаю джаву. Но я не мог понять как пользоваться gradle на groovy, пока не прочитал groovy in action, и не научился пользоваться groovy
                                            Ответить
                              • Что означает твой ник?
                                Ответить
        • std::говно_говна<МоёГовно> простоЧтобыПамятьНеУтекла = std::make_говно<МоегоГовна>();
          Ответить
    • ох ебать, и до постфикса докатилось
      https://marc.info/?l=postfix-users&m=161418677904936&w=2
      Ответить

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