Куча — Говнокод.ру

Куча / Говнокод #12195

+120

1
2
3
4
5
6

<style>
.pitalic {
    font-style:italic;
}
</style>
<p class = 'pitalic'>блаблабла</p>

прям новый супергерой...

Snickers, 25 Ноября 2012

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

Куча / Говнокод #12193

+124

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18

samples = [(1,14),(2,-66),(3,-414),(4,-1180),(5,-2370),(6,-3726),(7,-4606),(8,-3864),(9,270)]
 
-- Бесконечная система уравнений для МНК
system s = zip (matrix s) (column s) where
    matrix = iterate tail . foldr1 (zipWith (+)) . map (\(x,y) -> iterate (*x) 1)
    column = foldr1 (zipWith (+)) . map (\(x,y) -> iterate (*x) y)
 
-- Сведение бесконечной системы к треугольному виду (первый шаг гаусса)
triangle (eq:eqs) = (eq : triangle (map (sub eq) eqs)) where
    sub eq1@(a1:as, ae) eq2@(b1:bs, be) = (zipWith f as bs, f ae be) where
        f a b = b - a * b1 / a1
 
-- Вычисление иксов (второй шаг гаусса)
calcX n = foldr calc [] . take n where
    calc (a:as, b) xs = ((b - sum (zipWith (*) as xs)) / a : xs)
 
-- метод наименьших квадратов
mnk n = reverse . calcX n . triangle . system

Метод наименьших квадратов.

http://ideone.com/CsD0ku

bormand, 25 Ноября 2012

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

Куча / Говнокод #12192

+125

01
02
03
04
05
06
07
08
09
10

splitOn :: (a -> Bool) -> [a] -> [[a]]
splitOn _ [] = []
splitOn f xs = removeEmpty $ takeWhile (not . f) xs: splitOn f (dropWhile (f) $ dropWhile (not . f) xs) where
	removeEmpty [] 	= []
	removeEmpty (x:xs) 
		| null x 	= removeEmpty xs 
		| otherwise = x: removeEmpty xs

words' :: String -> [String]
words' = splitOn (flip elem " \n\r\f\t\v\160")

Еще один words'

Fai, 25 Ноября 2012

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

Куча / Говнокод #12181

+123

1

val ret = method.invoke(this, args:_*)

Превращаем Array[Any] в жабовый Object[] в Scala.

myaut, 23 Ноября 2012

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

Куча / Говнокод #12179

+128

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

data Mode = Start | Read | Skip | End
data State = State Mode String String [String]

space c = elem c [' ', '\n', '\r', '\f', '\t', '\v', '\160']

end r     = State End "" "" r
skip t r  = State Skip t "" r
get t w r = State Read t w r
start t   = State Start t "" []

step (State Start at@(t:ts) w r)
	| space t   = step $ skip at r
	| otherwise = step $ get at w r

step (State Read at@(t:ts) w r)
	| space t   = step $ skip at $ r ++ [w]
	| otherwise = step $ get ts (w ++ [t]) r

step (State Skip at@(t:ts) _ r)
	| space t   = step $ skip ts r
	| otherwise = step $ get at "" r

step (State Start "" _ r) = step $ end r
step (State Read "" w r)  = step $ end $ r ++ [w]
step (State Skip "" _ r)  = step $ end r

step (State End _ _ r) = r

words' text = step $ start text

Решил все-таки выложить этот позор. Если есть предложения по улучшению - с радостью выслушаю.

Fai, 23 Ноября 2012

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

Куча / Говнокод #12155

+117

1
2
3
4
5
6
7

data Pitch = Pitch Integer

pitch t o = Pitch (o*12 + t)

freq (Pitch p) = a4 * 2**(i/12) where
	i = fromIntegral (p - 57)
	a4 = 440

Fai, 20 Ноября 2012

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

Куча / Говнокод #12148

+139

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37

<div class="slogan">
  <table>
    <tbody>
      <tr>
        <td>В</td>
        <td class="r"> </td>
        <td>с</td>
        <td class="r"> </td>
        <td>ё</td>
        <td> </td>
        <td class="r"> </td>
        <td>ч</td>
        <td class="r"> </td>
        <td>т</td>
        <td class="r"> </td>
        <td>о</td>
        <td> </td>
        <td class="r"> </td>
        <td>д</td>
        <td class="r"> </td>
        <td>в</td>
        <td class="r"> </td>
        <td>и</td>
        <td class="r"> </td>
        <td>ж</td>
        <td class="r"> </td>
        <td>е</td>
        <td class="r"> </td>
        <td>т</td>
        <td class="r"> </td>
        <td>с</td>
        <td class="r"> </td>
        <td>я</td>
      </tr>
    </tbody>
  </table>
</div>

Разрядка слогана "ВСЁ ЧТО ДВИЖЕТСЯ" на motor.ru

Yurik, 18 Ноября 2012

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

Куча / Говнокод #12119

+128

1
2
3
4
5

right_triangles = [ (a, b, c a b) | b <- [1..], a <- [1..b], isRight a b ]
	where
		rc a b = sqrt $ fromIntegral (a^2 + b^2)
		c a b = round $ rc a b
		isRight a b = (rc a b) == fromIntegral (c a b)

Fai, 14 Ноября 2012

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

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

+131

1

main = return $ (.)(.)

Fai, 13 Ноября 2012

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

Куча / Говнокод #12113

+121

1
2
3
4
5
6
7

Поздравляю, дамы и господа, крупнейшая электронная библиотека русских книг lib.rus.ec попала в России под запрет.

    Искомый ip адрес внесен в реестр
    Дата основания для внесения в реестр 05.11.2012
    Номер основания для внесения в реестр 2/2/16482
    Орган, принявший решение о внесении в реестр ФСКН
    Дата внесения в реестр 11.11.2012

zapret-gov.ru

Fatal error: Cannot redeclare get_web_page() (previously declared in /home/u749066976/public_html/parser.php:7) in /home/u749066976/public_html/parser.php on line 35

bot, 13 Ноября 2012

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

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