1. Perl / Говнокод #1413

    −147

    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
    if (!@ARGV){
        die ("Usage: palindrom.pl word\n");
    }
    $text = $ARGV[0];
    if (length($text) < 4){
        die ("Error: Word must be not less than 4 leters\n");
    }
    if ($text =~ m/(.)(.). ?\2\1/){
        print "Result: Match\n";
    }
    else{
        print "Result: Not match\n";
    }

    Код как-бэ проверяет является ли слово палиндромом.
    На самом деле проверяются только первые два символа с начала и конца. То есть строка "alla123h5vj3galla" является палиндромом.

    Запостил: guest, 23 Июля 2009

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

    • pavl0ff:
      Я вижу в этом коде сиськи!
      Ответить
    • - Ты, наверное, шутишь. У нас свой дом, ты можешь выбрать любую комнату из пяти свободных. А, ну понятно, Даня не соизволил тебе рассказать об этом, и ты решил, что нас стеснишь, - голос отца Дани звучал спокойно, но было понятно, что вся эта сцена не оставила его равнодушным.
      Ответить

    Добавить комментарий