無差別に技術をついばむ鳥

#pragma once

using namespace System;
using namespace System::Collections::Generic;
//System.Core.dllへの参照を自分で追加する必要あり（泣き
using namespace System::Linq;

ref class Wankuma {
public:
    static bool Where(String^ name) {
        return name->Length > 5;
    }

    static String^ Order(String^ name) {
         return name;
    }

    static String^ Select(String^ name) {
        return name;
    }
};

int main(array< System::String ^> ^args) { 
    array< String^>^ wankumas = gcnew array< String^> {
        "中博俊さん",  	"じゃんぬねっとさん",
        "夏椰さん", "なおこ(・∀・)さん",
        "まゆりんさん", "はなおか じったさん"
    };

    //WHERE句を実行
    IEnumerable < String^ > ^ iwankuma = 
        (IEnumerable< String^ > ^)wankumas;
    Func< String^, Boolean > ^ func = gcnew 
        Func< String^ ,Boolean > (Wankuma::Where);
    IEnumerable< String^ > ^ wresult = 
        Enumerable::Where< String^ > (iwankuma, func);

    //ORDER句を実行
    Func< String^, String^ > ^ func1 = gcnew 
        Func< String^, String^ > (Wankuma::Order);
    IEnumerable< String^ > ^ oresult = 
        Enumerable::OrderBy< String^, String^ > (wresult, func1);

    //SELECT句を実行
    Func< String^, String^ > ^ func2 = 
        gcnew Func <  String^, String^ > (Wankuma::Select);
    IEnumerable <  String^ > ^ result = 
        Enumerable::Select <  String^, String^ > (oresult, func2);

    //結果を出力
    Console::WriteLine(L"名前が五文字以上のわんくま同盟の方は・・・");
    for each (String^ str in result) Console::WriteLine(str);
    return 0;
}

Imports System
Imports System.Linq
Imports System.Collections.Generic

Class LinqSample

    Shared Sub Main()
        Dim wankumas() As String = New String() { _
                "中博俊さん", "じゃんぬねっとさん", _
                "夏椰さん", "なおこ(・∀・)さん", _
                "まゆりんさん", "はなおか じったさん"}
        Dim result As IEnumerable(Of String) = From name In wankumas _
                                            Where name.Length > 5 _
                                            Order By name _
                                            Select name
        Console.WriteLine("名前が五文字以上のわんくま同盟の方は・・・")
        For Each Str As String In result
            Console.WriteLine(Str)
        Next
    End Sub

End Class

using System;
using System.Linq;
using System.Collections.Generic;

class Program
{
    static void Main(string[] args) {
        string[] wankumas = new string[] {
                "中博俊さん",  	"じゃんぬねっとさん",
                "夏椰さん", "なおこ(・∀・)さん",
                "まゆりんさん", "はなおか じったさん"
            };
        IEnumerable result = from name in wankumas
                                     where name.Length > 5
                                     orderby name
                                     select name;
        Console.WriteLine("名前が五文字以上のわんくま同盟の方は・・・");
        foreach (string str in result)
            Console.WriteLine(str);
    }
}

//結婚するかまだわからない
Nullable< System::Boolean >^ marry = nullptr;

//時が経って
Console::WriteLine( "私の答えは・・・{0}だ。", marryFlag->Value );
if ( marryFlag->HasValue == true ) {
    Console::WriteLine( "さあどっち？" );
    Console::WriteLine( "私の答えは・・・{0}だ。", marryFlag->Value );
}
else {
    Console::WriteLine( "優柔不断な人ね！" );
}

'結婚するかまだわからない
bool? marryFlag = null;

//時が経って
Console.WriteLine( "私の答えは・・・{0}だ。", marryFlag.Value );
if ( marryFlag.HasValue == true ) {
    Console.WriteLine( "さあどっち？" );
    Console.WriteLine( "私の答えは・・・{0}だ。", marryFlag.Value );
}
else {
    Console.WriteLine( "優柔不断な人ね！" );
}

'結婚するかまだわからない
Dim marryFlag As Nullable(Of Boolean) = Nothing

'時が経って
If marryFlag.HasValue = True Then
    Console.WriteLine("さあどっち？")
    Console.WriteLine("私の答えは・・・{0}だ。", marryFlag.Value)
Else
    Console.WriteLine("優柔不断な人ね！")
End If