ヨタ

驚異のソート・アルゴリズム

επιστημη — Tue, 08 Jul 2008 16:59:00 GMT

もっすぬごいソート・アルゴリズムを編み出してしまいました。
その名も「チルノ・ソート」

Module CirnoSort

    ' 配列内に対象があればTrue
    Function あった(ByVal 配列() As Integer, ByVal 対象 As Integer) As Boolean
        For Each 値 As Integer In 配列
            If 値 = 対象 Then
                Return True
            End If
        Next
        Return False
    End Function

    Sub Main()
        Dim N As Integer = 10
        Dim ソート対象(N) As Integer
        Dim 乱数 As Random = New Random(DateTime.Now.Millisecond)
        Dim 添え字 As Integer
        Dim 値 As Integer

        ' 対象初期化
        For 添え字 = 0 To N - 1
            ソート対象(添え字) = 乱数.Next(1, 100)
        Next
        '表示
        For Each 値 In ソート対象
            Console.Write("{0} ", 値)
        Next
        Console.WriteLine(vbCrLf & "------------------")

        ' ソート対象内の最小値/最大値を求めておく
        Dim 最小値 As Integer = ソート対象(0)
        Dim 最大値 As Integer = ソート対象(0)
        For Each 値 In ソート対象
            If 最小値 > 値 Then 最小値 = 値
            If 最大値 < 値 Then 最大値 = 値
        Next

        'ソート(あたいったら最強ね!)
        For 値 = 最小値 To 最大値
            If あった(ソート対象, 値) Then
                Console.Write("{0} ", 値)
            End If
        Next
        Console.WriteLine(vbCrLf & "------------------")
        Console.ReadKey()

End Sub

End Module

ソート対象内の要素の重複が許されませんがそこはご勘弁(チルノだから)。

...のんちゃん、お願いだから真に受けないでね。

VBおんちがVBで遊ぶ

επιστημη — Sat, 24 May 2008 02:12:00 GMT

どこぞの掲示板で見かけた、おそらくは週末の宿題:
キーボードから入力された文字列を逆順で出力しなさい
ビギナ向けのドリルですねー

素直に考えりゃ文字列を裏返し、そいつをプリントすんのかな。

    Sub Reverse()
        Dim input As String
        Dim result As String
        Dim i As Integer
        ' 一行読んで
        input = Console.ReadLine()
        ' 裏返して
        result = ""
        For i = 0 To input.Length - 1
            result = result & input(input.Length - 1 - i)
        Next
        ' プリントする
        Console.WriteLine(result)
    End Sub

裏返した文字列を作るんじゃなく、ケツから一文字ずつプリントするもよし:

    Sub Reverse()
        Dim input As String
        Dim i As Integer
        ' 一行読んで
        input = Console.ReadLine()
        ' ケツからプリント
        For i = 0 To input.Length - 1
            Console.Write(input(input.Length - 1 - i))
        Next
        Console.WriteLine()
    End Sub

ちょびっとひねくれよう。
頭一文字を除いた文字列を裏返し、頭の文字をプリントする:

    ' input を逆順にプリント
    Sub etirW(ByVal input As String)
        If input.Length <> 0 Then
            etirW(input.Substring(1)) ' 頭を除いて裏返し、
            Console.Write(input(0)) ' 頭をプリント
        Else
            Console.WriteLine()
        End If
    End Sub

    Sub Reverse()
        etirW(Console.ReadLine())
    End Sub

夜も更けるとくだらんコードで遊びます...

わんくますごいのうすごいのう

επιστημη — Wed, 07 May 2008 17:15:00 GMT

今週末は大阪。今月末は東京。
名古屋#3 や福岡#2 の計画も進んでおる模様です。

...いっぺんやりたい横浜勉強会。
東京でいーぢゃん?

ぃゃぃゃ

懇親会を中華街でやれるやんかあ!

二階から目薬

επιστημη — Tue, 08 Apr 2008 11:08:00 GMT

　　二階にいる人が階下の人に目薬を点（さ）そうとするということで、思うようにならずもどかしいこと。
　　また、回り諄（くど）くて、効果が覚束（おぼつか）ないことの喩え。

