VB.
NET
Imports System
Imports [Link]
Public Class Example
Public Shared Sub Main()
Dim dinosaurs As New List(Of String)
[Link]("Pachycephalosaurus")
[Link]("Amargasaurus")
[Link]("Mamenchisaurus")
[Link]("Deinonychus")
[Link]()
For Each dinosaur As String In dinosaurs
[Link](dinosaur)
Next
[Link](vbLf & "Sort")
[Link]
[Link]()
For Each dinosaur As String In dinosaurs
[Link](dinosaur)
Next
[Link](vbLf & _
"BinarySearch and Insert ""Coelophysis"":")
Dim index As Integer = [Link]("Coelophysis")
If index < 0 Then
index = index Xor -1
[Link](index, "Coelophysis")
End If
[Link]()
For Each dinosaur As String In dinosaurs
[Link](dinosaur)
Next
[Link](vbLf & _
"BinarySearch and Insert ""Tyrannosaurus"":")
index = [Link]("Tyrannosaurus")
If index < 0 Then
index = index Xor -1
[Link](index, "Tyrannosaurus")
End If
[Link]()
For Each dinosaur As String In dinosaurs
[Link](dinosaur)
Next
End Sub
End Class
' This code example produces the following output:
'
'Pachycephalosaurus
'Amargasaurus
'Mamenchisaurus
'Deinonychus
'
'Sort
'
'Amargasaurus
'Deinonychus
'Mamenchisaurus
'Pachycephalosaurus
'
'BinarySearch and Insert "Coelophysis":
'
'Amargasaurus
'Coelophysis
'Deinonychus
'Mamenchisaurus
'Pachycephalosaurus
'
'BinarySearch and Insert "Tyrannosaurus":
'
'Amargasaurus
'Coelophysis
'Deinonychus
'Mamenchisaurus
'Pachycephalosaurus
'Tyrannosaurus
C#
using System;
using [Link];
public class Example
{
public static void Main()
{
List<string> dinosaurs = new List<string>();
[Link]("Pachycephalosaurus");
[Link]("Amargasaurus");
[Link]("Mamenchisaurus");
[Link]("Deinonychus");
[Link]();
foreach(string dinosaur in dinosaurs)
{
[Link](dinosaur);
}
[Link]("\nSort");
[Link]();
[Link]();
foreach(string dinosaur in dinosaurs)
{
[Link](dinosaur);
}
[Link]("\nBinarySearch and Insert \"Coelophysis\":");
int index = [Link]("Coelophysis");
if (index < 0)
{
[Link](~index, "Coelophysis");
}
[Link]();
foreach(string dinosaur in dinosaurs)
{
[Link](dinosaur);
}
[Link]("\nBinarySearch and Insert \"Tyrannosaurus\":");
index = [Link]("Tyrannosaurus");
if (index < 0)
{
[Link](~index, "Tyrannosaurus");
}
[Link]();
foreach(string dinosaur in dinosaurs)
{
[Link](dinosaur);
}
}
}
/* This code example produces the following output:
Pachycephalosaurus
Amargasaurus
Mamenchisaurus
Deinonychus
Sort
Amargasaurus
Deinonychus
Mamenchisaurus
Pachycephalosaurus
BinarySearch and Insert "Coelophysis":
Amargasaurus
Coelophysis
Deinonychus
Mamenchisaurus
Pachycephalosaurus
BinarySearch and Insert "Tyrannosaurus":
Amargasaurus
Coelophysis
Deinonychus
Mamenchisaurus
Pachycephalosaurus
Tyrannosaurus
*/
C++
using namespace System;
using namespace System::Collections::Generic;
void main()
{
List<String^>^ dinosaurs = gcnew List<String^>();
dinosaurs->Add("Pachycephalosaurus");
dinosaurs->Add("Amargasaurus");
dinosaurs->Add("Mamenchisaurus");
dinosaurs->Add("Deinonychus");
Console::WriteLine();
for each(String^ dinosaur in dinosaurs)
{
Console::WriteLine(dinosaur);
}
Console::WriteLine("\nSort");
dinosaurs->Sort();
Console::WriteLine();
for each(String^ dinosaur in dinosaurs)
{
Console::WriteLine(dinosaur);
}
Console::WriteLine("\nBinarySearch and Insert \"Coelophysis\":");
int index = dinosaurs->BinarySearch("Coelophysis");
if (index < 0)
{
dinosaurs->Insert(~index, "Coelophysis");
}
Console::WriteLine();
for each(String^ dinosaur in dinosaurs)
{
Console::WriteLine(dinosaur);
}
Console::WriteLine("\nBinarySearch and Insert \"Tyrannosaurus\":");
index = dinosaurs->BinarySearch("Tyrannosaurus");
if (index < 0)
{
dinosaurs->Insert(~index, "Tyrannosaurus");
}
Console::WriteLine();
for each(String^ dinosaur in dinosaurs)
{
Console::WriteLine(dinosaur);
}
}
/* This code example produces the following output:
Pachycephalosaurus
Amargasaurus
Mamenchisaurus
Deinonychus
Sort
Amargasaurus
Deinonychus
Mamenchisaurus
Pachycephalosaurus
BinarySearch and Insert "Coelophysis":
Amargasaurus
Coelophysis
Deinonychus
Mamenchisaurus
Pachycephalosaurus
BinarySearch and Insert "Tyrannosaurus":
Amargasaurus
Coelophysis
Deinonychus
Mamenchisaurus
Pachycephalosaurus
Tyrannosaurus
*/
