1. PHP / Говнокод #21269

    −1

    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
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    global $obj,$pict; 
    file_put_contents ('export.txt',''); 
    $cr = file_get_contents ('data.txt'); 
    file_put_contents ('compile.txt',$cr); 
    $all = file_get_contents ('compile.txt'); 
    $player_x = c('player')->x; 
    $player_y = c('player')->y; 
    $all1 = str_replace('player_x',$player_x, $all); 
    $all2 = str_replace('player_y',$player_y, $all1); 
    $all3 = str_replace('picture',$pict, $all2); 
    $map_x = c("god")->w; 
    $map_y = c("god")->h; 
    $all4 = str_replace('map_x',$map_x, $all3); 
    $all5 = str_replace('map_y',$map_y, $all4); 
    $all6 = str_replace('obj_folder','compile/test_export/test/', $all5); 
    $all7 = str_replace('obj_count',$obj, $all6); 
    file_put_contents('export.txt', $all7, FILE_APPEND | LOCK_EX); 
    
    global $obj_x,$obj_y,$obj_w,$obj_h,$obj_color; 
    global $obj,$pict,$player_x,$player_y,$map_x,$map_y; 
    $player_x = c('player')->x; 
    $player_y = c('player')->y; 
    $map_x = c("god")->w; 
    $map_y = c("god")->h; 
    $obj_x = c("obj".$null)->x; 
    $obj_y = c("obj".$null)->y; 
    $obj_w = c("obj".$null)->w; 
    $obj_h = c("obj".$null)->h; 
    $obj_color = c("Form1->obj".$null)->brushColor; 
    ShowForm(map, SW_SHOW); 
    for ($x=0;$x<$obj;$x++) 
    { 
    cr_object(); 
    }

    Компиляция локаций в моём 2D движке который я писал очень давно xD

    NodnolStudio, 25 Сентября 2016

    Комментарии (5)
  2. Куча / Говнокод #21266

    −8

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    (* Solving the Queen Puzzle *)
    #define N 8
    #define NSOL 10
    val () =
    (((fix qsolve(n: int): stream(list0(int)) => if(n > 0)then((qsolve(n-1)*list0_make_intrange(0,N)).map(TYPE{list0(int)})(lam($tup(xs,x))=>cons0(x,xs))).filter()(lam(xs)=>let val-cons0(x0,xs) = xs in xs.iforall()(lam(i, x)=>((x0)!=x)&&(abs(x0-x)!=i+1)) end)else(stream_make_sing(nil0())))(N)).takeLte(NSOL)).iforeach()(lam(i, xs)=>(println!("Solution#", i+1, ":"); xs.rforeach()(lam(x) => ((N).foreach()(lam(i)=>(print_string(ifval(i=x," Q", " ."))));println!()));println!()))

    LispGovno, 25 Сентября 2016

    Комментарии (17)
  3. PHP / Говнокод #21265

    −1

    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
    c("openDlg1")->execute(); 
    $dir = c("openDlg1")->fileName; 
    $files1 = scandir($dir); 
    $files1 = str_replace("..","",$files1); 
    $files1 = str_replace(".","",$files1); 
    unset($files1[0]); 
    unset($files1[1]); 
    $count = 2; 
    $x = count($files1); 
    while ($count<=$x){ 
    $p1 = file_get_contents ("p1.txt"); 
    $p2 = file_get_contents ("p2.txt"); 
    $put = $p1.$dir."/".$files1[$count].$p2; 
    $count = $count+1; 
    file_put_contents ("index.html",$put, FILE_APPEND | LOCK_EX); 
    c("chromium1")->url = "index.html"; 
    }

    NodnolStudio, 25 Сентября 2016

    Комментарии (0)
  4. Куча / Говнокод #21264

    −9

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    Мужчина лет сорока сидит в купе поезда с барышней.
    -Знаете, как-то раз я познакомился с девушкой, возникла симпатия, мы познакомились и провели ночь.
    Наутро я проснулся в пустой постели. На столике я обнаружил немного денег и записку: "Вы - осёл"...
    -О, это грустноватая история...
    Погас свет...
    Наутро мужчина проснулся в пустом купе. На столике лежали деньги и записка: "Это Вам на овёс".

    ...

    voodoodal16, 24 Сентября 2016

    Комментарии (17)
  5. Haskell / Говнокод #21263

    −9

    1. 1
    ПЕРДЬ!!!!

    RCS разработана в 1980-х годах Уолтером Тихи из Университета Пердью как свободная и более развитая альтернатива популярной тогда Source Code Control System (SCCS). В настоящее время, является частью Проекта GNU, однако всё ещё поддерживается Университетом Пердью.

    barop, 24 Сентября 2016

    Комментарии (1)
  6. PHP / Говнокод #21262

    −3

    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
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    $list = array(
    1 => "panel1",
    2 => "panel3",
    3 => "opt",
    4 => "listBox1",
    );
    //-----------------------------
    $x = $list[1];
    $dev_w = file_get_contents ("dev/".$x."_w.ini");
    c($list[1])->w = $dev_w;
    $dev_h = file_get_contents ("dev/".$x."_h.ini");
    c($list[1])->h = $dev_h;
    
    $x = $list[2];
    $dev_w = file_get_contents ("dev/".$x."_w.ini");
    c($list[2])->w = $dev_w;
    $dev_h = file_get_contents ("dev/".$x."_h.ini");
    c($list[2])->h = $dev_h;
    
    $x = $list[3];
    $dev_w = file_get_contents ("dev/".$x."_w.ini");
    c($list[3])->w = $dev_w;
    $dev_h = file_get_contents ("dev/".$x."_h.ini");
    c($list[3])->h = $dev_h;
    
    $x = $list[4];
    $dev_w = file_get_contents ("dev/".$x."_w.ini");
    c($list[4])->w = $dev_w;
    $dev_h = file_get_contents ("dev/".$x."_h.ini");
    c($list[4])->h = $dev_h;

    Запись в текстовые файлы информацию о позиции объектов (X и Y)

    NodnolStudio, 24 Сентября 2016

    Комментарии (3)
  7. Pascal / Говнокод #21260

    0

    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
    fstream:=tstreamex.Create(signaturepath,fmShareDenyWrite);
        FLock.Enter;
        try
          while not fstream.EOS do
          begin
            obj:=tsignature.create;
            try
              obj.AddingDate:=fstream.ReadDate;
              obj.Comment:=fstream.ReadString;
              fstream.ReadBuffer(Len, SizeOf(Len));
              obj.MStream.SetSize(len);
              fstream.ReadBuffer(obj.mstream.memory^, len);
              fsignlist.Add(obj);
            except
              obj.Free;
              raise esignatureloadingerror.Create('Signature read error');
            end;

    Стрим читает из файла сохраненный объект. К сожалению, подобный подход используется даже в серьезных коммерческих проеках, это классика.
    Если что-то поменять в файле хоть на 1 байт, стрим промахнётся мимо поля - прога либо съест всю доступную системную память либо обрушится с Access Violation.
    В любом случае, память будет испорчена, и дальнейшее выполнение программы чревато UB.

    Кстати, а не грозит ли юзание структур порчей памяти? Допустим, хотим определить валидность заголовка, загружаем структуру, а в файле - трешак.
    Не будет ли обращения по ложному адресу? UB?

    voodoodal16, 24 Сентября 2016

    Комментарии (38)
  8. Куча / Говнокод #21258

    −6

    1. 1
    Посоветуй нативный язык с выводом типов. И не Хаскель. В идеале без мономорфизм рестрикшен

    LispGovno, 24 Сентября 2016

    Комментарии (36)
  9. PHP / Говнокод #21257

    −1

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    9. 9
    $chat = c("memo1");
    $send = c("memo2")->text;
    $name = c("edit1")->text;
    $send1 = file_get_contents ("data/send.txt");
    $send1 = str_replace ("NAME",$name,$send1);
    $send1 = str_replace ("SEND",$send,$send1);
    $send1 = "".$send1;
    file_put_contents ("data/chat.txt", $send1, FILE_APPEND | LOCK_EX);
    $chat->text = file_get_contents ("data/chat.txt");

    Говно-чатик

    NodnolStudio, 23 Сентября 2016

    Комментарии (3)
  10. C++ / Говнокод #21256

    −1

    1. 1
    2. 2
    Зачем в плюсах и сишке костыль void? Можно ведь было сделать struct void {};
    А вместо войдзвездочки использовать char*.

    huesto, 23 Сентября 2016

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