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)