Ada 程式設計/演算法/第 1 章

計算 » 計算機科學 » 計算機程式設計 » Ada 程式設計

---

第 1 章：介紹

以下子程式是 發明演算法 示例 的實現。

轉為小寫

Ada 示例程式碼不會像演算法那樣追加到陣列。相反，我們建立一個指定長度的空陣列，然後替換其中的字元。

檔案：to_lower_1.adb (檢視, 純文字, 下載頁面, 瀏覽所有)

  function To_Lower (C : Character) return Character renames
     Ada.Characters.Handling.To_Lower;

  --  tolower - translates all alphabetic, uppercase characters
  --  in str to lowercase
  function To_Lower (Str : String) return String is
     Result : String (Str'Range);
  begin
     for C in  Str'Range loop
        Result (C) := To_Lower (Str (C));
     end loop;
     return Result;
  end To_Lower;

使用 Ada 無法實現追加方法嗎？不，但這樣做會更加複雜和緩慢。

忽略大小寫比較

檔案：to_lower_2.adb (檢視, 純文字, 下載頁面, 瀏覽所有)

  --  equal-ignore-case -- returns true if s or t are equal,
  --  ignoring case
  function Equal_Ignore_Case
    (S    : String;
     T    : String)
     return Boolean
  is
     O : constant Integer := S'First - T'First;
  begin
     if T'Length /= S'Length then
        return False;  --  if they aren't the same length, they
                       --  aren't equal
     else
        for I in  S'Range loop
           if To_Lower (S (I)) /=
              To_Lower (T (I + O))
           then
              return False;
           end if;
        end loop;
     end if;
     return True;
  end Equal_Ignore_Case;