1. Список говнокодов пользователя Lolwho

    Всего: 3

  2. Pascal / Говнокод #2278

    +102.3

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    for i:=1 to 3 do
     if (f[i,1]<>a) and (f[i,2]<>b) then
     begin
      inc(n);
      if n>3 then exit;
      f[n,1]:=a;
      f[n,2]:=b;
      break;
    end
    else break;

    О как!

    Lolwho, 14 Декабря 2009

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

    +94.5

    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
    35. 35
    36. 36
    37. 37
    38. 38
    type
     p = ^h;
     h = record
          no:word;
          nx:p;
         end;
    var
     n,k,i:word;
     a,b:p;
    
    begin
    readln(n,k);
    new(b);
    a:=b;
    for i:=1 to n-1 do
    begin
     a^.no:=i;
     new(a^.nx);
     a:=a^.nx;
    end;
    a^.no:=n;
    a^.nx:=b;
    i:=1;
    while true do
    begin
     if a^.nx=a then break;
     if i=k then
     begin
      b:=a^.nx;
      a^.nx:=a^.nx^.nx;
      dispose(b);
      i:=1;
     end;
     a:=a^.nx;
     inc(i);
    end;
    writeln(a^.no);
    end.

    "Гуманитарное" решение задачи Иосифа Флавия (гуглите).
    Тут n - количество людей, убивают каждого k-нного, пока не останется один единственный выживший.

    Lolwho, 11 Декабря 2009

    Комментарии (5)
  4. Pascal / Говнокод #1625

    +104.7

    1. 1
    2. 2
    randomize;
    if random(5)=5 then ...

    Школота не знала всех тонкойстей работы функции Random :D

    Lolwho, 18 Августа 2009

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