1. 1C / Говнокод #26004

    0

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    Функция УбратьПробел(стрЧисло)
    	//убирает пустой пробел
    	нСтр = "";
    	Для п=1 По СтрДлина(стрЧисло) Цикл
    		р = Сред(стрЧисло,п,1);
    		Если р = "1" ИЛИ р = "2" ИЛИ р = "3" ИЛИ р = "4" ИЛИ р = "5" ИЛИ р = "6" ИЛИ р = "7" ИЛИ р = "8" ИЛИ р = "9" ИЛИ р = "0" ИЛИ р = "," Тогда
    			нСтр = нСтр+р;
    		КонецЕсли;
    	КонецЦикла;
    	Возврат нСтр;
    КонецФункции

    Senior

    Запостил: sandvich, 30 Октября 2019

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

    • Пытался перевести на "PHP"
      не получилось
      переведите кто шарит в 1с
      Ответить
      • <?php
        function УбратьПробел($стрЧисло) {
        	//убирает пустой пробел
        	$нСтр = "";
        	for($п=1; $п <= strlen($стрЧисло); ++$п) {
        		$р = substr($стрЧисло,$п,1);
        		if($р == "1" || $р == "2" || $р == "3" || $р == "4" || $р == "5" || $р == "6" || $р == "7" || $р == "8" || $р == "9" || $р == "0" || $р == ",") {
        			$нСтр = $нСтр+$р;
        		}
        	}
        	return $нСтр;
        }
        Ответить
        • А можешь доработать чтобы она буквы не убирала?
          Ответить
          • Буквы из какого алфавита?
            Ответить
            • ну хотя-бы английского
              Ответить
              • Легко!
                <?php
                function УбратьПробел($стрЧисло) {
                	//убирает пустой пробел
                	$нСтр = "";
                	for($п=1; $п <= strlen($стрЧисло); ++$п) {
                		$р = substr($стрЧисло,$п,1);
                		if($р == "1" || $р == "2" || $р == "3" || $р == "4" || $р == "5" || $р == "6" || $р == "7" || $р == "8" || $р == "9" || $р == "0" || $р == "," || $р == "A" || $р == "B" || $р == "C" || $р == "D" || $р == "E" || $р == "F" || $р == "G" || $р == "H" || $р == "I" || $р == "J" || $р == "K" || $р == "L" || $р == "M" || $р == "N" || $р == "O" || $р == "P" || $р == "Q" || $р == "R" || $р == "S" || $р == "T" || $р == "U" || $р == "V" || $р == "W" || $р == "X" || $р == "Y" || $р == "Z" || $р == "a" || $р == "b" || $р == "c" || $р == "d" || $р == "e" || $р == "f" || $р == "g" || $р == "h" || $р == "i" || $р == "j" || $р == "k" || $р == "l" || $р == "m" || $р == "n" || $р == "o" || $р == "p" || $р == "q" || $р == "r" || $р == "s" || $р == "t" || $р == "u" || $р == "v" || $р == "w" || $р == "x" || $р == "y" || $р == "z") {
                			$нСтр = $нСтр+$р;
                		}
                	}
                	return $нСтр;
                }
                Ответить
                • Спасибо.

                  Код получился гибким и расширяемым
                  Ответить
                  • Я хотел ещё сделать, чтобы он китайские иероглифы не удалял, но, к сожалению, в 2000 символов не помещается.
                    Ответить
                    • 2000?
                      А это традиционный китайский или упрощенный?
                      Ответить
                      • Любой не поместится. Для добавления одного символа к алфавиту мне нужно добавить 13 байтов к коду. Даже в бопомофо (это запись китайского «по буквам») 42 символа, это к коду добавит 546 байтов.

                        Объединённый же набор иероглифов для китайского, корейского и японского в «Unicode» включает 21 тысячу знаков.
                        Ответить
                        • У корейского нету иреголифов
                          Там слоговое письмо.

                          Зы: напомнило: Matz писал, что Ruby появился в 1994 году, но первые несколько лет не пользовался особой популярностью за пределами Японии быть может потому, что документация по нему была только на японском
                          Ответить
                          • Точно. У корейцев сейчас хангыль.

                            Вот какого хрена в «Unicode» таблицу иероглифов назвали «CJK», если в «K» они не используются?
                            Ответить
                            • В корейском есть и иероглифы, но кроме 3.5 старпёров их никто не знает.
                              Ответить
                    • А если серьезно, то я не понимаю как этот человек программирует.

                      У студента-второкурсника пишущего на любом языке должно было что-то щелкнуть в голове на моменте седьмой примерно цифиры
                      Ответить
                      • У меня щёлкнуло. Я написа́л генератор кода:
                        foreach (range('A', 'Z') as $letter) {
                            echo ' || $р == "'.$letter.'"';
                        }
                        Ответить
                        • Но почему на не на m4?
                          Ответить
                          • incr не работает с символами. Какой багор )))
                            Можно использовать макрос translit, но тогда придётся разбивать алфавит на порции по 10 символов:
                            divert(-1)dnl
                            define(`forloop', `pushdef(`$1', `$2')_forloop([email protected])popdef(`$1')')
                            define(`_forloop',
                                   `$4`'ifelse($1, `$3', `', `define(`$1', incr($1))$0([email protected])')')
                            divert(0)dnl
                            forloop(`i', `0', `9', ` || $р == "translit(i, `0-9', `A-J')"')
                            Ответить
                            • зачем тебе символы?
                              через ``esyscmd`` можно запустить внешнюю команду

                              perl -e "print chr <> ";
                              Ответить
                              • А почему не сразу на «Перле»?
                                Ответить
                                • В смысле почему не
                                  my $foo = "1 2 33";
                                  $foo =~ s/\s+//;
                                  print $foo; # выведет 1233

                                  ?

                                  Не знаю.. А что, так можно было разве?
                                  Ответить
                                  • В этой задаче можно обойтись и sed'ом. Но phpBidlokoder2 просил код на «PHP». Его нужно чем-то сгенерировать.
                                    Ответить
                                    • В задаче удаления пробела можно было обойтись тыром
                                      $ echo "php govna kusok" | tr -d " "
                                      Ответить
                  • Именно поэтому я за «PHP».
                    Ответить
        • Непатриотичный какой-то у тебя перевод. Перевёл правильно!
          <?php
          function УбратьПробел(₽стрЧисло) {
          	//убирает пустой пробел
          	₽нСтр = "";
          	for(₽п=1; ₽п <= strlen(₽стрЧисло); ++₽п) {
          		₽р = substr(₽стрЧисло,₽п,1);
          		if(₽р == "1" || ₽р == "2" || ₽р == "3" || ₽р == "4" || ₽р == "5" || ₽р == "6" || ₽р == "7" || ₽р == "8" || ₽р == "9" || ₽р == "0" || ₽р == ",") {
          			₽нСтр = ₽нСтр+₽р;
          		}
          	}
          	return ₽нСтр;
          }
          Ответить
          • Это "₽H₽"?
            Ответить
          • <?гтш
            функция УбратьПробел(₽стрЧисло) {
            	//убирает пустой пробел
            	₽нСтр = "";
            	для(₽п=1; ₽п <= длстр(₽стрЧисло); ++₽п) {
            		₽р = подстр(₽стрЧисло,₽п,1);
            		если(₽р == "1" || ₽р == "2" || ₽р == "3" || ₽р == "4" || ₽р == "5" || ₽р == "6" || ₽р == "7" || ₽р == "8" || ₽р == "9" || ₽р == "0" || ₽р == ",") {
            			₽нСтр = ₽нСтр+₽р;
            		}
            	}
            	возврат ₽нСтр;
            }
            Ответить
    • В Ленобласти полицейские раскрыли дерзкое похищение петуха породы «Шамо»

      https://78.ru/news/2019-10-29/v_lenoblasti_policeiskie_raskrili_derzko e_pohishenie_petuha_porodi_shamo

      Фото: pxhere.com
      Полицейские по «горячим» следам раскрыли кражу птицы в Ленинградской области. Об этом сообщает пресс-служба главного управления МВД РФ по Петербургу и Ленобласти.

      Накануне в полицию Приозерского района обратился 33-летний житель одного из домов на Железнодорожной улице. Он заявил, что преступник разбил окно и проник в его квартиру на первом этаже, откуда похитил петуха породы «Шамо» стоимостью 20 тысяч рублей.

      По подозрению в совершении преступления была задержана 27-летняя неработающая женщина. Похищенную птицу вернули хозяину. По факту кражи возбуждено уголовное дело. Подозреваемой избрали меру пресечения в виде подписки о невыезде.

      Напомним, ранее в Подмосковье две девушки украли металлического Дзюбу.
      Ответить
      • >Напомним,
        Как эта хуйня называется, вплетение "похожих новостей" в текст? Это же ботом делают?
        Ответить
      • А какое отношение похищение петуха имеет к лапше на «1С»?
        Ответить
        • Логическая цепочка такая
          Лапша -> суп с лапшой -> куриный суп с лапшой -> курица -> петух -> Сёма

          Кстати, этот петух -- Шамо -- бойсовы
          http://proinkubator.ru/wp-content/uploads/2017/10/bojcovyh-petuhov_6.jpg

          Куплю, если фергана
          Ответить
          • Как городов на свете много,
            Но самый лучший без прикрас
            Лежит в отрогах гор высоких
            Зелёный город Шахрисабз.

            Шахрисабз, Шахрисабз
            Наполнен радостью и светом.
            Шахрисабз, Шахрисабз,
            Тебе пою я песню эту.
            Ответить
            • Был уверен что Шахрисабз это иранские слово, но нет
              Ответить
              • Иранское. В узбекском, в туркменском, в азербайджанском есть слова, заимствованные из фарси, а в таджикском есть слова, заимствованные из тюркских языков.

                https://en.wiktionary.org/wiki/%D8%B3%D8%A8%D8%B2

                [sabz] с фарси переводится как «зелёный».

                https://en.wiktionary.org/wiki/%D8%B4%D9%87%D8%B1#Persian

                [шахри] с фарси переводится как «город». Не путать с арабским языком, из которого к нам пришло слово «сахар».
                Ответить

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