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

    +122

    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
    <table border='0' cellspacing='1' cellspacing='1' width=707>
  <thead>
    <a>
      <th width=44 align='center'>
        <IMG name='Image300' SRC='images/check.gif' height='22' width='44'>
      </th>
    </a>
    <a href=javascript:SortForm('Agent_Name');>
      <th  class='header'>Name</th>
    </a>
    <a href=javascript:SortForm('Description');>
      <th class='header'>Description</th>
    </a>
  </thead>

    Сортировка таблицы по полю при нажатии на заголовок. Код отформатирован для читабельности.

    roman-kashitsyn, 28 Мая 2012

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

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

    +137

    1. 1
    http://<api-host>/admin/questions?utf8=✓&skill_id=71

    сервер: сер, как у вас с utf8?
    клиент: все ОК

    ykhrustalev, 23 Мая 2012

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

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

    +124

    1. 1
    f = (((.) flip) . (((flip (.)) flip) . ((.) . (.))))

    Для тех кто не смог догадаться это {spoiler} f x1 x2 x3 x4 = x1 (x2 x3 x4) {/spoiler}

    HaskellGovno, 20 Мая 2012

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

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

    +119

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    s f g x = f x (g x)
k x y   = x
b f g x = f (g x)
c f g x = f x g
y f     = f (y f)
cond p f g x = if p x then f x else g x
fac  = y (b (cond ((==) 0) (k 1)) (b (s (*)) (c b pred)))

    HaskellGovno, 20 Мая 2012

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

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

    +116

    1. 1
    append x = foldr (map (:) x) id

    HaskellGovno, 20 Мая 2012

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

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

    +119

    1. 1
    2. 2
    import Control.Monad.Reader
head >>= (:)

    HaskellGovno, 20 Мая 2012

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

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

    +119

    1. 1
    foldr ((.) . (:)) id

    HaskellGovno, 20 Мая 2012

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

  8. Куча / Говнокод #10305

    +130

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    Вакансия: Программист Java
Требования:
    ....
    знание компьютерных программ: Java, pl/sql, Eclipse, Oracle Repotrs приветствуется;
    ....

    Не совсем то, но не мог пройти мимо.

    -EZ-, 17 Мая 2012

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

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

    +126

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    IF NOT SY-SUBRC IS INITIAL.
*  Do nothing
ELSE.
*  MESSAGE 'Дебитор не найден'(040) TYPE 'S' DISPLAY LIKE 'E'. 
*  Do nothing xD
ENDIF.

    Пускай всё идёт своим чередом ^_^

    niko, 14 Мая 2012

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

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

    +115

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    9. 9
    count c l = length $ filter (c==) l
 
main = do 
        l <- getLine
        let
                f = count '(' l
                s = count ')' l
        in
        print $ f s (f==s)

    Посоны, как смешивать монадический код и не монадический?
    http://ideone.com/yRGDk
    Чистый код let in не хочет в монду.

    HaskellGovno, 14 Мая 2012

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