Говнокод: по колено в коде.

• Все
• Лучший
• Сток
• Глупый поиск
• Наговнокодить!
• Oтзывы

Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!

1. PHP (5704)
2. C++ (2739)
3. Куча (2356)
4. JavaScript (2029)
5. C# (1928)
6. Java (1502)
7. Си (1113)
8. Pascal (647)
9. Python (583)
10. 1C (538)
11. SQL (432)
12. ActionScript (292)
13. Objective C (202)
14. bash (198)
15. Perl (194)
16. Assembler (146)
17. Ruby (145)
18. VisualBasic (138)
19. Lua (49)
20. Go (31)
21. Swift (27)
22. Haskell (26)
23. Kotlin (14)

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

   +119

   1. 1
   2. 2
   3. 3
   4. 4
   5. 5
   6. 6
   7. 7

   s f g x = f x (g x)
   k x y   = x
   b f g x = f (g x)
   c f g x = f x g
   y f     = f (y f)
   cond p f g x = if p x then f x else g x
   fac  = y (b (cond ((==) 0) (k 1)) (b (s (*)) (c b pred)))

   Запостил: HaskellGovno, 20 Мая 2012

   Tweet

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

   • HaskellGovno 20.05.2012 22:39 # 0

     Подсчёт факториала без введения параметра факториала. (То есть функция факториала возвращает функцию для подсчёта факториала).

     Ответить

     • 3.14159265 21.05.2012 14:31 # 0

       >Подсчёт факториала без введения параметра факториала.
       Когда-то на С видел такое. ЧСХ кода было меньше.

       Ответить

       • unu-foja 21.05.2012 17:16 # +4

         > кода было меньше
         Сударь, позвольте: тут хаскель-то использется как псевдо-язык для определения комбинаторов, более идиоматчино было бы, например:
         

         import Control.Monad.Fix
         
         fac = fix $ \ f n -> if n == 0 then 1 else n * f (n - 1)

         Ответить

     • 3.14159265 21.05.2012 15:25 # 0

       Примерно так:
       http://ideone.com/TsUN5

       Ответить

       • bormand 21.05.2012 15:37 # +1

         Хм, ну тогда уж замутить функцию без аргументов, которая просто вернет функцию вычисления факториала. Это ближе к топику.
         
         

         // эту функцию мы никому не дадим
         static int function fac_private(int n) {
           int res = 1, i;
           for (i=2; i<=n; i++) res *= i;
           return res;
         }
         // а эта доступна
         (int (*)(int)) fac() { return fac_private; }
         
         fac()(5);

         Ответить

         • 3.14159265 21.05.2012 15:42 # 0

           Вся фишка в том, что аргументы функции для подсчета не используются (unused).

           Ответить

           • bormand 21.05.2012 15:57 # +2

             _AddressOfReturnAddress это майкрософтизм. Да и немного смущает "результат: Ошибка выполнения время: 0.02s память: 1720 kB сигнал: -1 ".
             Вердикт - не труъ.

             Ответить

             • 3.14159265 21.05.2012 16:24 # 0

               >_AddressOfReturnAddress это майкрософтизм
               >Вердикт - не труъ.
               Кто бы спорил. Сначала же сказал, что "видел" - следовательно сей говнохак не мой.
               Я кстати нашел тот тред:
               http://govnokod.ru/5561

               Ответить

   • Vindicar 21.05.2012 00:21 # 0

     Но зачем?

     Ответить

     • HaskellGovno 21.05.2012 01:25 # +3

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

       Ответить

       • guest 21.05.2012 23:03 # +3

         Это могло бы быть круто, если код был бы за авторством тс,
         на что посимвольное совпадение с http://www.willamette.edu/~fruehr/haskell/evolution.html уж никак не намекает.
         
         Этот боян чуть ли не 3 раза на том же лоре появлялся, и в контексте всей заметки смотрится как (само)ирония. А здесь - как вброс.

         Ответить

         • HaskellGovno 21.05.2012 23:39 # −1

           На говнокоде этого говнокода ещё не было.

           Ответить

           • guest 21.05.2012 23:57 # +2

             Какая у тебя мотивация-то? Может лучше прочитать, скажем, http://learnyouahaskell.com/chapters ? (вроде был и русский перевод, но за монетку).

             Ответить

   • bormand 21.05.2012 05:45 # +1

     Факториал на Y комбинаторе?

     Ответить

   • TarasB 21.05.2012 11:43 # 0

     А, через Y-кокомбинатор?

     Ответить

   • bormand 21.05.2012 12:23 # +3

     Кстати cond, == и * тут не рулят. Нужно было юзать вместо них нумералы Чёрча:
     

     true x y = x
     false x y = y
     0 x y = x
     1 x y = y x
     2 x y = y (y x)
     ...

     Ответить

   • HaskellGovno 21.05.2012 22:33 # −1

     Можно использовать Хаскел для обфускации программ или как естественная матан-защита кода от быдлокодеров, клинических идиотов пользователей других быдло языков.

     Ответить

     • bormand 22.05.2012 05:22 # +1

       Нельзя, потому что в IO монаде на нем можно писать как на фортране :)
       
       А настоящий индус никогда не будет читать код предшественника, он просто будет прикручивать к нему свои велосипеды и костыли.

       Ответить

     • Steve_Brown 22.05.2012 10:16 # +1

       Мне почему-то померещилось в тексте слово "капча". А что, хорошая идея...

       Ответить

       • HaskellGovno 22.05.2012 10:36 # +2

         На говнокоде нужно добавить Хаскел-Капчу. Притом чтобы не сменялась, пока правильно не ответишь.

         Ответить

         • bormand 22.05.2012 13:33 # +1

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

           Ответить

         • roman-kashitsyn 22.05.2012 14:01 # 0

           Можно пример?

           Ответить

           • guest 22.05.2012 15:06 # +1

             [color=grey][Cмеха ради][/color] написать [1,1,1,1,1,1,1,1,1,1] не длиннее, чем 12 символов.
             [0..9]>>[1] или 1<$[0..9]

             Ответить

             • roman-kashitsyn 22.05.2012 15:13 # 0

               > не длиннее, чем 12 символов
               > 1<$[0..9]
               Это только если не считать

               import Control.Applicative

               Если бы мне такая хрень понадобилась, я бы написал

               take 10 [1,1..]

               Но тут 15 символов

               Ответить

               • guest 22.05.2012 15:21 # +3

                 Но первый-то вариант подходит? :Р
                 А если для людей - лучше сразу replicate 10 1.

                 Ответить

               • guest 22.05.2012 16:56 # 0

                 А можно что-нибудь поинтереснее, например однострочник для:
                 http://vimgolf.com/challenges/4d6f45b938c0aa691b000003
                 Правда vim обогнать не получилось.

                 Ответить

             • HaskellGovno 22.05.2012 16:02 # 0

               Первым делом подумал написать replicate 10 1, но потом понял, что тогда на говнокод со своим знанием Хаскела не прошел бы. 14 символов. :(

               Ответить

               • guest 22.05.2012 16:37 # 0

                 А нефиг эзотерическую, даешь матан-капчу! Не осилил матан - идешь на метан.

                 Ответить

                 • roman-kashitsyn 22.05.2012 16:52 # +3

                   WolframAlpha всё испортит

                   Ответить

             • TarasB 22.05.2012 16:51 # +3

               Что означает в хахахаскеле доллар и битовый сдвиг вправо?

               Ответить

               • roman-kashitsyn 22.05.2012 16:58 # +1

                 Это означает "замапь константу слева на функтор справа".
                 В нашем случае получается тоже самое, что

                 map (\x -> 1) [0..9] -- или
                 const 1 `map` [0..9]

                 только <$ работает с любыми функторами: деревьями, Maybe и т.п.

                 Ответить

         • rat4 22.05.2012 15:19 # +1

           C++ капча может быть не менее увлекательной:
           http://stackoverflow.com/questions/9515327/default-constructors-initialization-of-pod-and-implicit-type-conversions-in-c

           Ответить

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

   Ошибка компиляции комментария:

   1. Гости могут высказаться только во вторник, пятницу или субботу

   Я, guest, находясь в здравом уме и твердой памяти, торжественно заявляю:

   А не использовать ли нам bbcode?

   • [b]жирный[/b] — жирный
   • [i]курсив[/i] — курсив
   • [u]подчеркнутый[/u] — подчеркнутый
   • [s]перечеркнутый[/s] — перечеркнутый
   • [blink]мигающий[/blink] — мигающий
   • [color=red]цвет[/color] — цвет (подробнее)
   • [size=20]размер[/size] — размер (подробнее)
   • [code=<language>]some code[/code] (подробнее)

   Проверочный код: *