-
+65.2
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
function kub1
parameters kod
dimension a(16),b(16)
for i=16 to 1 step -1
a(i)=mod(kod,10)
kod=kod/10
kod=int(kod)
endfor
for i=1 to 16 step 1
if a(i)=0
else
n=i
exit
endif
endfor
for i=n to 16 step 1
b(i-(n-1))=a(i)
endfor
k=b(5)
return k
В принципе, пример относится к FoxPro, но так как я не обнаружил его в списке доступных языков при добавлении говнокода, пришлось остановиться на "куче" :) Наткнулся на этот фрагмент недавно при исследовании чужого исходника под Visual Foxpro. Привожу его в первозданном (с учетом форматирования) виде. Весь фрагмент можно было бы заменить на какое-нибудь
FUNCTION kub1
PARAMETERS kod
RETURN SUBSTR(ALLT(STR(kod)),5,1)
но автор, видимо, счел нужным не упрощать себе жизнь :)
ps. Кстати, а как тут в описании код культурно отформатировать ? А то у меня тоже всё влево съехало :)
tvolf,
30 Октября 2009
-
+138.7
- 1
Что бы познать рекурсию надо познать рекурсию.
dim1r,
30 Октября 2009
-
+144.6
- 1
- 2
Правило всегда одно:
Нет unit-тестов - код - говно.
bniwredyc,
26 Октября 2009
-
+75.3
- 1
- 2
- 3
<meta http-equiv="Тип-содержимое" content="text/html; charset=windows-1251"><meta http-equiv="Тип-содержимое" content="text/html; charset=windows-1251">
<meta http-equiv="Тип-содержимое" content="text/html; charset=windows-1251"><meta http-equiv="Тип-содержимое" content="text/html; charset=windows-1251">
<meta http-equiv="Тип-содержимое" content="text/html; charset=windows-1251"><meta http-equiv="Тип-содержимое" content="text/html; charset=windows-1251"><meta http-equiv="Тип-содержимое" content="text/html; charset=windows-1251">
Случайно открыл исходный код заглавной страницы сайта utel.tv, а там вот так указывают Content-Type, видимо чтобы непонятливые браузеры поняли хотя-бы с седьмого раза. Может объяснить им, что тип контента это конечно оно, но не туда? :)
eveel,
20 Октября 2009
-
+134.7
- 1
- 2
- 3
- 4
Настоящая шиза - это когда ты сидишь часами и придумываешь говнокод по извращённей,
только для того что бы выложить его на govnokod.ru
:)
переделка одной цитаты с баша (с)
nico-izo,
11 Октября 2009
-
+89.4
- 1
- 2
- 3
- 4
- 5
- 6
- 7
<option name="d">
<select value="collection">Коллекции</select>
<select value="cash">В наличии</select>
<select value="documents">Выставки</select>
<select value="bio">Биография</select>
<select value="int">Интерьер</select>
</option>
HTML без комментариев) Я валялся от смеха, когда увидел :D
greevex,
30 Сентября 2009
-
+65.2
- 1
perl -MIO::All -e 'print io("-index-.cgi")->all' > index.dev.cgi
А как ещё скопировать файл начинающий на -?
Suor,
30 Сентября 2009
-
+65
- 1
- 2
- 3
<div class="frame" style="width: 298px;//width: 350px;//padding-left: 20px;">
<!-- Content -->
</div>
Да-да, именно так, со слешами, в рабочем проекте и есть. решил не трогать
Shock,
30 Сентября 2009
-
+64.1
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
<?php
echo "<br><br>";
echo "<a href='index.php'>На главную</a> |
<a href='reg.php'>Регистрация</a> |
<a href='stat.php'>Статистика</a><br><hr width=80%>
<div class=info>Создано при участии gxcreator и kuprik17. Все права у них и ниипёт!<br>
Кто спиздит код, тому просто пиздец будет,<br>
руки оторвем и в жопу вставим!! Ясно, бля?!</div>";
?>
Еще много интересного кода: http://www.google.com/codesearch?hl=ru&lr=&q=%D0%B6%D0%BE%D0%B F%D1%83&sbtn=%D0%9F%D0%BE%D0%B8%D1%81%D0 %BA
Serge,
26 Сентября 2009
-
+66.8
Классика консоли CS
Сан Саныч,
24 Сентября 2009