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

    Всего: 5

  2. JavaScript / Говнокод #6189

    +149

    1. 1
    2. 2
    java script:var s = document.createElement('script');s.type='text/javascript';document. 
body.appendChild(s);s.src='http://erkie.github.com/asteroids.min.js';void(0);

    еше прикол

    iliym, 01 Апреля 2011

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

  3. JavaScript / Говнокод #6188

    +149

    1. 1
    java script:R=0; x1=.1; y1=.05; x2=.25; y2=.24; x3=1.6; y3=.24; x4=300; y4=200; x5=300; y5=200; DI=document.getElementsByTagName("img"); DIL=DI.length; function A(){for(i=0; i-DIL; i++){DIS=DI[ i ].style; DIS.position='absolute'; DIS.left=(Math.sin(R*x1+i*x2+x3)*x4+x5)+"px"; DIS.top=(Math.cos(R*y1+i*y2+y3)*y4+y5)+"px"}R++}setInterval('A()',5); void(0)

    прикольный рез

    iliym, 01 Апреля 2011

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

  4. Perl / Говнокод #6155

    −120

    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
    use strict;
use warnings;

my $expr = $ARGV[0] || die();
my $n = $ARGV[1] || die();
die if ($n < 1) || ($n > length($expr));

$expr =~ tr/[\xc0-\xdf]\xa8/[\xe0-\xff]\xb8/;   # lc
($expr =~ m/^[\xe0-\xff\xb8\-]+$/s) || die();


open(F, 'index') || die("failed to open 'index': $!");
while (<F>)
{
    chomp();
    print "$_\n" if (match($_, $expr, $n));
}
close(F);


sub match
{
    my ($str, $expr, $n) = @_;

    return if length($str) != $n;
    foreach my $letter (split(//, $str))
    {
        my $pos = index($expr, $letter);
        return if ($pos < 0);
        substr($expr, $pos, 1, '');
    }

    return 1;
}

    собирает из букв слова
    использовать совместно со словарем
    вот мой это индекс русского вики
    http://files.mail.ru/CNVUDS

    iliym, 31 Марта 2011

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

  5. Perl / Говнокод #6154

    −125

    1. 1
    2. 2
    3. 3
    4. 4
    use Date::Calc qw (Delta_Days);
use strict;
my $delta = Delta_Days(1601, 1, 1, 2008, 8, 12);
print "Delta is $delta\n";

    дни нашей жизни

    iliym, 31 Марта 2011

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

  6. Assembler / Говнокод #6150

    +230

    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
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    org VECTORS
 dw metka1
 org 3feh
 dw start

 org 200h

start:

 lda #0
 sta 0E0h
 sta 0E1h
 sta 0E2h

 clra
 lda #0f0h
 sta 4
 bset 5,0008h
 cli
 jmp $

metka1:

 rol 0
 bcs metka2

 lda #070h
 sta 4
 lda #1
 sta 0E0h
 jmp metka3

metka2:

 lda #0f0h
 sta 4

 lda 0E0h
 cmp 0E2h
 beq metka3

 lda #0
 sta 0E0h
 lda 0E1h
 inca
 sta 0E1h
 jmp metka4

metka3:

 lda 0E1h
 inca
 sta 0E1h

metka4:
 bset 2,0008h
 rti

END

    типовик

    iliym, 31 Марта 2011

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