1. Куча / Говнокод #16551

    +124

    1. 1
    2. 2
    quicksort [] = []
quicksort (h:t) = (quicksort(filter (=h) t))

    quicksort на хаскель. лаба. масло. 2014

    Запостил: kegdan, 16 Августа 2014

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

    • ava kegdan 16.08.2014 22:27 # +5

      На хаски все такое компактное. даже говно
      Ответить

    • ava 1024-- 16.08.2014 22:31 # 0

      > (=h)
      Сгенерировано специально для ГК авторским генератором, написанным на PHP Haskell?
      Ответить

      • ava kegdan 16.08.2014 22:33 # 0

        нет, все настоящее

        http://sourceprograms.ru/programming_languages/haskell/10-laboratornaya-rabota-5-haskell.html
        Ответить

        • ava 1024-- 16.08.2014 22:37 # 0

          >> Результат:
          >> Main> quicksort [1,2,3,1,1,3,2,10]
          >> [1,1,1,2,2,3,3,10] :: [Integer]
          Даже результат получили правильный. Не говно.
          Ответить

          • ava kegdan 16.08.2014 22:40 # 0

            это не ответ, это их влажные фантазии

            http://sourceprograms.ru/programming_languages/haskell/11-laboratornaya-rabota-6-haskell.html

            тут вообще код недописан

            убивает когда в одной лабе

            Enter number Integer: и Enter 2 chislo:

            Её че , писало 2 человека? а недописана - это типа третий не пришел?
            Ответить

            • ava 1024-- 16.08.2014 22:42 # 0

              Третий дерево садить суммировать должен был.
              Ответить

            • ava 1024-- 16.08.2014 22:47 # 0

              > adres Faila kakov: nouhau.hs
              > import IO
              За что они так с нами?
              P.S. Может, их взломали, или бот что-то копипастит с сайтов, где есть слово "Haskell"?
              Ответить

              • ava kegdan 16.08.2014 22:53 # 0

                С нами то ладно. За что они так со студентами?
                Ответить

              • ava 1024-- 16.08.2014 23:01 # 0

                Неплохо, у них ещё и C++ можно поучить.
                #include <iostream.h>
#include <fstream.h>

int main()
{
    fstream file( “file.txt”, ios::out );
    file << “This is text file”;
    file.close();
    return 0;
}

                А ещё либо у там парсер символы съедает, либо код по памяти вбивали.
                Ответить

                • ava kegdan 16.08.2014 23:03 # 0

                  >>ios

                  Проклятые яблочники!
                  Ответить

                • ava 1024-- 16.08.2014 23:08 # 0

                  И тут прослеживается неповторимый авторский стиль перевода:
                  #include<iostream.h>
int main()
{
  int m;
   cout<<"Vvedite m:";
   cin>>m;
  switch(m);
  {
   case 1: cout<<"Yanvar'"; break;
   case 2: cout<<"Fevral'"; break;
   case 3: cout<<"Mart"; break;
   case 4: cout<<"April"; break;
   case 5: cout<<"May"; break;
   case 6: cout<<"June"; break;
   case 7: cout<<"Jule"; break;
   case 8: cout<<"Avgust"; break;
   case 9: cout<<"Sentyabr'"; break;
   case 10: cout<<"Oktybr'"; break;
   case 11: cout<<"November"; break;
   case 12: cout<<"Desember"; break;
default: cout("Chislo v diapazone 1..12")
  }
return 0;
}

                  P.S. Господа олдфаги, этот и упомянутый выше отрывки где-то компилируются? (А ведь это из статьи за 2012й год)

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

                  • ava 1024-- 16.08.2014 23:23 # 0

                    А тут опять все вместе упоролись: паскалист, сишник и парсер.
                    #include <stdio.h>
