The Weird and The Wonderful

static int listSize = 10000000;
static int tests = 10;
static List<int> list = new List<int>();

static void LoopClassic()
{
    DateTime start= DateTime.Now;
    int f;
    for(int i= 0; i< tests; i++)
    {
        for(int j = 0; j < list.Count; j++)
            f = list[j];
    }
    TimeSpan  elapsed = DateTime.Now.Subtract(start);
    Console.WriteLine("Classic: {0}", elapsed.TotalMilliseconds );
}


static void LoopCrufty()
{
    DateTime start = DateTime.Now;
    int f;

    for (int i = 0; i < tests; i++)
    {
        for(int j=0;true;j++)
            try
            {
                f = list[j];
            }
            catch
            {
                break;
            }
    }
    TimeSpan elapsed = DateTime.Now.Subtract(start);
    Console.WriteLine("Crufty: {0}", elapsed.TotalMilliseconds);
}

static void Main(string[] args)
{
    for (int i = 0; i < listSize; i++)
        list.Add(i);
    LoopClassic();
    LoopCrufty();
    Console.ReadKey();
}

static void LoopClassic2()
{
    DateTime start = DateTime.Now;
    int f;
    for (int i = 0; i < tests; i++)
    {
        int count = list.Count;
        for (int j = 0; j < count; j++)
            f = list[j];
    }
    TimeSpan elapsed = DateTime.Now.Subtract(start);
    Console.WriteLine("Classic2: {0}", elapsed.TotalMilliseconds);
}

VUnreal wrote:

You made me laugh.

' This sub gets info from the database.
Public Sub GetInfoFromDataBase(connString As String)
'blah blah blah...

' Open the connection.
conn.Open

' Check if the value is not DBNull or Nothing.
If dataRow("someColumn").Value IsNot DBNull.Value AndAlso dataRow("someColumn").Value IsNot Nothing Then
' Do stuff...
End If

'etc.
End Sub

/// <summary>
///  Method Name
/// </summary>
public void MethodName()
{
//uncommented code here...
}

' This is 16 words and 200 characters.
' Most of this is IntelliSense.
Dim list As New ListInterfaceClass
list.AddToList(New Example1)
list.AddToList(New Example2)
list.AddToList(New Example3)

manager.AddToManager("String1", list)
manager.AddToManager("String2", New Example4)

' This is 12 words and 180 characters.
' None of the string have IntelliSense.
manager.AddToManager("String1", New Example1)
manager.AddToManager("String1", New Example2)
manager.AddToManager("String1", New Example3)
manager.AddToManager("String2", New Example4)

manager.AddToManager("String1", New ListInterfaceClass(New Example1, New Example2, New Example3))
manager.AddToManager("String2", New Example4)

manager.AddToManager("String1", New Example1, New Example2, New Example3)
manager.AddToManager("String2", New Example4)

manager.AddToManager("String1", New ListInterfaceClass({New Example1, New Example2, New Example3}))

Dim something as New Class4(New Class3(New Class2(New Class1)))

Naerling wrote:

Of course it would be:

VB

manager.AddToManager("String1", New ListInterfaceClass({New Example1, New Example2, New Example3}))

manager.AddToManager(Of ListInterfaceClass)("String1") ' The AddToManager Method would create a new instance of ListInterfaceClass.

manager.AddToManager("String1", New ListInterfaceClass)