ada泛型list示例代码-ada代码-BFW代码库

搜索

ada泛型list示例代码

下载在webide运行代码

代码语言：ada

所属分类：其他

代码描述：ada泛型list示例代码

代码标签：示例

下面为部分代码预览，完整代码请点击下载或在bfwstudio webide中打开

package body Gen_List is

   function Append ( E1 : Elmt) return List is 
   begin 
      return new Internal'(E1, Nil);
   end Append;
   
   function Append ( E1, E2 : Elmt) return List is
   begin
      return new Internal'(E1, new Internal'(E2, Nil));
   end Append;
   
   function Append ( E1 : Elmt; L1 : List) return List is 
   begin
      return new Internal'(E1, L1);
   end Append;
   
   function Append ( L1 : List; E1 : Elmt) return List is
      L : List;
   begin
      if L1 = Nil then 
         return new Internal'(E1, Nil);
      else
         L := L1;
         while L.Next /= Nil .........完整代码请登录后点击上方下载按钮下载查看

网友评论0

相似代码

ada异常捕获示例代码

ada枚举示例代码

ada loop get示例代码

其他语言代码库

Html代码库 Python代码库 Java代码库 Php代码库 Phpcli代码库 Golang代码库 C#代码库 Nodejs代码库 C代码库 C++代码库 Sql代码库 R代码库 Rust代码库 Ruby代码库 Dart代码库 Vb代码库 D代码库 F#代码库 Typescript代码库 Coffeescript代码库 Julia代码库 Kotlin代码库 Perl代码库 Groovy代码库 Lua代码库 Vala代码库 Ocaml代码库 Assembly代码库 Objectc代码库 Scala代码库 Erlang代码库 Pascal代码库 Swift代码库 Fortran代码库 Bash代码库 Clojure代码库 Ada代码库 Elixir代码库 Cobol代码库 Haskell代码库 Nim代码库 Racket代码库 Lisp代码库