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

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

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

+127

1
2
3
4
5

if(Normal(Pawn.Acceleration) Dot Vect(1,0,0) > 0)
      {
         tempRot.Yaw = 0;
         Pawn.SetRotation(tempRot);
      }

Из туториала по UDK. Почему просто не написать Pawn.Acceleration > 0 ?

tirinox, 12 Ноября 2012

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

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

+125

1
2
3
4
5
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)

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

+120

1

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

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

Fai, 10 Ноября 2012

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

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