Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+135
(+ 3 5)
(* 5 6 7)
(kupitj bulochnaja baton)
Можно записать выражения и посложнее:
(kupitj bulochnaja baton (+ 2 1))
«Купи в булочной батоны: два плюс ещё один». Просто, не правда ли? Давайте двигаться дальше.
(define (privet imja)
(display "Privet ")
(display imja)
(display "!")
(newline))
(define (polzovatel)
(write "Predstavtes:")
(read))
(privet (polzovatel))
Нашел этот пиздец в Введение в язык Scheme для школьников, сначала подумал что автор таким образом заставляет работать мозг школьника(пища все таки) но нет подобное продолжается. К сожалению полной версии "учебника" не имею надеюсь подобное затрагивает только вступление и дальше будет лучше..
З.ы думаю первый говнокод на Scheme....(:
Epik,
25 Июня 2011
+134
http://www.govnodesign.ru/Видали?=)
1_and_0,
24 Июня 2011
+136
<td colspan="3" rowspan="2">
<script>
if(hsub>0){
document.write(
'<table id=tans width=669 height=109 border=0 cellpadding=0 cellspacing=0 style=position:absolute;top:'+(ah-hsub)+'px>')
}else{
document.write(
'<table id=tans width=669 height=109 border=0 cellpadding=0 cellspacing=0>')
}
</script>
<noscript>
<table id=tans width=669 height=109 border=0 cellpadding=0 cellspacing=0>
</noscript>
<tr>Нет слов!
Joe_MD,
22 Июня 2011
+131
(defparameter n 2)
(setf middle (make-array 2 :initial-element 0))
(defparameter v 7)
(setf tr (make-array `(,(+ 1 n) ,n) :initial-element 4))
(setf ftr (make-array 3 :initial-element 1))
(defun pow (x n)
(cond((= n 0) 1)((= n 1) x)(T (* x (pow x (- n 1))))))
(defun f1 (x y)
(+ (* (pow v 2) (pow x 2))
(* (/ v (+ v 1)) x)
(* 15 (+ v 1) (pow y 2))
(* -1 2 v y) (* 4 v)))
(defun sigma1 (a)
(* a (/ (+ (sqrt (+ n 1)) (- n 1))
(* n (sqrt 2))) ))
(defun sigma2 (a)
(* a (/ (+ (sqrt (+ n 1)) -1)
(* n (sqrt 2))) ))
(defun setp (a)
(loop for i from 1 to n do
(loop for j from 0 to (- n 1) do
(cond
((= (- i 1) j) (setf (aref tr i j) (+ (aref tr 0 0) (sigma2 a))))
(T (setf (aref tr i j) (+ (aref tr 0 1) (sigma1 a))))))))
(defun evalfun ()
(loop for i from 0 to n do
(setf (aref ftr i) (f1 (aref tr i '0) (aref tr i '1)))
(format t "The functions in dot ~$:~$~$" `(,(aref tr i '0) ,(aref tr i '1)) (aref ftr i) #\newline))
(setf ftr (sort ftr #'<)))
(defun midp()
(loop for i from 0 to n do
(cond
((= (aref ftr n) (f1 (aref tr i '0) (aref tr i '1)))
(setq tp i))))
(setf middle (make-array n :initial-element 0))
(loop for i from 0 to n do
(cond
((/= i tp)
(setf (aref middle 0) (+ (aref middle 0) (aref tr i 0)))
(setf (aref middle 1) (+ (aref middle 1) (aref tr i 1))))))
(setf (aref middle 1) (/ (aref middle 1) 2))
(setf (aref middle 0) (/ (aref middle 0) 2))
(format t "The weight center in ~$,~$" (aref middle 0) (aref middle 0))
(princ #\newline))
(defun newp()
(setf (aref tr tp 0) (- (aref middle 0) (aref tr tp 0)))
(setf (aref tr tp 1) (- (aref middle 1) (aref tr tp 1))))
(defun prpolinom()
(format t "Polinom has this dots:~$" #\newline)
(loop for i to n do
(loop for j to (- n 1) do
(format t "|~$|" (aref tr i j)))
(princ #\newline)))
(setq c 1)
(defun mloop(a)
(setp a)
(defun subloop()
(setq c (+ c 1))
(setf tmiddle (make-array n :initial-element 0))
(loop for i to (- n 1) do
(setf (aref tmiddle i) (aref middle i)))
(evalfun)
(midp)
(newp)
(prpolinom)
(cond
((and (= (aref tmiddle 0) (aref middle 0)) (= (aref tmiddle 1) (aref middle 1)))(mloop (/ a 2)))
((> a 0.01) (subloop) (format t "Iteration ~$~$" c #\newline))))
(subloop))
(mloop 2)симплекс метод на Common Lisp=)
zura,
20 Июня 2011
+136
<html>
<head><meta http-equiv="Content-type" content="text/html; charset=UTF-8"></head>
<script type="text/javascript" encoding="UTF-8">
top.location.href = 'http://rghost.ru/10160511';
</script>
</html>
Вот так на ргхосте юзера перекидывают к загруженному файлу.
ЖС отключен? Заголовок Location? Не, не знаем.
7ion,
09 Июня 2011
+129
\begin{equation*}
\begin{split}
\Delta B_m^{(\text{Т})} &= \left(\left(\frac{\upmu_0N}{2L}\left(\frac{\frac{1}{2}L - z}{\sqrt{R^2 + (\frac{1}{2}L - z)^2}} + \frac{\frac{1}{2}L + z}{\sqrt{R^2 + (\frac{1}{2}L + z)^2}}\right)\Delta I\right)^2 + \right.\\
&+ \left(\frac{\upmu_0NI_mD}{8L}\left(\frac{\frac{1}{2}L - z}{\sqrt{(\frac{D^2}{4} + (\frac{1}{2}L - z)^2)^3}} + \frac{\frac{1}{2}L + z}{\sqrt{(\frac{D^2}{4} + (\frac{1}{2}L + z)^2)^3}}\right)\Delta D\right)^2 + \\
&+ \left(\frac{\upmu_0NI_m}{4L^2}\left(\frac{L(\frac{1}{2}L - z)^2}{\sqrt{(R^2 + (\frac{1}{2}L - z)^2)^3}} + \frac{L(\frac{1}{2}L + z)^2}{\sqrt{(R^2 + (\frac{1}{2}L + z)^2)^3}} - \right.\right. \\
&- \left.\left.\frac{2z}{\sqrt{R^2 + (\frac{1}{2}L - z)^2}} + \frac{2z}{\sqrt{R^2 + (\frac{1}{2}L + z)^2}}\right)\Delta L\right)^2 + \\
&+ \left(\frac{\upmu_0NI_m}{2L}\left(\frac{(\frac{1}{2}L - z)^2}{\sqrt{(R^2 + (\frac{1}{2}L - z)^2)^3}} - \frac{(\frac{1}{2}L + z)^2}{\sqrt{(R^2 + (\frac{1}{2}L + z)^2)^3}} - \right.\right. \\
&- \left.\left.\left.\frac{1}{\sqrt{R^2 + (\frac{1}{2}L - z)^2}} + \frac{1}{\sqrt{R^2 + (\frac{1}{2}L + z)^2}}\right)\Delta z\right)^2 \right)^{\frac{1}{2}}
\end{split}
\end{equation*}LaTeX
mityada,
07 Июня 2011
+127
<table>
<tr valign="bottom">
<td<? if($page=='home') {?> id="tec"<? }?>>
<dl>
<dt>01.</dt>
<dd><? if($page!='home') {?><a href="index.php">О компании</a><? } else{?>О компании<? }?></dd>
</dl>
</td>
<td<? if($page=='products') {?> id="tec"<? }?>>
<dl>
<dt>02.</dt>
<dd><? if($page!='products') {?><a href="index.php?page=products">Продукция</a><? } else{?>Продукция<? }?></dd>
</dl>
</td>
<td<? if($page=='contacts') {?> id="tec"<? }?>>
<dl>
<dt>03.</dt>
<dd><? if($page!='contacts') {?><a href="index.php?page=contacts">Контакты</a><? } else{?>Контакты<? }?></dd>
</dl>
</td>
<td<? if($page=='news') {?> id="tec"<? }?>>
<dl>
<dt>04.</dt>
<dd><? if($page!='news') {?><a href="index.php?page=news">Новости</a><? } else{?>Новости<? }?></dd>
</dl>
</td>
</tr>
</table>Меню
De-Luxis,
06 Июня 2011
+139
img[width=120] {
width: 120px;
}Наткнулся в стилях dleшного шаблона....
akim,
02 Июня 2011
+131
/*здесь заданы значения листов x и y соответственно*/
x: [...] $
y: [...] $
...
/*и понеслась*/
xx: [-10] $
for i in create_list(i,i, 2,length(h)) do
xx: append(xx, [i,i]) $
xx: append(xx, [10]) $
yy: [ first(x) ] $
for i in create_list(i,i, 2,length(h)) do
yy: append(yy, [x[i-1],x[i]]) $
yy: append(yy, [last(yy)]) $
plot2d( [discrete, xx,yy] ) $maxima. рисуем кусочно-заданную функцию О_о
ilardm,
31 Мая 2011
+66
.cl-ul .cl-li .cl-li-in{
padding: 10px 12px 10px 10px;
margin: 0 0 10px;
}
.cl-ul .cl-li .cl-li .cl-li-in{
margin-left: 25px;
}
.cl-ul .cl-li .cl-li .cl-li .cl-li-in{
margin-left: 50px;
}
.cl-ul .cl-li .cl-li .cl-li .cl-li .cl-li-in{
margin-left: 75px;
}
.cl-ul .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li-in{
margin-left: 100px;
}
.cl-ul .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li-in{
margin-left: 125px;
}
.cl-ul .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li-in{
margin-left: 150px;
}
.cl-ul .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li-in{
margin-left: 175px;
}
.cl-ul .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li-in{
margin-left: 200px;
}
.cl-ul .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li-in{
margin-left: 225px;
}
.cl-ul .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li-in{
margin-left: 250px;
}
.cl-ul .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li-in{
margin-left: 275px;
}
.cl-ul .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li-in{
margin-left: 300px;
}
.cl-ul .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li-in{
margin-left: 325px;
}
.cl-ul .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li-in{
margin-left: 350px;
}
.cl-ul .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li-in{
margin-left: 375px;
}
.cl-ul .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li-in{
margin-left: 400px;
}
.cl-ul .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li-in{
margin-left: 425px;
}
.cl-ul .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li-in{
margin-left: 450px;
}
.cl-ul .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li-in{
margin-left: 475px;
}
.cl-ul .cl-li .cl-li .cl-form{
margin-left: 25px;
}
.cl-ul .cl-li .cl-li .cl-li .cl-form{
margin-left: 50px;
}
.cl-ul .cl-li .cl-li .cl-li .cl-li .cl-form{
margin-left: 75px;
}
.cl-ul .cl-li .cl-li .cl-li .cl-li .cl-li .cl-form{
margin-left: 100px;
}
.cl-ul .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-form{
margin-left: 125px;
}
.cl-ul .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-form{
margin-left: 150px;
}
.cl-ul .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-form{
margin-left: 175px;
}
.cl-ul .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-form{
margin-left: 200px;
}
.cl-ul .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-form{
margin-left: 225px;
}
.cl-ul .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-form{
margin-left: 250px;
}
.cl-ul .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-li .cl-form{
margin-left: 275px;
}
и т.д.«Древо зла» в стилях одного крупного проекта.
whitespace,
31 Мая 2011
Follow us!