- 1
GOTO END;
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+144
GOTO END;
+144
GOTO END;
+144
GOTO END;
+144
GOTO END;
+141
GOTO END;
+127
# My first attempt in J:
+/(>/)"1 <.@(10&^.)(2 & x:) (+%)/\(1x,1000$2)
# It gave the right answer, but took about an hour.
# Based on other people's comments I went back and figured out the relationship
# between one answer and the next, and came up with this,
# which runs in less than 1 second:
((((0{])+([:$[:":1{])>([:$[:":2{])),(1{]+2*2{]),1{]+2{])^:1000) 0 3x 2x
http://projecteuler.net/thread=57;page=2
Как на этом можно писать?
+136
http://www.jackrussell-italy.it/
Весь сайт - одни картинки с мапами.
Страница, на ней картинка, к ней привязана карта.
Причем разные версии для каждого языка.
Fuck html5! Fuck css3!
+66
Как вас зовут?
+124
http://pastebin.com/Wz1AHMh8
Поскольку на уютненьком снова завелся унылый флудер, выкладываю доработанную версию автоскрывателя коментариев.
Теперь банановый с поддержкой аякс-подгрузки!
+125
(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))))
Ну, чем бы еще порадовать. Вот, родилось во время проверки домашних заданий :)