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

    +105

    1. 1
    For i:=0 to 40 do For j:=1 to 10 do if (j=0) and (j=10) then W[i,j]:=0;

    Проблемы?

    Запостил: qweqwe, 03 Мая 2012

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

    • ava Lowezar 03.05.2012 20:19 # +4

      Какой-то слишком очевидный бред.
      Ответить

    • ava TarasB 03.05.2012 21:19 # −4

      Вы ничего не понимаете, это поиск в двумерном массиве по индексу. Также данный код показывает принцип, как получить элемента массива по индексу за O(N), тем самым приближая функционал такой убогой, свойственной императивщине сущности, как массив, к функционалу списка - основной структуры небыдло-функциональных языков.
      Ответить

      • ava rat4 03.05.2012 21:51 # +10

        Мне кажется, там лопата в слове "and".
        Ответить

      • ava lucidfoxGovno 03.05.2012 22:37 # 0

        > функционал
        Ответить

      • ava roman-kashitsyn 03.05.2012 22:46 # +5

        В функциональных языках есть ещё и "векторы" - иммутабельные массивы с доступом O(1)
        Ответить

        • ava lucidfoxGovno 04.05.2012 00:02 # −3

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

        • ava guest 04.05.2012 13:40 # 0

          Мм..? Емнип, те же массивы в хаскеле через unsafePerformIO и cpp-биндинг, то бишь мутабельные.
          Ответить

          • ava bormand 04.05.2012 15:43 # 0

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

            (Здесь я не говорю про действительно мутабельные IOArray/STArray)
            Ответить

            • ava guest 04.05.2012 16:17 # 0

              Да, согласен, это внутренности. Погорячился.
              Ответить

    • ava ZX_Spectrum 04.05.2012 01:00 # 0

      откуда это?
      Ответить

    • ava guest 04.05.2012 08:29 # 0

      Там просто опечатка, должно быть if (i=0) and (j=10) then
      Ответить

      • ava guest 04.05.2012 09:52 # +3

        А для чего тогда надо городить циклы, чтобы обнулить один единственный элемент массива? Или там ещё опечатка, чувак забыл дописать else ?
        Ответить

    • ava inkanus-gray 04.05.2012 23:44 # −2

      Исправим опечатку (j=0 вместо i=0). Вот так будет понятнее: 
      For k:=0 to 40 do 
  For l:=0 to 40 do
    begin
      if (k < 8) and (l < 5) then
        begin
          i:=k * 5 + l;
	  For m:=0 to 10 do
            For n:=0 to 10 do
              begin
                if (m < 2) and (n < 5) then
                  begin
                    j:=m * 5 + n;
                    if (i=0) and (j=10) then W[i,j]:=0;
                  end
              end
        end
    end;
      Ответить

      • ava guest 04.05.2012 23:48 # 0

        le ćenkä
        Ответить

      • ava guest 24.07.2012 12:10 # 0

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

    • ava guest 16.10.2012 19:03 # 0

      Вот зачем писать эту целую длинную строку, когда можно написать было (j=0) and (j=10) и всё?
      Ответить

    • ava 3Jlou_OguHo4ka 24.08.2021 20:38 # 0

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

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