ネタ元 → ソートが熱いらしいので
くそっ、一個多くしてやる...
Module Module1
Sub 逆順なら交換(ByRef x As Integer, ByRef y As Integer)
If x > y Then
Dim tmp As Integer = x
x = y
y = tmp
End If
End Sub
Sub Main()
Dim ソート対象(3) As Integer
Dim rnd As Random = New Random(DateTime.Now.Millisecond)
' 対象初期化
ソート対象(0) = rnd.Next(1, 100)
ソート対象(1) = rnd.Next(1, 100)
ソート対象(2) = rnd.Next(1, 100)
ソート対象(3) = rnd.Next(1, 100)
'表示
For Each 値 In ソート対象
Console.Write("{0} ", 値)
Next
Console.WriteLine(vbCrLf & "------------------")
'ソート
逆順なら交換(ソート対象(0), ソート対象(1))
逆順なら交換(ソート対象(1), ソート対象(2))
逆順なら交換(ソート対象(2), ソート対象(3))
逆順なら交換(ソート対象(0), ソート対象(1))
逆順なら交換(ソート対象(1), ソート対象(2))
逆順なら交換(ソート対象(0), ソート対象(1))
'表示
For Each 値 In ソート対象
Console.Write("{0} ", 値)
Next
Console.WriteLine(vbCrLf & "------------------")
Console.ReadKey()
End Sub
End Module
※ﾄﾃｰﾓ大きなヒントになってんだよ♪ > のんちゃん
はい、そゆわけで おにょれ赤坂 でちらっとこぼしたネタをば
CodeZine 「STL/CLRツアーガイド」に書きました。
白状すればSTL/CLRはまだまだいぢり倒してないんですよねー
関東地方は雨模様。
おなじみ"おりひめ"と"ひこぼし"のお話、オリジナルはちょっと違うみたいす。
Wikipediaによりますと、
「天の河の東に織女有り、天帝の子なり。
年々に機を動かす労役につき、雲錦の天衣を織り、容貌を整える暇なし。
天帝その独居を憐れみて、河西の牽牛郎に嫁すことを許す。
嫁してのち機織りを廃すれば、天帝怒りて、河東に帰る命をくだし、
一年一度会うことを許す」
...へぇ。
「おりひめがひこぼしに惚れてデートにかまけて
仕事うっちゃらかしたもんだから神様に怒られて
デート禁止処分くらってめそめそ泣いてるのが
可哀想だから年に一度デートを許した」
んじゃないみたいよ。