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

    +128

    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
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 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)

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

    +117

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

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

    +139

    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
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 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)

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

    +128

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

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

    +131

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

    Fai, 13 Ноября 2012

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

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

    +121

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

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

    +127

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

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

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

    +120

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

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

    Fai, 10 Ноября 2012

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

  10. Куча / Говнокод #12085

    +124

    1. 1
    2. 2
    3. 3
    4. 4
    main =do
        let b = 56
        let b = b+1
        print b

    Зачем есть возможность задавать переменные с однаковыми именами, если их использовать ниже всё равно нельзя?
    http://ideone.com/b1DGYF

    LispGovno, 09 Ноября 2012

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