#include <math.h>
#include <conio.h>
void main( )
{
float e=0.001, S, S1=0, x=pow(0.3,3.14), f;
int n=0, k;
double factorial=1;
   printf(“Vvedite k”);
   scanf(“%d”, k);
  do
     { 
//нахождение факториала
       factorial=1;
         for (f=1; f<=(2*n+1); f++)
            factorial:=factorial*f;
//- - - - -
         S1:=pow(-1,n)*pow(x,(2n+1))/factorial;
         n=n+1;
         S=S+S1;
}
while ((fabs(S1))>=e);
printf(“S=%f”, S);
getch();
}

                    (Пример вычисления суммы ряда на C++)
                    Ответить

                    • ava kegdan 16.08.2014 23:26 # 0

                      чет я понять не могу, а что они тут ищут?
                      Ответить

                      • ava 1024-- 16.08.2014 23:27 # 0

                        Поздно я добавил... Сумму ряда.
                        http://sourceprograms.ru/uploads/posts/2012-03/1332912395_sum_ryad.jpg
                        Ответить

                        • ava kegdan 16.08.2014 23:58 # 0

                          так тут проще рекуррсивую формулу найти?

                          https://ideone.com/CNh7cc

                          проверьте, я не ошибаюсь?
                          Ответить

                          • ava 1024-- 17.08.2014 10:24 # 0

                            С исходной формулой формула в culc совпадает, рассуждения верны. Вроде бы всё хорошо, даже некоторые имена сохранили авторскую упоротость.
                            Ответить

                  • ava Xom94ok 17.08.2014 10:02 # +4

                    пока олдфаги очнутся от субботних посиделок...
                    индексация с единицы и диапазон двумя точками указывает на принадлежность автора к вымирающей расе паскалисов, а ближе всего к Ъорланд паскалю - только Ъорланд С++ 3.11 for workgroups, хотя проверить компилируемость так и не удалось
                    алсо, watcom 10.6, который рабочий компилятор под ещё живую qnx 4.25, не умеет пространства имён и до сих пор имеет этот атавизм ".h" в заголовочных файлах стандартной библиотеки
                    вот с функциональным вызовом cout я встречаюсь впервые, хер его знает

                    > писал кто-то курящий
                    автор явно успешен, курит кубинские сигары и получает от жизни удовольствие!
                    Ответить

                • ava someone 17.08.2014 12:31 # 0 

                  #include <iostream.h>

                  <iostream.h>

                  .h
                  Ответить

                  • ava bormand 17.08.2014 12:40 # +1

                    Когда-то давным-давно он так и назывался...
                    Ответить

                    • ava kegdan 17.08.2014 12:57 # +1

                      До исторического материализма.
                      Видимо автора на сишке замкнуло по старой памяти
                      Ответить

                      • ava bormand 17.08.2014 13:39 # +4

                        > сишке
                        Нет-нет, это в дореволюционных крестах так было. Когда стандарт еще не приняли.
                        Ответить

                        • ava kegdan 17.08.2014 13:57 # +1

                          До исторического материализма и означает про царе. До СССР короче
                          Ответить

                      • ava bormand 17.08.2014 13:51 # +3

                        P.S. Там еще, емнип, всякие cout'ы были не в неймспейсе std, а прям в глобалках.
                        Ответить

                  • ava inkanus-gray 20.09.2014 08:51 # 0

                    В Проводнике Винды нельзя настроить обработку файлов без расширений, поэтому приходится изобретать костыли для ущербных систем.
                    Ответить

    • ava 3.14159265 19.09.2014 15:11 # +2

      Интуитивное понимание тех же монад никем не проверяется, а лишь выражается ложное ощущение неподъемности занятия. К счастью, дебагеры имеющие разных и что-то подобное можно встретить в любом языке. Я не понимание. На деле, приходится находить объявление лишь в мелких деталях реализации системы для решения одних и тех же монадически вычисления, заниматься какими-то иф-дефами, оборачивать этапы выполняющих поставленную задачу.

      Конкретно для Хаскеля не существует ни одного достойного автопокомплита, действительно способного помочь в написании программировании действительно способов. Духом новаторства заражены и сами моделирования через чтение кода" или "удостовериться в качестве примера обсуждаемый здесь подойдёт зигохистоморфный препроморфизм как монадический трансформеры как объекты, каррирования и постояниями как в императивной памяти и прочему).

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

    • ava guest 20.09.2014 11:42 # 0

      Как эта херня работает?
      Ответить

      • ava kegdan 20.09.2014 11:50 # 0

        никак не работает
        Ответить

        • ava guest 20.09.2014 12:24 # 0

          В бесконечную рекурсию сваливается?
          Ответить

          • ava bormand 20.09.2014 12:26 # 0

            Да с чего бы ему виснуть? Просто нифига не делает и возвращает пустой список.

            P.S. А из-за = вместо == вообще не скомпилится.
            Ответить

            • ava kegdan 20.09.2014 12:42 # 0

              зелена - как это нифига не делает? а как же просеивание списка uniqCount(list) раз?!
              Ответить

              • ava bormand 20.09.2014 12:54 # 0

                Если рассматривать как чорный ящик.
                Ответить

                • ava guest 20.09.2014 20:53 # 0

                  > чёрный
                  Ответить

                  • ava bormand 20.09.2014 21:20 # 0

                    Спасибо. Но я специально так написал.
                    Ответить

                    • ava inkanus-gray 20.09.2014 23:47 # +2

                      Выберите чёрную ссылку: красная, чёрная, синяя, зелёная.
                      Ответить

                      • ava 1024-- 21.09.2014 00:25 # 0

                        А, когда в стоке заметил, вспомнил вопрос на ЧГК о цветах и подумал, что это гостю в треде про украинскую войну предложили.

                        (Кто не помнит тот вопрос, суть: шпионам предлагали карточки с такими вот перепутанными цветами. Знавшие язык жутко тупили при взаимодействии с карточками.)
                        Ответить

                  • ava kegdan 21.09.2014 00:36 # 0

                    папа твой чёрный. а ящик - чорный
                    Ответить

                    • ava 1024-- 21.09.2014 00:49 # 0

                      А я думаю, наоборот надо. Чёрный ящик - как явление обыденное и чорный властелин - как специальный интернетовский термин.
                      Ответить

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