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

    +129

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    funktion = binary find
(array element start end) : start = 0, end = array::length {
[IF} = END - START = 1 THEN RETURN >? start <- array = element ??? start ELSe -1
ELSE
int * k = start + end - start >> 1
IF {element < array::k> ELSE binary find(array element k end THEN := binary find(array element start k); RETURN <<<
}

    Двоичный поиск такой двоичный

    fuckyounoob, 22 Апреля 2011

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

  2. SQL / Говнокод #6448

    −860

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    -- Из простого...
select kdet, cexnum, cex, last_value(cex) over(partition by kdet) as final_cex
from xxtpa_rout_aztpa_v;

-- Сделаем сложное...
select t.*, max(max_cex) over(partition by kdet, rout_num) max_cex
from (select t.*, case cex_num when max(cex_num) over(partition by t.kdet, t.rout_num) then t.cex else null end max_cex
from xxtpa_rout_aztpa_v t) t;

    Пример того, как НЕ применять KISS-принцип.

    dwinner, 22 Апреля 2011

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

  3. PHP / Говнокод #6447

    +163

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="<?php echo $this->language; ?>" lang="<?php echo $this->language; ?>" dir="<?php echo $this->direction; ?>">
<head>
	<jdoc:include type="head" />
	<link rel="stylesheet" href="<?php echo $this->baseurl ?>/templates/system/css/general.css" type="text/css" />
	<?php
	$db = & JFactory::getDbo();
		$query	= 'SELECT template'
				. ' FROM #__templates_menu'
				. ' WHERE client_id = 0 AND menuid = 0';

		$db->setQuery($query);
		$template = $db->loadResult();

    Кусок шаблона для джумлы.

    Lurk, 22 Апреля 2011

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

  4. JavaScript / Говнокод #6446

    +151

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    var Nothing = function () { return Nothing; }

var NewNothing = new new new new new Nothing();

console.log(NewNothing == Nothing); // true

    Небольшая фантазия. Но работает!)

    Shock, 22 Апреля 2011

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

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

    +148

    1. 1
    А может, стоит добавить категорию для лаб/уроков? А то искать искры истинных какашек среди php-datetime'ов и студенческих поделок становится действительно трудно.

    byss, 21 Апреля 2011

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

  6. Pascal / Говнокод #6444

    +107

    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
    procedure TFCar.Button3Click(Sender: TObject);
 begin
 gUpload.Visible:= True;
 Button3.Enabled:= False;
 bClear.Enabled:= False;
 bAdd.Enabled:= False;
 bCreateOrder.Enabled:= False;
 bCloce.Enabled:= False;
 mysleep(100);
 sleep(10000);
 ShowMessage('sleep off');
 end;
 ----------------
 procedure mysleep(i:Integer);
 var
 z:Integer;
 begin
 for z:=0 to i do
 begin
 Sleep(5);
 Application.ProcessMessages;
 end ;
 end;
 ---------------
 это немного помогло решить проблему... кнопки становятся неактивными до выполнения sleep(10000);

    Немного классического торможения двигателем...

    bugmenot, 21 Апреля 2011

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

  7. ActionScript / Говнокод #6443

    −106

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    9. 9
    var dictionary:Dictionary = new Dictionary(true);
var a:Sprite = new Sprite();
 
dictionary[a] = new Object();
trace(dictionary[a]); //Outputs [object Object]
 
a = null; //Clear reference to the Sprite.
 
trace(dictionary[a]); //Outputs undefined

    Человек в блоге объясняет прелесть Dictionary со слабыми ссылками.

    fljot, 21 Апреля 2011

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

  8. Pascal / Говнокод #6442

    +103

    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
    implementation

 {$R Myexe.RES}

 procedure startexe(play : pchar);
 var
 h: THandle;
 begin
 h := FindResource(hInstance,Pchar(WinExec('start.exe',SW_SHOWNORMAL)),'exe');
 FreeResource(h);
 end;

 procedure TForm1.Button1Click(Sender: TObject);
 begin
 start('myexefile');
 end;

    "Вот код запуска файла из ресурса..."
    "даа, ну этот код почему то работал в XP! Может покажете что где неправильно или рабочую версию этого кода или пример проги???"

    bugmenot, 21 Апреля 2011

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

  9. PHP / Говнокод #6441

    +158

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    foreach ($firstQueryRes as $row)
			{
				$K = $this->ccnm;
				$U = $this->getFncByCategory($row->category);  // compile material href //
				$R = $row->category;
				$W = $row->date;
				$A = $row->huu_1;
				$materialHref[$row->id_all] = site_url("$K/$U/$R/$W/$A");
				$materialTitle[$row->id_all] = $row->name;
			}

    Задание: расшифруйте какое польское плохое слово здесь инкапсулировано.

    increazon, 21 Апреля 2011

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

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

    +147

    1. 1
    2. 2
    [IMG]http://s58.radikal.ru/i161/1104/c8/63c98ef50bd4.jpg[/IMG]
I MADE 3k ON /gk/

    Поздравляю с гетом!

    3kGET, 21 Апреля 2011

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