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

    +125

    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
    (defun question-2 ()
  (let ((b '(1 2 3))
        (a '(1 2 3 4))
        (com (make-hash-table :test #'equal)))
    (labels ((put-sorted (x)
               (let ((key
                      (sort
                       (flatten
                        (copy-tree x)) #'<)))
                 (if (gethash key com)
                     (incf (gethash key com))
                     (setf (gethash key com) 1)))))
      (values (remove-if
       #'(lambda (x)
           (prog ((results
                  (do ((x x (cdr x)) (r))
                      (nil)
                    (setf r (append (cadar x) r))
                    (when (null (cdr x))
                      (return r)))))
             (dolist (y a)
               (when (not (member y results))
                 (go remove-it)))
             (put-sorted results)
             (go keep-it)
             remove-it (return t)
             keep-it nil))
       (all-functions b (cartesian-product a))) com))))

    Ну, чем бы еще порадовать. Вот, родилось во время проверки домашних заданий :)

    wvxvw, 29 Мая 2012

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

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

    +62

    1. 1
    2. 2
    <<<<<<<<<<<<<<<<<===============================>>>>>>>>>>>>>>>>>
                                                  АДМИН - ПИДОР!!!

    uiopqwertyasd, 29 Мая 2012

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

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

    +73

    1. 1
    С каким наслаждением я засадил бы администратору этого сайта по самое грызло!

    uiopqwertyasd, 29 Мая 2012

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

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

    +67

    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
    функция анальнаяКара(имяЖертвы){
снятьШтаны();
снятьТрусы();
подойтиК(имяЖертвы);
нагнутьРаком(имяЖертвы);
всадитьЧленВЖопу(имяЖертвы);
активноДвигатьЧленом();
испытатьОргазм();
вынутьЧленИзЖопы(имяЖертвы);
}

анальнаяКара("Администратор этого сайта");

выход();

    uiopqwertyasd, 28 Мая 2012

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

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

    +88

    1. 1
    2. 2
    Посоны, Я думал, что то, что вы здесь выкладываете - это выдумки и неправда. 
Теперь Я работаю в команде...

    nolka4, 28 Мая 2012

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

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

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

    +137

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

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

    ykhrustalev, 23 Мая 2012

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

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

    +124

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

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

    HaskellGovno, 20 Мая 2012

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

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

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

    +116

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

    HaskellGovno, 20 Мая 2012

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