目薬だからいけないんですね。
「ひょっとしたら...」って期待/希望がありますもんね。

「二階から胃薬」

これならまだ諦めがつきます。

そーなのかー

επιστημη — Fri, 21 Mar 2008 16:48:00 GMT

生命科学とか遺伝学とかの資料をめくってて知ったんですけどね。

性染色体X,Yありますな。男がXYのペア/女がXXのペアです。
Yの持つ遺伝子はXのそれに比べすっごく少ないそうです。
Y染色体はX染色体の組替えを何度も繰り返すうちに派生したものらしく、
よーするにデフォルトで女なんだってさ。

てことは:

class Iヒト { string らしさ(); }
class ♀ : Iヒト {
public string らしさ() { return "女"; }
}
class ♂ : Iヒト {
public string らしさ() { return "男"; }
}

じゃなくてー

class Iヒト { string らしさ(); }
class ♀ : Iヒト {
public virtual string らしさ() { return "女"; }
}
class ♂ : ♀ {
public override string らしさ() { return "男"; }
}

なのね。
なるほどー、だっから男は女にoverridうわやめろなにをくぁwせdrftgyふじこlp；

パラドックスをもうひとつ。

επιστημη — Tue, 18 Mar 2008 14:18:00 GMT

自分自身について述べている語をオートロジカルと呼ぶことにしよう。
たとえば「日本語」は日本語であるからオートロジカルであるし、
「短い」は短いからオートロジカルである。

さらに、オートロジカルでない語をヘテロロジカルと呼ぼう。
たとえば「英語」は英語じゃないからヘテロロジカルだし、
「長い」は長くないからヘテロロジカルである。

そこで質問。
「ヘテロロジカル」はオートロジカルか? ヘテロロジカルか?

ゼノンのパラドックス

επιστημη — Tue, 18 Mar 2008 13:40:00 GMT

ネタ元 → 妄想プログラミング

ははん、「アキレスと亀」ですな。
亀が俊足自慢のアキレスにかけっこ競争を挑む。
アキレスはそんな亀を鼻で笑い、ハンデを認めた。
亀は90mのハンデをもらいヨーイドン。

　秒速10mのアキレスは亀のスタート地点に達する。
　そのとき秒速1mの亀はアキレスの9m先を行く。
　アキレスは亀に追いつくべくさらに9m進むが、
　そのとき亀は90cm先にいる。
　それを追いかけアキレスが90cm進むと亀は...
　アキレスと亀との距離は縮んでいくけれども0にはならない。
　すなわち、アキレスは亀に追いつけない。

[たねあかし]
90mの距離をアキレスが駆けるのに要する時間は9秒。
その間に開いた9mを駆けるのに0.9秒。
その間に開いた90cmを駆けるのに0.09秒
...
ぜーんぶ足すと 9.999999... 秒。

上述のパラドックスは、
「アキレスは10秒以内には亀に追いつくことができない」
という至極当然のことを述べているにすぎない。

「有限の時間では無限の点を通過できない」
と考えるとゼノンの罠にハマるのです。

勉強会のおみやげ

επιστημη — Sun, 16 Mar 2008 19:30:00 GMT

ぽぴ王子にいただきました♪

まぁ、なんてかわいい茶壺ですこと(違

トイレの電球が切れました

επιστημη — Sat, 16 Feb 2008 01:42:00 GMT

いやホントどーでもいいことなんですけどね。

いましがたトイレの電球が切れました。
天井見上げるとひとまわりデカいまん丸の白熱電球。
買い置きがないかと物置をごそごそしてました
「えーと、ボール球ボール球と」

...ボール球ておかしくね?

やりたいことはよくわかる

επιστημη — Tue, 29 Jan 2008 11:10:00 GMT

ネタ元 → 変数で宣言するには？

名前によって実体を掴みたいんだな。

マグリットの有名な一枚。(←直リンだと思わしくないらしいので修正)
大きく描かれた"パイプ"の下にキャプション

「これはパイプではない」

...え?

- これが"リンゴ"に見える? "ティーカップ"に見える? どっからどーみても"パイプ"やろ!?
- いいえパイプではありません。喫えないでしょ?

どちらも正解です。 "パイプ"であり、パイプでないのです。