1. Список говнокодов пользователя Fai

    Всего: 56

  2. Куча / Говнокод #12117

    +131

    1. 1
    main = return $ (.)(.)

    Fai, 13 Ноября 2012

    Комментарии (13)

  3. C++ / Говнокод #12098

    +18

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    bool isRightTriangle(int a, int b, int c)
{
    int przeciw=a;
	if (b>przeciw) przeciw = b;
	if (c>przeciw) przeciw = c;

	if (przeciw=a)
		if (a*a==b*b+c*c) return true;
	else if (przeciw=b)
		if (b*b==a*a+c*c) return true;
	else if (przeciw=c)
		if (c*c==a*a+b*b) return true;
            
    return false;
}

    Fai, 11 Ноября 2012

    Комментарии (78)

  4. Куча / Говнокод #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

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

  5. Куча / Говнокод #12090

    +120

    1. 1
    clearScreen = putStr $ take 50 (repeat '\n')

    Написано нормально, но вот задумка...

    Fai, 10 Ноября 2012

    Комментарии (26)

  6. Куча / Говнокод #12083

    +124

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    data Trivalent = TriFalse | TriUnknown | TriTrue deriving (Show, Eq, Ord)

(&) :: Trivalent -> Trivalent -> Trivalent -- &&
(!) :: Trivalent -> Trivalent -> Trivalent -- ||
nt :: Trivalent -> Trivalent -- not

    В хасскеле нет класса для логических значений. А значит хрен переопределишь операторы &&, || и функцию not

    Fai, 08 Ноября 2012

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

  7. Куча / Говнокод #12068

    +129

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    -- Подготовка
(.-) :: ot -> (ot -> rt) -> rt
object .- method = method object

to_string () self = show self

my_array = [1..]

-- ООП в действии
main = putStrLn( my_array.-take(10).-drop(5).-to_string() )

    Хаскелл и ООП.

    Fai, 07 Ноября 2012

    Комментарии (31)

  8. Haskell / Говнокод #12056

    −82

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    only :: (Integral nt) => nt -> [Bool]
only n = [ x `mod` n == 0 | x <- [0..] ]

each :: (Integral nt) => nt -> [a] -> [a]
each n xs = [ snd x | x <- filter fst $ zip (only n) xs ]

main = do print $ each 2 [1,2,3,4,5,6,7,8,9]

    Haskell. Получение каждого n-го элемента списка.

    Fai, 05 Ноября 2012

    Комментарии (104)

  9. Python / Говнокод #12024

    −106

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    def accordance_score( required, estimated ):
	q = 0.5
	scan_length = max( len(required), len(estimated) )
	result = 0.0

	i = 0
	j = 0
	while (i < len(estimated)) and (j < len(required)):
		if estimated[i].upper() == required[j].upper():
			result += q ** x
			j += 1

		i += 1

	return result / ( (q ** scan_length - 1) / (q - 1) )

    Не могу доказать человеку, что код - говно. Помогите.

    Fai, 30 Октября 2012

    Комментарии (35)

  10. C++ / Говнокод #11967

    +9

    1. 1
    http://ideone.com/vvkWO4

    Fai, 21 Октября 2012

    Комментарии (8)

  11. Си / Говнокод #11842

    +141

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    9. 9
    #include "statements.h"
#include "lexer.h"
#include "conditions.h"
#include "variables.h"
#include "generator.h"
#include "labels.h"
#include "types.h"
#include "errors.h"
#include "io.h"

    В одном из cpp-файлов такой вот нехилый список инклудов.

    Fai, 27 Сентября 2012

    Комментарии (6)