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

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

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

1. PHP (5698)
2. C++ (2733)
3. Куча (2326)
4. JavaScript (2027)
5. C# (1925)
6. Java (1501)
7. Си (1095)
8. Pascal (647)
9. Python (582)
10. 1C (531)
11. SQL (431)
12. ActionScript (292)
13. Objective C (202)
14. bash (197)
15. Perl (194)
16. Assembler (146)
17. Ruby (142)
18. VisualBasic (138)
19. Lua (49)
20. Go (29)
21. Swift (27)
22. Haskell (26)
23. Kotlin (13)

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

   +125

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

   happy_numbers = [ tos (a,b,c,d,e,f a b c d e) | a <- [0..9], b <- [0..9], c <- [0..9], d <- [0..9], e <- [0..9], f a b c d e <= 9, f a b c d e >= 0 ]
   	where 
   		tos (a,b,c,d,e,f) = show a ++ show b ++ show c ++ show d ++ show e ++ show f
   		f a b c d e = a + b + c - d - e
   
   main = mapM print $ happy_numbers

   Запостил: Fai, 11 Ноября 2012

   Tweet

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

   • Fai 11.11.2012 11:22 # +5

     К слову, я охреневаю над хаскелем. Даже говнокод на нём компактный и нормально читается.

     Ответить

     • bormand 11.11.2012 11:34 # +3

       Можно еще вот так поговнокодить:

       import Control.Monad
       
       happy_numbers = do
           a <- [0..9]
           b <- [0..9]
           c <- [0..9]
           d <- [0..9]
           e <- [0..9]
           let f = a + b + c - d - e
           guard (f >= 0 && f <= 9)
           return $ concatMap show [a, b, c, d, e, f]
       
       main = mapM print $ happy_numbers

       Ответить

       • LispGovno 11.11.2012 11:37 # 0

         >let f = a + b + c - d - e
         А как это работает над списками? Аппликативые функторы в монадах?

         Ответить

         • bormand 11.11.2012 11:39 # +1

           Нет, в этой строчке тупо складывают и вычитают самые обычные числа ;)
           Раскури устройство списковой монады, если интересно узнать как это работает.

           Ответить

           • LispGovno 11.11.2012 11:49 # 0

             Как поправить?
             http://ideone.com/QTh4a0

             Ответить

             • Fai 11.11.2012 11:58 # 0

               Это только с монадой контроля работает, а ты пытаешься монаду IO заставить так работать.

               Ответить

               • bormand 11.11.2012 12:11 # +3

                 > монадой контроля
                 Надмозг детектед.

                 Ответить

                 • Fai 11.11.2012 12:14 # 0

                   Контрол монадой? Ни разу не сталкивался с ней просто, перевёл как понял.

                   Ответить

                   • bormand 11.11.2012 12:16 # +1

                     Просто пакет Control, посвященный разным управляющим структурам. А в нем пакет Monad с типичными монадами.
                     
                     P.S. А ну да, там еще функторы в этом пакете.
                     
                     http://hackage.haskell.org/packages/archive/base/latest/doc/html/Control-Monad.html

                     Ответить

             • roman-kashitsyn 11.11.2012 11:59 # +3

               http://ideone.com/akl7Uj
               Ты смешал две монады и ожидаешь, что это будет работать.

               Ответить

               • bormand 11.11.2012 12:20 # +4

                 > Ты смешал две монады...
                 ...а взболтать забыл.

                 Ответить

                 • LispGovno 11.11.2012 13:06 # −1

                   То есть я вернул из майна IO [IO()], а надо было IO()?

                   Ответить

                   • roman-kashitsyn 11.11.2012 13:17 # +2

                     Нет, ты внутри монады списка попытался работать с монадой IO напрямую. Если бы ты в последней строчке написал не print (a,b), а return $ print (a,b), тогда бы ты получил [IO()] (который легко можно превратить в IO ()). А так твоя конструкция do не скомпилится вне зависимости от того, будет она в main или нет.

                     Ответить

       • Fai 11.11.2012 12:09 # 0

         А как сможешь переписать универсальную версию для номеров с длиной 2N
         

         import Data.Char
         
         expand (x:[]) = x
         expand (x:xs) = x ++ (expand xs)
         
         getns 1 = [0..9]
         getns n = expand [(map (\n -> n*10 + a) $ getns (n-1)) | a <- [0..9]]
         
         happy_numbers2 n = [ l*(10^n) + r | l <- getns n, r <- getns n, check l r ]
         	where 
         		check l r = sumof l == sumof r
         		sumof n = sum $ getDigits n
         		getDigits n = map (\c -> (digitToInt c)) (show n)
         
         main = mapM print $ happy_numbers2 4

         Ответить

         • bormand 11.11.2012 14:00 # +1

           Так сойдет? http://ideone.com/JSOVjn

           Ответить

           • LispGovno 11.11.2012 14:08 # −1

             Борманд - хаскеля-бог (притом при жизни) конечно, но грязный монадический код надо минимизировать.

             Ответить

             • bormand 11.11.2012 14:11 # 0

               Хм, грязный код тут только в 18й строке. Все остальное чистое как слеза младенца.

               Ответить

             • Fai 11.11.2012 14:15 # +1

               > грязный монадический код
               
               Монады - это модель грязного мира на чистом языке.
               
               Это как пластиковая какашка. Она только выглядит как побочный эффект.

               Ответить

           • Fai 11.11.2012 14:10 # 0

             Не вижу принципиальных улучшений, за исключением, конечно sumDigits. Кажется, что можно ещё лучше.

             Ответить

   • roman-kashitsyn 11.11.2012 11:32 # +1

     Поддельные счастливые числа: выглядят так же, как счастливые, но радости от них никакой

     Ответить

     • Fai 11.11.2012 11:33 # 0

       Это всё из-за кавычек на выводе.

       Ответить

   • suc-daniil 11.11.2012 11:55 # +6

     Обратитесь вы уже к администрации сайта, пусть сделают категорию «Хаскель».

     Ответить

     • Fai 11.11.2012 11:57 # +3

       И там будет три с половиной говнокода, которые плюсуют по двум причинам:
       1. Ух ты! Хоть что то хаскелевое на говнокоде.
       2. Это же хаскель... Ничего не понимаю, значит говно - плюсану.

       Ответить

       • scriptin 11.11.2012 12:12 # +4

         1. Почему бы нет?
         2. Отличный повод расширить кругозор

         Ответить

         • Fai 11.11.2012 12:15 # +4

           Ладно, пойду напишу.
           
           http://govnokod.reformal.ru/proj/?ia=376309

           Ответить

           • LispGovno 11.11.2012 13:33 # −1

             Плюсанул. Жаль нет промышленых говнокодов, кроме тех что в стандартной библиотеке. Этак будут приходить статистикадрочеры и смотреть: на Хаскеле почти нет говнокодов, а знатчит на нем говнокодить тяжело, а значит язык хороший. Но плюс в том, что мы освободим раздел кучи от Хаскель-говна.

             Ответить

             • Fai 11.11.2012 13:51 # 0

               Хаскель-говно не достойно даже кучи?

               Ответить

             • bormand 11.11.2012 14:07 # +2

               Посмотри 3д шутер на хаскеле, к сожалению я забыл ее название...
               
               UPD: Frag, http://www.youtube.com/watch?v=0jYdu2u8gAU

               Ответить

               • zim 11.11.2012 15:18 # +1

                 Слайдшоу какое-то.

                 Ответить

                 • LispGovno 11.11.2012 15:23 # 0

                   Они портировалипереписали квейк на Хаскель?

                   Ответить

                   • bormand 11.11.2012 15:25 # +1

                     Качай исходники, смотри ;)

                     Ответить

                 • bormand 11.11.2012 15:25 # 0

                   Это видеозахват лагает. Посмотри на счетчик фпс в углу. Сам автор об этом написал в комменте к видео.

                   Ответить

                   • Fai 11.11.2012 15:29 # 0

                     А что-то типа vim есть на хаскеле?

                     Ответить

                     • bormand 11.11.2012 15:35 # 0

                       http://leksah.org/

                       Ответить

                       • Fai 11.11.2012 15:41 # 0

                         Именно vim нужен. С текстовым интерфейсом. Можно без свистелок и перделок.

                         Ответить

                       • LispGovno 11.11.2012 15:41 # −1

                         Кстати мне эта иде больше всех понравилась под хаскель, а кто что посоветует из того что пользовались?

                         Ответить

                         • Fai 11.11.2012 15:44 # +1

                           > а кто что посоветует из того что пользовались?
                           
                           Для всех языков использую Sublime Text 2. Рекомендую попробовать.

                           Ответить

                           • LispGovno 11.11.2012 15:50 # 0

                             Для Хаскеля подсветка синтаксиса, автодополнение кода, снипеты, показывает типы выражений при подводе мышью?

                             Ответить

                             • Fai 11.11.2012 17:12 # 0

                               Подсветка, "тупое" автодополнение, снипеты (легко делать новые), типы может показывать с плагином.
                               
                               Рекомендую уже всё-таки попробовать.

                               Ответить

                       • scriptin 11.11.2012 15:42 # 0

                         Не соответствует по пункту "типа vim". Где вставка из буфера обмена через

                         "+gP

                         ? Откуда столько меню и кнопок?

                         Ответить

                         • Fai 11.11.2012 15:44 # 0

                           Да да да. Интерфейс перегружен.

                           Ответить

                     • Yuuri 11.11.2012 20:38 # +3

                       Есть http://www.haskell.org/haskellwiki/Yi

                       Ответить

                       • roman-kashitsyn 11.11.2012 21:46 # −1

                         Ты так говоришь, как будто хоть раз его запускал :)

                         Ответить

                         • Yuuri 11.11.2012 22:52 # +1

                           Но ведь он правда есть!

                           Ответить

                           • roman-kashitsyn 11.11.2012 23:30 # +2

                             Его практически нет для пользователей Windows и с плясками с бубном для пользователей Linux, чей дистрибутив унаследован от Debian (на Федоре так и не собрался у меня).
                             
                             А так редактор неплохой, довольно шустрый, правда, мутные глюки портят всё впечатление. Ну и мне почему-то кажется, что динамические языки лучше подходят в качестве языка расширения для интерактивных программ вроде текстового редактора.

                             Ответить

                             • unu-foja 12.11.2012 08:23 # 0

                               Динамическая надстройка выглядит как более расово-верный подход (тот же yi зависит от hint): то есть рантайм таскается выборочно. Другое дело, что сложность этого подхода намного выше (и существующая надстройка не идеал), и до elisp пока как до китая в плане удобства.

                               Ответить

                   • zim 11.11.2012 16:01 # 0

                     Да, не обратил внимание.

                     Ответить

     • Lure Of Chaos 11.11.2012 14:22 # +3

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

       Ответить

       • LispGovno 11.11.2012 14:38 # −1

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

         Ответить

         • Lure Of Chaos 11.11.2012 14:40 # 0

           нет, просто слишком много всяческого рода экспериментов

           Ответить

           • bormand 11.11.2012 14:49 # 0

             s/экспериментов/экскрементов/;

             Ответить

       • Fai 11.11.2012 15:15 # +7

         Дискриминация по парадигмальному признаку!

         Ответить

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

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

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

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

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

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

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