1. Pascal / Говнокод #8141

    +89

    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
    unit uIsPalindrome; 
  
interface
  
function IsPalindrome(const aString: string): Boolean; 
  
implementation
  
uses
       Spring.Collections 
     , {$IF CompilerVersion >= 230}System.{$IFEND}SysUtils 
     ; 
  
function CleanString(const aString: string): string; 
var
  C: char; 
begin
  // Remove all non-alpha chars and make all lower case 
  // Spaces don't matter, so let's count only letters 
  Result := ''; 
  for C in LowerCase(aString) do
  begin
    if CharInSet(C, ['a'..'z', 'A'..'Z']) then
    begin
      Result := Result + C; 
    end; 
  end; 
end; 
  
function IsPalindrome(const aString: string): Boolean; 
var
  Stack: IStack<Char>; 
  C: Char; 
  NoSpaces: string; 
  Temp: string; 
begin
  NoSpaces :=  CleanString(aString); 
  
  Stack := TCollections.CreateStack<Char>; 
  for C in NoSpaces do
  begin
    Stack.Push(C); 
  end; 
  Temp := ''; 
  repeat
    Temp := Temp + Stack.Pop; 
  until Stack.Count = 0; 
  Result := Temp = NoSpaces; 
end; 
  
end.

    true java style...

    Запостил: d_dev, 10 Октября 2011

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

    • ava TarasB 10.10.2011 12:15 # 0

      А сдохнет стек сам?
      Ответить

      • ava d_dev 10.10.2011 12:23 # 0

        интерфейс, счетчик ссылок, не?
        Ответить

        • ava TarasB 10.10.2011 12:27 # 0

          Ой, я буковку I не заметил. Тогда да.
          Интересно, когда же в Дельфи добавят механизм автодеструкторов более вменяемый, чем тормозные интерфейсы?
          Ответить

          • ava RS-232 10.10.2011 12:31 # −1

            >Интересно, когда же в Дельфи добавят механизм автодеструкторов более вменяемый, чем тормозные интерфейсы?

            Не расстраивайтесь так. Майкрософт, наперекор стандарту С++, в новый 2011 компилятор добавила тормозные интерфейсы (:
            Ответить

          • ava carsten 12.10.2011 08:56 # −3

            >Интересно, когда же в Дельфи добавят механизм автодеструкторов более вменяемый, чем тормозные интерфейсы?
            Дельфи: 0
            ЦПП: 1
            Ответить

          • ava Y_F 09.01.2012 11:42 # 0

            В каком это месте они тормознутые?
            Проблема интерфейсов не в тормознутости, а в том, что базовый интерфейс не пуст
            Ответить

    • ava roman-kashitsyn 10.10.2011 12:27 # 0

      [сode]def isPalindrome(s: String) = s.reverse == s[/code]
      не?
      Ответить

      • ava d_dev 10.10.2011 12:50 # 0

        не. а пробелы, регистр?
        "А роза упала на лапу Азора". не прокатит
        Ответить

        • ava roman-kashitsyn 10.10.2011 13:02 # 0 

          def isPalindrome(s: String) = {
    val normalized = s.toLowerCase.filter(!Character.isSpace(_))
    normalized.reverse == normalized
}
          не?
          Ответить

    • ava roman-kashitsyn 10.10.2011 12:46 # 0

      > true java style
      public class Palindrome {
    public static boolean isPalindrome(String s) {
	int l = s.length();
	int n = l / 2;
	for (int i = 0; i <= n; ++i) {
	    if (s.charAt(i) != s.charAt(l - i - 1))
		return false;
	}
	return true;
    }
}
      Ответить

      • ava Lure Of Chaos 10.10.2011 13:18 # +5 

        [patch]
 - int l = s.length();
 - 	int n = l / 2;
 - 	for (int i = 0; i <= n; ++i) {
 - 	    if (s.charAt(i) != s.charAt(l - i - 1))
 - 		return false;
 - 	}
 - 	return true;
 + 	return new StringBuilder(s).reverse().toString().equals(s);
[/patch]
        Ответить

        • ava roman-kashitsyn 10.10.2011 13:18 # 0

          Спс :)
          Ответить

        • ava roman-kashitsyn 10.10.2011 13:34 # +3

          P.S. Зато мой вариант не требует выделения двух дополнительных буферов и выполняет в два раза меньше сравнений. За всё нужно платить... :)
          Ответить

      • ava d_dev 10.10.2011 13:32 # +1

        на каждый чих создавать класс...
        Ответить

        • ava roman-kashitsyn 10.10.2011 13:52 # 0

          Думаю, код в топике компилируется. Чтобы мой компилировался, нужен класс.
          Ответить

        • ava gegMOPO4 10.10.2011 14:03 # +3

          > unit uIsPalindrome;
          ...
          > interface
          ...
          > implementation
          ...
          > end.

          На каждый чих создавать модуль?
          Ответить

          • ava Lure Of Chaos 10.10.2011 14:12 # 0

            кстати, вот эти interface и implementation тоже бесят, как в Си, "declare before use"
            Ответить

          • ava d_dev 10.10.2011 14:13 # +1

            Казус в том, что гк писавший это еще и Spring.Collections подключил для стэка, хотя он там вообще никчему. Помоему человек джаваинфицирован на весь мозг...
            Ответить

            • ava 3.14159265 10.10.2011 14:20 # 0

              в Apache Commons, если не ошибаюсь в классе StringUtils есть метод - isPalindrome.
              для тех кто не может в палиндромы.

              Если в делфи портировали не только спринг и Apache Commons, то....
              Ответить

              • ava Lure Of Chaos 10.10.2011 14:30 # +1

                Странно, если оно так. Мне не известно ни одного случая, где использовались палиндромы не только just for fun. Я ошибаюсь, или палиндромы, как совершенные числа - красивы, но совершенно бесполезны?
                Ответить

                • ava roman-kashitsyn 10.10.2011 15:11 # 0

                  Детишки можно решить задачку по палиндромам на олимпиаде и выиграть железку или деньги. Польза очевидна :)
                  Ответить

            • ava roman-kashitsyn 10.10.2011 14:26 # 0

              Никто из моих знакомых java-разработчиков не стал бы реализовывать _это_ через стэк. Так что java тут не при чём.
              Ответить

    • ava d_dev 10.10.2011 13:26 # 0

      function IsPalindrome(const A: string): Boolean;
      var s: string;
      begin
      s := UpperCase(ReplaceText(A, ' ', ''));
      Result := s = ReverseString(s);
      end;
      Ответить

      • ava roman-kashitsyn 10.10.2011 13:28 # 0

        Вот видите, от языка на самом деле мало что зависит.
        p.s. "А роза\t упала на\n лапу Азора"
        Ответить

        • ava d_dev 10.10.2011 13:40 # 0

          К сожалению некотрые языки влияют на неокрепшие умы многих говнокодеров, и мы наверное в их числе
          Ответить

    • ava gegMOPO4 10.10.2011 13:50 # 0

      А при чём здесь Java?
      Ответить

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