ヨタ

CATV-internetに乗り換えて

επιστημη — Mon, 13 Jul 2009 00:58:00 GMT

So-net 3Mbps-ADSL(ACCA) から
JCNよこはま CATV 8Mbps-CABLEmodem
に乗り換えて数週間。
工事直後の10日間は30Mbpsで繋がってて実効10Mbps(1/3)程度でした。
現在は契約通りの8Mbps、1/3に落ちちゃったら今までの 3Mbps-ADSL
より遅くなっちゃうんでヤだなーと思ってたわけですが、
定期的に測定してみると 下り7.6M/上り960k 程度で安定してます。
上等ですね。

CATV-CABLEの空き帯域を使い、さらにその帯域をいくつかの加入者が
シェアしてるんだそうです。んだから同じ回線に収容された加入者が多いほど
実効速度が落ちると思われます。幸いにも今んとこスカスカなんでしょね。
近くにマンションとか建っちゃったら分け前が減るんかなー…

'祭り'を仕掛けてみるテスト

επιστημη — Thu, 26 Feb 2009 17:16:00 GMT

お題:

Visual Basic 男子校を参考に(しなくてもいいけど)
「ツンデレ」を表現せよ。

- 言語は問わない。
- ツンデレの解釈も問わない。が、その解釈に則った実装であること。

答案は各自のBlogからココにtrack-backすること。

※ お題は「ツンデレ」に限らず、「素直クール」「ドジッ娘属性」「絶対領域」など、
　そのテのものでかまわない。エントリ内にお題を明記すべし。
※ そのテの解釈も各自の判断に委ねるものとする。

冬季中間試験

επιστημη — Tue, 27 Jan 2009 11:51:00 GMT

問: 下の文章の[1]-[4]に適当な語句を入れなさい。

「みそ汁の具といえばやっぱ[1]と[2]だよね。
　特に”[1]なきみそ汁はみそ汁にあらず”みたいな。
　あ、[3]も捨てがたいよなぁ名脇役ってゆーか。
　[4]? あれはべつになくってもいんじゃない?」

(配点:各25点)

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

επιστημη — 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秒以内には亀に追いつくことができない」
という至極当然のことを述べているにすぎない。

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