mcs/tests/gtest-261.cs

   1 using System;
   2
   3 class Cons<T,U>
   4 {
   5         public T car;
   6         public U cdr;
   7
   8         public Cons (T x, U y)
   9         {
  10                 car = x; cdr = y;
  11         }
  12
  13         public override String ToString ()
  14         {
  15                 return "(" + car + '.' + cdr + ')';
  16         }
  17 }
  18
  19 class List<A> : Cons<A, List<A>>
  20 {
  21         public List (A value)
  22                 : base(value, null)
  23         { }
  24
  25         public List (A value, List<A> next)
  26                 : base(value, next)
  27         { }
  28
  29         public void zip<B> (List<B> other)
  30         {
  31                 cdr.zip (other.cdr);
  32         }
  33 }
  34
  35 abstract class Test
  36 {
  37         public static void Main (String[] args)
  38         {
  39                 List<int> list = new List<Int32> (3);
  40                 Console.WriteLine (list);
  41         }
  42 }