1. Pascal / Говнокод #6473

    +147

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    For i := 1 to Length(Val)-1 do
  Begin
    If (Ord(Val[i]) >= 48) and (Ord(Val[i]) <= 57) and
    (not ((Ord(Val[i+1]) >= 48) and (Ord(Val[i+1]) <= 57))) then Result := true;
  End;

    ОТЦЕНИТИ КОД!!!1

    Запостил: Govnocoder#0xFF, 25 Апреля 2011

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

    • ava guest 25.04.2011 19:39 # −5

      показать все, что скрытопосКАЛь этим всйо сказана
      Ответить

    • ava Govnocoder#0xFF 25.04.2011 21:37 # −2

      Это по вашему не говнокод?
      Ответить

    • ava scalar4eblo4no 25.04.2011 22:19 # +12

      Попробую предположить, что не все знают, что в паскале есть оператор in.
      if Val[i] in ['0'..'9'] and not(Val[i+1] in ['0'..'9']) then Result := true;

      Собственно на этом положительные стороны паскаля и заканчиваются.
      Ответить

      • ava scalar4eblo4no 25.04.2011 22:21 # 0

        Эх, были бы они (Range) в Delphi еще и объектами - как в Ruby =)
        Ответить

      • ava guest 26.04.2011 07:39 # +4

        Попробую предположить, что не все ещё знают, что такое паскаль
        Ответить

      • ava egormolokov 26.04.2011 07:56 # 0

        Вот на сколько код уменшается если немго подумать
        Ответить

      • ava guest 26.04.2011 09:21 # 0

        Я не знал!
        Ответить

      • ava TarasB 26.04.2011 09:57 # 0

        > Собственно на этом положительные стороны паскаля и заканчиваются.

        ололо
        Ответить

    • ava guest 25.04.2011 22:23 # −4

      Капитан подсказывает, что в приведенном коде условие вида: (a&(!a)), что за наезды на автора?
      Ответить

    • ava ReL 26.04.2011 07:02 # −7

      показать все, что скрытоэто - говнокод хотя бы потому, что написан на паскале...
      Ответить

    • ava guest 26.04.2011 08:47 # −3 

      i := 1;
while (i < length(val))
	and (val[i] in ['0'..'9']) 
	and not (val[i + 1] in ['0'..'9']) do inc(i);
result := (i < length(val));
      Ответить

      • ava guest 26.04.2011 08:52 # −3

        Точнее:
        i := 1;
while (i < length(val))
	and not ((val[i] in ['0'..'9']) and not (val[i+1] in ['0'..'9'])) do
        inc(i);
result := (i < length(val));
        Ответить

    • ava MAGnit 26.04.2011 10:09 # 0

      Автор, учи русский!!!!
      Ответить

      • ava guest 26.04.2011 16:32 # +1

        Это был стеб, дебил. Он специально так написал.
        Ответить

        • ava MAGnit 26.04.2011 16:38 # −4

          Отчего ты меня обзываешь? Школочмо пришло со школы?
          Ответить

          • ava guest 26.04.2011 16:41 # +1

            Сделай бочку и не вякай.
            Ответить

          • ava guest 26.04.2011 16:42 # 0

            Потому что так и есть.
            Ответить

            • ava guest 26.04.2011 16:43 # +3

              guest, ты крут
              Ответить

              • ava guest 26.04.2011 16:44 # −2

                блеать, всё никак не разберусь с этой рекурсией
                Ответить

                • ava guest 26.04.2011 16:55 # −1

                  > блеать

                  ууу
                  Ответить

                  • ava guest 26.04.2011 17:29 # −3

                    кириешки со вкусом салями + 1.5 крепкого "большая кружка" = бомба. запомни это
                    Ответить

                    • ava guest 27.04.2011 10:37 # 0

                      Водка + Ред Булл = Бомба КРОВЬ КИШКИ РАСПИДОРА... OH SHI~
                      Ответить

                      • ava guest 27.04.2011 12:05 # 0

                        кофе + ред булл = крепкий здоровый сон
                        Ответить

                        • ava Vindicar 27.04.2011 16:48 # 0

                          переполнение переменной, хранящей уровень взбудораженности?
                          Ответить

            • ava MAGnit 26.04.2011 16:49 # −3

              школота негодует))))))))
              Ответить

              • ava guest 26.04.2011 17:00 # +4

                > guest 6 часов назад # 0
                когда смотрю на паскалевский код... возникает ощущение, что авторы не смогли написать нормальный парсер

                да а взаимосвязь ведь есть в школе уроки заканчиваются как раз где-то в час и в это время как раз активизируется гуест
                Ответить

                • ava guest 26.04.2011 17:17 # −4

                  омг, как же унылы все эти ваши шуточки про школу
                  Ответить

                  • ava guest 26.04.2011 17:23 # +4

                    > омг, как же унылы все эти ваши шуточки про школу

                    факюнуб
                    Ответить

                    • ava guest 26.04.2011 17:24 # −3

                      перед тобой живая легенда, сделай поклон
                      Ответить

                      • ava bugmenot 26.04.2011 17:38 # 0

                        сделай поклон бочку
                        fixed
                        Ответить

                        • ava guest 26.04.2011 17:40 # 0

                          плохой фикс
                          Ответить

                        • ava guest 26.04.2011 17:44 # 0

                          обиженный олег такой обиженный
                          Ответить

                          • ava bugmenot 26.04.2011 17:48 # +4

                            ОБИЖЕННЫЙ -, заключенный, над котоpым совеpшили акт мужеложства или дpуг.pазвp. дейст.

                            вот оно что!
                            Ответить

                        • ava MAGnit 26.04.2011 17:48 # −3

                          сосни хуйцов!!
                          Ответить

                          • ava bugmenot 26.04.2011 17:49 # 0

                            оло, еще один баттхёртный школьник?
                            Ответить

                            • ava Lure Of Chaos 26.04.2011 21:30 # 0

                              Багми, ну у них чатег "13-18 -- лучший возраст", а ты-то шо?
                              Ответить

                              • ava bugmenot 26.04.2011 22:10 # 0

                                вот-вот, они нежны и вкусны, как молочные поросята

                                а вообще я действительно считаю, что под определение "высшего животного" подпадает скорее собака, чем говорящий школьник
                                Ответить

                          • ava guest 26.04.2011 17:50 # +2

                            ещё один обиженный школьник не постойте же факюнууб говорил шо у него есчо восемь аккаунтав может эта он и есть?
                            Ответить

    • ava guest 26.04.2011 11:38 # 0

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

      • ava istem 26.04.2011 14:11 # 0

        Нет. На самом деле они очень весёлые ребята. В каждом листинге - куча смайликов
        Ответить

        • ava guest 26.04.2011 14:15 # −2

          это зависит от самого кодера.
          а язык - гавно. от одного If..then..begin..end проблемы с потенцией начинаются
          Ответить

          • ava TarasB 26.04.2011 14:27 # −1

            Что означают две точки между then и begin?
            Ответить

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