Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+136
(defparameter *pcl-files-map*
'#(("introduction-why-lisp"
"Введение: почему Lisp?"
"%D0%B2%D0%B2%D0%B5%D0%B4%D0%B5%D0%BD%D0%B8%D0%B5%D0%BF%D0%BE%D1%87%D0%B5%D0%BC%D1%83lisp") ; <- WTF???
("lather-rinse-repeat-a-tour-of-the-repl"
"Намылить, смыть, повторить: знакомство с REPL"
"%D1%82%D1%83%D1%80%D0%B2repl") ; <- WTF???
;; ...
))
Practical Common Lisp такой Practical.
https://github.com/archimag/rulisp/blob/master/src/pcl.lisp
Матёрые лисперы просветите, если я что-то не понимаю: неужели хранение ссылок в исходном коде в таком виде чем-то обосновано?
roman-kashitsyn,
13 Октября 2011
−97
Private Sub CommandButton1_Click() 'необходимо
For q = 2 To 500
For w = 25 To 34
For e = 3 To 13
If Лист1.Cells(q, 4) = "Затрачено [...]" Or Лист1.Cells(q, 4) = "Затрачено на [...]" Then
If Лист1.Cells(q, 7) = Лист11.Cells(w, 1) Then
If Лист1.Cells(q, 6) = Лист11.Cells(3, e) Then
Лист11.Cells(w, e) = Лист11.Cells(w, e) + Лист1.Cells(q, 5)
Rem Лист1.Cells(q, 11) = 151
End If
End If
End If
Next
Next
Next
End Sub
...
TextBox4.Value = CLng(cdop1 * (TextBox15.Value * Лист5.Cells(10, 11)) + cdop2 * (TextBox15.Value * Лист5.Cells(10, 11))) + CLng(TextBox53.Value)
...
Лист1.Cells(a, 45) = TextBox32.Value ' отсрочка
If IsDate(TextBox58.Value) And IsDate(TextBox62.Value) Then
Лист1.Cells(a, 46) = CDate(TextBox62.Value) - CDate(TextBox58.Value) ' прошло дней
End If
Лист1.Cells(a, 47) = TextBox55.Value ' зарплата
Лист1.Cells(a, 48) = TextBox63.Value ' штраф
If CheckBox6.Value = True Then
Лист1.Cells(a, 49) = 1 ' комплект
Else
Лист1.Cells(a, 49) = 0
End If
Ну и так далее.
Беда, коль пироги начнёт печи сапожник, а макросы писать бухгалтер.
lucidfox,
11 Октября 2011
+163
switch(true) {
case ((0x7F & $bytes) == $bytes):
// this case should never be reached, because we are in ASCII range
// see: http://www.cl.cam.ac.uk/~mgk25/unicode.html#utf-8
return chr(0x7F & $bytes);
case (0x07FF & $bytes) == $bytes:
// return a 2-byte UTF-8 character
// see: http://www.cl.cam.ac.uk/~mgk25/unicode.html#utf-8
return chr(0xC0 | (($bytes >> 6) & 0x1F))
. chr(0x80 | ($bytes & 0x3F));
case (0xFFFF & $bytes) == $bytes:
// return a 3-byte UTF-8 character
// see: http://www.cl.cam.ac.uk/~mgk25/unicode.html#utf-8
return chr(0xE0 | (($bytes >> 12) & 0x0F))
. chr(0x80 | (($bytes >> 6) & 0x3F))
. chr(0x80 | ($bytes & 0x3F));
}
В одной из реализаций JSON.php
* @package Services_JSON
* @author Michal Migurski <[email protected]>
* @author Matt Knapp <mdknapp[at]gmail[dot]com>
* @author Brett Stimmerman <brettstimmerman[at]gmail[dot]com>
* @copyright 2005 Michal Migurski
* @version CVS: $Id: JSON.php,v 1.31 2006/06/28 05:54:17 migurski Exp $
* @license http://www.opensource.org/licenses/bsd-license.php
* @link http://pear.php.net/pepr/pepr-proposal-show.php?id=198
lobovkin,
10 Октября 2011
+162
var BrowserDetect={
init: function () {
this.browser=this.searchString(this.dataBrowser) || "An unknown browser";
this.version=this.searchVersion(navigator.userAgent)
|| this.searchVersion(navigator.appVersion)
|| "an unknown version";
this.OS=this.searchString(this.dataOS) || "an unknown OS";
},
searchString: function (data) {
for (var i=0;i<data.length;i++) {
var dataString=data[i].string;
var dataProp=data[i].prop;
this.versionSearchString=data[i].versionSearch || data[i].identity;
if (dataString) {
if (dataString.indexOf(data[i].subString) !=-1)
return data[i].identity;
}
else if (dataProp)
return data[i].identity;
}},
searchVersion: function (dataString) {
var index=dataString.indexOf(this.versionSearchString);
if (index==-1) return;
return parseFloat(dataString.substring(index+this.versionSearchString.length+1));
},
dataBrowser: [
{
string: navigator.userAgent,
subString: "Chrome",
identity: "Chrome"
},
{ string: navigator.userAgent,
subString: "OmniWeb",
versionSearch: "OmniWeb/",
identity: "OmniWeb"
},
},
...... // сокращу
{
string: navigator.userAgent,
subString: "MSIE",
identity: "Explorer",
versionSearch: "MSIE"
},
{
string: navigator.userAgent,
subString: "Gecko",
identity: "Mozilla",
versionSearch: "rv"
},
{
string: navigator.userAgent,
subString: "Mozilla",
identity: "Netscape",
versionSearch: "Mozilla"
}
],
dataOS : [
{
string: navigator.platform,
subString: "Win",
identity: "Windows"
},
{
string: navigator.platform,
subString: "Mac",
identity: "Mac"
},
{
string: navigator.userAgent,
subString: "iPhone",
identity: "iPhone/iPod"
},
{
string: navigator.platform,
subString: "Linux",
identity: "Linux"
}
]
};
BrowserDetect.init();
Самое интересное, что после сего мудозвонства в коде идет : google.load("jquery", "1"); ради одной карусельки.
http://sng.garena.com/ - вот здесь этот стыд, и много-много чего еще интересного.
jQuery,
09 Октября 2011
+123
При попытке выйти с из логина:
http://govnokod.ru/user/exit/?url=http%3A%2F%2Fgovnokod.ru%2Fadd
получаем говно:
Fatal error: Allowed memory size of 134217728 bytes exhausted (tried to allocate 72 bytes) in /home/striker/www/index.php on line 507
ohlol,
06 Октября 2011
+164
$alice = array_reduce(array($bob, $charlie), create_function('$a,$b', 'return "$a$b";'));http://www.sklar.com/blog/archives/116-Let-a-thousand-string-concatenations-bloom.html
jokz,
03 Октября 2011
+83
defaultHomeName = read("defaultHomeName") == null ? "1" : read("defaultHomeName");
homesPerPage = Integer.getInteger(read("homesPerPage")) == null ? 9 : Integer.getInteger(read("homesPerPage"));
correctRegex = read("correctRegex") == null ? "[A-Za-z0-9-]+" : read("correctRegex");
respawnAtHome = load().getProperty("respawnAtHome") == null ? true : readBoolean("respawnAtHome");
teleportToNearest = load().getProperty("teleportToNearest") == null ? false : readBoolean("teleportToNearest");
warmup = (load().getProperty("warmup") == null ? 0 : (int)(readLong("warmup")));
cooldown = load().getProperty("cooldown") == null ? 60 : (int)(readLong("cooldown"));
freezeOnWarmup = load().getProperty("freezeOnWarmup") == null ? true : readBoolean("freezeOnWarmup");Bukkit. Немного из моего плагина. :)
Uhehesh,
02 Октября 2011
+157
/**
* Experiments...
*/
class poltergeist {
private $className;
private $methods;
function __construct() {
$this->className=array(
'page',
'source',
'user',
// etc
);
foreach ($this->className as $v) {
$this->$v = new $v();
$this->methods[$v] = get_class_methods($v);
}
}
function __call($name, $arg){
if ( ($k=$this->arraySearch( $name )) ) {
return $this->$k->$name($arg);
}
}
function arraySearch( $name ){
foreach ( $this->methods as $k=>$v ) {
if ( in_array( $name, $v) ) return $k;
}
return false;
}
}Откопал вот...
istem,
01 Октября 2011
+159
AddEventHandler("iblock", "OnAfterIBlockElementUpdate", Array("MyClass", "OnAfterIBlockElementUpdateHandler"));
class MyClass
{
// создаем обработчик события "OnAfterIBlockElementUpdate"
function OnAfterIBlockElementUpdateHandler(&$arFields)
{
//привязка элементов (формирование комплектов)
if(CModule::IncludeModule('iblock')){
$id=$arFields['ID'];
$i=0;
$komplekt=array();
$elements=array();
$db_props = CIBlockElement::GetProperty(24, $id, "sort", "asc", Array("CODE"=>"KOMPLEKT"));
while($ar_props = $db_props->Fetch()){
$i++;
$komplekt[$i]=$ar_props["VALUE"];
}
for($j=1; $j<=$i; $j++){
$elements[$komplekt[$j]][0]=$id;
for($k=1; $k<=$i; $k++){
if($komplekt[$j]!=$komplekt[$k]){
$elements[$komplekt[$j]][$k]=$komplekt[$k];
}
}
}
for($z=1; $z<=$i; $z++){
CIBlockElement::SetPropertyValueCode($komplekt[$z], "KOMPLEKT", $elements[$komplekt[$z]]);
}
}
//автоматически добавляем скидку в торговом каталоге
if(CModule::IncludeModule('iblock')&& CModule::IncludeModule('catalog')){
$discount10=array();
$discount15=array();
$discount20=array();
$dbProductDiscounts = CCatalogDiscount::GetDiscountProductsList(
array(),
array(),
false,
false,
array()
);
while ($arProductDiscounts = $dbProductDiscounts->Fetch())
{
if($arProductDiscounts['DISCOUNT_ID']==5){
$discount10[]=$arProductDiscounts['PRODUCT_ID'];
}
if($arProductDiscounts['DISCOUNT_ID']==6){
$discount15[]=$arProductDiscounts['PRODUCT_ID'];
}
if($arProductDiscounts['DISCOUNT_ID']==7){
$discount20[]=$arProductDiscounts['PRODUCT_ID'];
}
}
$db_props2 = CIBlockElement::GetProperty(24, $id, "sort", "asc", Array("CODE"=>"SALE"));
while($ar_props2 = $db_props2->Fetch()){
if(!in_array($id, $discount10) && $ar_props2['VALUE']==66){
$discount10[]=$id;
}
if(in_array($id, $discount10) && $ar_props2['VALUE']==""){
$num=count($discount10);
for($i=0; $i<$num; $i++){
if($discount10[$i]==$id){
unset($discount10[$i]);
}
}
}
if(!in_array($id, $discount15) && $ar_props2['VALUE']==67){
$discount15[]=$id;
}
if(in_array($id, $discount15) && $ar_props2['VALUE']==""){
$num=count($discount15);
for($i=0; $i<$num; $i++){
if($discount15[$i]==$id){
unset($discount15[$i]);
}
}
}
if(!in_array($id, $discount20) && $ar_props2['VALUE']==68){
$discount20[]=$id;
}
if(in_array($id, $discount20) && $ar_props2['VALUE']==""){
$num=count($discount20);
for($i=0; $i<$num; $i++){
if($discount20[$i]==$id){
unset($discount20[$i]);
}
}
}
}
if($discount10){
CCatalogDiscount::Update(5, array("ACTIVE"=>"Y", "PRODUCT_IDS"=>$discount10));
}
else{
CCatalogDiscount::Update(5, array("ACTIVE"=>"N"));
}
if($discount15){
CCatalogDiscount::Update(6, array("ACTIVE"=>"Y", "PRODUCT_IDS"=>$discount15));
}
else{Оригинальное форматирование кода сохранено. Код до 7-ой строчки - копипаста из документации. Жаль все не влезло, шедевр
inside,
23 Сентября 2011
−110
Понтовый язык. Не полный по Тьюрингу...
alexoy,
20 Сентября 2011
Follow us!