ジェネリック - 定義

COBOL のジェネリック設定の定義

*> Generic class
class-id Point3D using T.
*> With constraints
class-id Point3D using T.
constraints.
   constrain T implements type IComputable.

*> Generic interface
interface-id IComputable using T.

*> Generic method
method-id MakePoint3D static public using T.
   procedure division using by value
       x as T y as T z as T
       returning ret as type Point3D[T].

*> With constraints
method-id MakePoint3D static public using T.
constraints.
constrain T implements type IComputable.

*> Generic value type
valuetype-id container using T Y.
   01 a T public.
   01 b Y public.
end valuetype.

*> With constraints
valuetype-id container using T Y.
constraints.
constrain T implements type IComputable.

*> Generic iterator, use a parametrised class
class-id a using T.

       iterator-id itg static.
           01 val binary-long value 1.
           procedure division using by value x as T yielding y as T.
           perform until val = 50
               add 1 to val
               set y to x *> Just for example!
               goback
           end-perform
       end iterator.

end class.

*> To use, parametrise the class
perform varying thg through type a[string]::itg("Dog")
    display thg
end-perform

C# のジェネリック設定の定義

// Generic class
class Point3D<T>

// Generic class with constraints
class Point3D_c<T> where T : IComputable

// Generic interface
interface IComputable<T>

// Generic method
public static Point3D<T> MakePoint3D<T>(T x, T y, T z)
{
    return new Point3D<T>(x, y, z);
}

// Generic method with constraints
public static void MakePoint3D<T>(T x, T y, T z) where T : IComputable
{
    return new Point3D<T>(x, y, z);
}

// Generic value type
struct container<T, Y>
{
    public T a;
    public Y b;
}

// Generic value type with constraints
struct container<T, Y> where T : IComputable


// Generic iterator, use a parameterised class
class a<T>
{
    public static IEnumerable<T> itg(T x)
    {
        int val = 1;
        while (val < 50)
        {
            val++;
            yield return x;
        }
    }
}


// Using generic iterator
foreach (string dog in a<string>.itg("Dog"))
    System.Console.WriteLine(dog);

VB.NET のジェネリクス設定の定義

'  Generic class
Public Class Point3D(Of T)

End Class
' With constraints
Public Class Point3D(Of T As IComputable)

' Generic interface
Public Interface IComputable(Of T)

' Generic method
Function MakePoint3D(Of T) _
    (ByVal x As T, ByVal y As T, ByVal z As T) As Point3D(Of T)



' With Constraints
Function MakePoint3D(Of T As IComputable) _
    (ByVal x As T, ByVal y As T, ByVal z As T) As Point3D(Of T)


' Generic value type
Structure container(Of T, Y)
    Public a As T
    Public b As Y
End Structure

' With constraints
Structure container(Of T As IComputable, Y)



' VB lacks syntax for interators

これらの例の一部は、ハーディング大学コンピュータ サイエンス学部の Frank McCown 博士が作成したもので、クリエイティブ コモンズ ライセンスに基づいて使用が許可されています。