お久しぶりです。

私のパソコンにVBScriptなるプログラミング言語が入っていることを知って、さっきまでおもちゃを与えられた子供のように遊んでいたhnfsです。
時間を忘れてしまうところが困ったものです。

知らなかった・・・
カプレカ数を調べるときに統計用の「R言語」を使ってたあの頃の自分に教えてやりたい・・・

VBscript(Visual Basic Scripting Edition) はBasicの一種で、どうやらWindows 98 / Me / 2000 / XP などには標準装備されているようです。
私は今はwindows 7 ですが使えました（当たり前？）。たぶん Vista でも使えます。

VBScriptを動かすのはとっても簡単！
ソースをメモ帳に書いて、それを「.vbs」という拡張子で保存し、それを開くことで実行できます。


こういうものを手にしたら、私の場合はとりあえず素数判定のプログラムを作って動かしてみます。
後で見たときに「こんなこともあったなぁ」と思い出に浸れるようにする意味でも、ソースを下に晒しておきます。
ろくに調べもしないでさっと作った雑なプログラムなので、いろいろ突っ込みどころはあるかもしれません。それについてはあたたかいご指摘をお願いします(笑)
あとインデントされてませんがご容赦ください。

2番目のプログラムは、aの値を順次変える必要があります。でも1番目のプログラムよりは判定できる整数の範囲が大きいです。


あ、私のパソコンではこれで動きましたが他のパソコンでエラーが出ても対応はできませんので(笑)

追記：このページでは、コメントを示す「’」が全角変換されてエラーを起こすことがわかったので、「’」によるコメントを消しました。今の状態ならきっと動くはず！

---------------------------
msgBox("素数の判定をします。")

c = 0

while c = 0
a = cint(inputbox("数字を入力してください（注：あまりに大きい桁数だとオーバーフローします）。1を入力するとプログラムを終了します。"))

if a = 1 then
c = 1
msgBox "ちなみに1は素数ではありません（定義より）。"
end if

i = 2
b = a mod i

if b = 0 then
b = a
msgBox CStr(a) &"は素数ではありません。そして、"& CStr(i) &"で割り切れます。"
else
while b >< 0 and i^2 < a
i = i + 1
b = a mod i
wend
end if

if b = 0 then
msgBox CStr(a) &"は素数ではありません。そして、"& CStr(i) &"で割り切れます。"
end if

if b >< a and b >< 0 then
msgBox CStr(a) &"は素数です。"
end if
wend
---------------------------
a = 2147483647

i = 2
b = a mod i

if a = 1 then
msgBox("1は素数ではありません。これは定義です。")
end if

if b = 0 then
b = a
msgBox CStr(a) &"は素数ではありません。そして、"& CStr(i) &"で割り切れます。"
else
while b >< 0 and i^2 < a
i = i + 1
b = a mod i
wend
end if

if b = 0 then
msgBox CStr(a) &"は素数ではありません。そして、"& CStr(i) &"で割り切れます。"
end if

if b >< a and b >< 0 then
msgBox CStr(a) &"は素数です。"
end if
---------------------------


今日はこんなところです。Posted by hnfs.

現在プロ野球は春季キャンプ中。
開幕までは特に大きな話題もなさそうなので、今日は日本ハムキャンプの話題をちらほらと。


・中田
梨田監督の中田に対する評価が上がっているようです。
毎年この時期は調子が上向きなのですが、今年は内容も伴っているようです。
去年の活躍も終わってみれば一時期だけのものでしたが、今年は一年を通して存在感を見せてほしい。


・練習試合で準パーフェクト
この日の日本ハムと韓国・サムスンとの練習試合でのことです。
ダルビッシュ - 木田 - 武田久 - 武田勝 - 八木のリレーで四球の走者一人だけ。
しかしこれはキャンプでの練習試合です。ランナーが一人だけでは練習としては物足りなかったのでは・・・シーズン中にこんな状況に置かれるのはまれですからね。

武田勝が一言。
「調整とか言ってられなかった。」


・ドラ1投手
最近ストレスからくる（？）腹痛をおこしたらしいですが、あの重圧に耐えながら練習をするのは相当に大変だったでしょう。
無理して体を壊すような真似はしてほしくないのですが、その点については冷静な判断ができるはずですので心配は無用かな。

------------------------------------------
余談。

今シーズン一度は見てみたいソフトバンクのオーダー：

1. 二　本多
2. 遊　川崎
3. 中　多村
4. DH　カブレラ
5. 一　小久保
6. 左　松中
7. 右　内川
8. 三　松田
9. 捕　細川

外野守備がかなりアヤシイですが、それには目をつぶって一度くらいは打撃重視のオーダーを！！！8番松田って・・・なんて贅沢な！


今日はこんなところです。Posted by hnfs.

前回の続き。

九州在住なので大丈夫だとは思いますが、ネタバレ等が気になる方はスルーをお願いします。

・レベルE
動画配信サイト「GyaO !」にて。
#6 「Dancing in the trap!!」まで視聴。カラーレンジャーの第2回です。

さすが冨樫原作といったところか。約15年前の作品でやや古さはあるものの今見てもおもしろい。とくにクラフトは見ていておもしろすぎる！

一人だけやたらレベルが上がっていた黒レンジャーに期待しつつ、来週を待ちます。


・君に届け 2ND SEASON
episode.5 「すきな人」まで視聴。

三浦が黒沼に「風早には好きな人がいる」と告げ、黒沼が泣いたところで風早in。ここまでがepisode.5。

三浦がいい具合に場を荒らしてくれてますな。いいじゃないですか！楽しくなってきた。
この手の物語はどんな結末になっても大丈夫な覚悟はしているので、なんでも来いです。
ま、たぶん風早と打ち解けるんだろうけどなぁ～


・魔法少女まどか☆マギカ
ニコニコ動画にて。
第6話「こんなの絶対おかしいよ」まで視聴。

思わず上の6話のサブタイトルを叫んでしまうような話。とくに3話以降。完全にキャラデザに騙されました。今のところ話に全く救いようがない！
「君に届け」以上に、どんな結末でも受け入れる覚悟が必要でしょう。
それでもやっぱりここまでで今季一番面白いアニメです。

6話はほむらがさやかのソウルジェムを取り戻し、さやかが“生き返る”ところまで。
キュゥべぇのような生物と人間とは価値観が違うのでしょうが、「わけがわからないよ」のセリフには驚きを隠せませんでした。
ってこのアニメを見てる人じゃないと伝わらないか。

個人的に、ED のアニメ版ジャケットのようなシーンがクライマックスの名シーンとなるような展開を望みます。
あっさり裏切られそうですがね。


--------------------------------------------------------

こっちは地上波放送が3本しかないため、ネット配信も3つ入れました。
3月半ばからは「もしドラ」もありますけど。


今日はこんなところです。Posted by hnfs.

早いもので、もう2月もあと1週間。
というわけで、今視聴しているアニメのここまでの感想をちらほらと。

九州在住なので大丈夫だとは思いますが、ネタバレ等が気になる方はスルーをお願いします。

・GOSICK
第6話「灰色の狼は同胞を呼びよせる」まで視聴。

母親の無実の罪を晴らすべく灰色狼の村にたどり着いたところまで。
母親が絡んでくるので、ひょっとしたらこの事件でヴィクトリカの境遇の真相がはっきりするかもしれませんね。

推理もののアニメは前回の細かい流れを忘れていることが多いので、注意深く見ないといけませんね。


・これはゾンビですか？
はい、第6話「そう、私は死を呼ぶもの」まで視聴しました。

これはゾンビですか？ - はい、歩の魔装少女への変身シーンが斬新です。
これはゾンビですか？ - いいえ、ギャグ主体かと思っていたら意外とシリアスもありました。
これはゾンビですか？ - はい、まだユーは（歩の妄想以外では）しゃべってくれません。


番外編：

・放課後のプレアデス
YouTubeで全話公式に配信されています。ただし全25分。
スバル自動車のプロモーションとして企画されたそうです。

ストーリーは短いですが、その分絵がとても丁寧に描かれている印象。
魔法などのアクションもキレイによく描かれていると思います。
もうちょっと長めの話で見てみたかった気もします。

--------------------------------------------------------

まだいくつか残っていますが、長くなりそうなのでまた改めて書きなおします。
あと3つ。そのうち2つはネット配信で見ているアニメです。

今日はこんなところです。Posted by hnfs.

現在プロ野球は春季キャンプ中。
開幕までは特に大きな話題もなさそうなので、今日は私が初めてプロ野球を現地観戦した試合について書いてみようかと。


2008年6月23日。
前日に予定されていた横浜スタジアム（ハマスタ）での試合が雨のため延期になり、その代替試合とされた試合です。
このときは神奈川に住む親戚のところに遊びに来ていて、私の地元ではなかなかみられなかったプロ野球の公式戦に連れて行ってもらいました。プロ野球初観戦です。一塁側内野席で観戦しました。

対戦カードは 横浜ベイスターズ 対 埼玉西武ライオンズ。
2008年のセパ交流戦の最終試合でした。セでは横浜をひいきにしているので、一塁側で横浜の勝利を期待していました。

内野席から球場を見渡した時の第一印象は、「意外と狭いんだな～」。
若干遠近感が狂っていたのかもしれません。試合前練習をしている選手と球場を見比べてみるとやっぱり広くも感じたり。

今はどうかわかりませんが、当時のハマスタは試合前に観客を対象にスピードガンコンテストをやっていました。
子供たちがキャッチャーめがけて山なりのボールを投げるのはほほえましかったですね。中には大人もいましたけど。


さて、試合です。
先発は、横浜：ウッド、西武：石井一。
スターティングメンバーはテレビでしか見たことのない選手ばかりで、知っている選手も多く（というか全員知っている）、ちょっと大げさですが異世界にいる気分でした。

試合結果は次の通りです（↓日本野球機構公式HP）
http://bis.npb.or.jp/2008/games/s2008062300862.html
10 - 5 で横浜の勝利ですよ！！

一番印象に残っているのは1回の裏の村田のHR。看板直撃だったような気がします。いや、場外だったかな？なんでこんな大事な記憶が曖昧なんだ・・・
いきなりホームランが見られるとは思ってなかったんでびっくりでしたよ。しかも横浜から。
そのあとも横浜打線のつるべ打ちで止まりません。一挙4点です。

3回にも横浜に3点が入り、追加点も効果的に出て、そのまま試合終了。
先発のウッドに初の勝ち星がつきました。

試合後のヒーローインタビューは村田。
何を発言していたかは覚えていませんでしたが、なにか冗談を言っていたような気がします。


今季もはやく観戦に行きたくなってしまいました。4月からしばらくは関東なので、ハマスタにまた行けるかも。

今日はこんなところです。Posted by hnfs.

2 の 32 乗（≒ 43 億 ）個もあったIPアドレスもなくなっちゃいそうです。
(IANAの中央在庫枯渇で、新規IPアドレスは払底目前に：ascii.jp)
http://tech.ascii.jp/elem/000/000/586/586218/

IPアドレスを管理する国際機関・IANAのIPv4アドレスが2月3日に枯渇したそうな。それによって各地域の在庫アドレスも減っていき、日本では夏ごろに在庫枯渇となるようです。

NAPTというIPアドレス変換機能で新アドレス方式への移行需要は縮小するとの見方がされていましたが、枯渇してしまった今、もうそんなことは言ってられないでしょうね。
いや～、Web化の進展は速いものだ。ヒトの予測なんて簡単に裏切ってしまいますね。


新しい規格であるIPv6。IPv4が約 43 億個のアドレスを用意できたのに対し、IPv6はなんと約 340澗（= 340×(10の36乗) ）！！！
34 に 0 が 37 個も付いてきます。果てしなく多い・・・でもこれもいずれは枯渇するのかもしれませんね。
(IPv4アドレス枯渇は「世界のWeb化」の反映：itmedia)
http://www.itmedia.co.jp/news/articles/1102/07/news012.html
ちなみに、IPv5という規格もあるそうですが、これは一般がりようするものではないそうです。
しかしこのIPv6、IPv4との互換性がないため移行は大変面倒なことになるそうです。
このために移行を先延ばししてきた面もあるかもしれませんね・・・


今日はこんなところです。Posted by hnfs.

2011年。
2011の2、0、1、1を並べ替えると、最大で2110、最小で0112（= 112）となります。
最大から最小を引いてみると・・・
2110 - 0112 = 1998。

1988の1、9、8、8を並べ替えると、最大で9811、最小で1189。
引くと、
9811 - 1189 = 8082。

同様に、
8820 - 0288 = 8532、
8532 - 2358 = 6174。

この操作をカプレカ操作というようです。では、6174についても続けてカプレカしてみましょう。でも・・・

7641 - 1467 = 6174。

また6174になります。ということは、これ以上カプレカ操作を続けても永遠に6174が出続けることになります。
6174のように、桁を並び替えて最大数から最小数を引いたとき、元の数に戻る数はカプレカ数と呼ばれています。カプレカ数は他にもまったく異なる定義があるそうですが、ここではそんなこと気にしません。

カプレカ数は他に、
0、495、（6174）、549945631764、・・・などがあります。
4桁から一気に12桁に飛ぶんですねぇ

カプレカ数でない他の数について、たとえば12345については
54321 - 12345 = 41976
97641 - 14679 = 82962
98622 - 22689 = 75933
97533 - 33579 = 63954
96543 - 34569 = 61974
97641 - 14679 = 82962

となり、「82962→75933→63954→61974→82962→・・・」というサイクルが出てくることがわかります。
よくよく考えてみれば当たり前なことです。
どんな数（たとえば 11 桁の数）にカプレカ操作を施しても、高々10 の 11 乗通りの数（00000000000 ～ 99999999999）しか現れません。
よって、少なくとも「10 の 11 乗」+ 1 = 100000000001回カプレカ数を繰り返せば（相当膨大な回数ですが・・・）、最低でも1つの数については重複することとなってしまいます（上の例の82962のように）。
そこからサイクルを作ることができますね。
一つの数でサイクルが閉じているパターンが 6174 のようなカプレカ数となっています。

さて。
6174は4桁のカプレカ数ですが、実はどの4桁の数もカプレカ操作を繰り返せば 0 か 6174 に戻るらしいです。
さらに、495は3桁のカプレカ数ですが、いくつかの数字で確認したところ、どれもカプレカ操作を繰り返せば 0 または 495 にたどり着いてしまいました。

3桁の数はすべてがカプレカ操作により 0 または 495 にたどり着くのでしょうか？
（→追記：確認してみたところ、そのとおりでした。0 または 495 になります。）
カプレカ数が存在する桁の数はどんな数でもカプレカ操作により 0 またはそのカプレカ数にたどり着くことができるのでしょうか？

調べもせず証明もせず申し訳ありませんが、知っている方がいたら教えてください。


今日はこんなところです。Posted by hnfs.

ご機嫌いかがでしょうか？

阪神の新マスコットが「キー太」と聞いて、思わず「ギー太」を思い浮かべてしまったhnfsです。もしかして、阪神はこれを狙った・・・？

さて、今季からユニフォームを一新することになった模様。
下記リンク先にそのユニフォームの画像があります。
（ユニフォーム）http://www.fighters.co.jp/expansion/brand/uniform/
（実際に選手が来た様子）http://www.fighters.co.jp/news/detail/1818.html

まぁいいんじゃないか、とは思います。
前の左右非対称のデザインを引き継いでくれたのはうれしいですね。

青のラインが入ったところが注目すべき変更点なのでしょう。
ビジター用は上が金色を基調としています。上下ともグレーでそろえるよりも、こちらの方がはっきりしてて好きです。でも金色は目立つだろうな～

帽子のロゴは Fighters の「F」から、Hokkaido の「H」へ。
そこはそのまま「F」にしてもらいたかったのですが・・・残念。
でもよく見てみると「H」のキャップはビジター用だけの様子。あれ？ビジターで「H」？


正直言うと、変えてほしくはなかったのですがねぇ。
結構気に入っていたので。前のユニフォーム。
まぁしかし、前のユニフォームは北海道移転から7年使っていたことになるので変え時なのかもしれません。
繰り返しますが、左右非対称のデザインを継承したのはうれしいです。デザインも好きなので、あとは慣れでしょう。


今日はこんなところです。Posted by hnfs.

涌井は3300万円増＝調停委「アップ相当」－プロ野球・西武（時事通信）
http://www.jiji.com/jc/c?g=spo_date1&k=2011012800909

選手の年棒を第三者が判断する年俸調停という制度。

年俸の決定は球団が主導で行われ、選手は保留するケースはあるもののあまり調停に持ち込まれることはありませんでした。
しかし、今回は涌井選手がどうしても納得がいかず、調停が行われたようです。

前年は16勝6敗、防御率2．30で2億2000万、今年は14勝8敗、防御率3．67。
球団は現状維持を提示し、涌井側は5000万アップを希望していたようです。
調停委員会はその間を取った、と言えるかも。
5年連続2桁勝利など、継続しての活躍を加味する必要があるだけに判断が難しいんでしょうね。そのおかげもあって、ダルビッシュの年俸は大変なことに・・・
年俸調停は客観的に判断されるのでおおいに歓迎されるようです。
（涌井調停・談話＝プロ野球、時事通信）http://www.jiji.com/jc/c?g=spo_date1&k=2011012800914

しかし、涌井ほどの選手（西武のエース）なら問題はありませんが、1軍半の選手や戦力外の当落線上にいる選手は来年以降のことを考えると調停まで持ち込むのは難しそうです。
もちろん球団もいろいろな事情を加味して年俸を提示しているでしょうから、選手に納得してもらうだけの説明をすることが大事なんでしょうね。


今日はこんなところです。Posted by hnfs.

久しぶりにこのテーマで書いてみます。ホントに久しぶりだな～

人に物事を教える。
部下や後輩などができたら、こんな場面も多いのではないかと思います。

そのためには、まず

「教えられる側の頭に、知識を入れるための器を用意してあげる」こと。


これは最近私が読んだネットワーク関連の本で実際に用いられていたことであり、これを模倣するもよいのではないかと思います。
（その本とは、
「いちばんやさしいネットワークの本」（技評SE選書)　五十嵐 順子 (著)
です。）

教えられる側は常に知識を受け入れられる態勢に入っているとは限りませんからね。
小学校・中学校・高校の授業がいい例なのではないかと。
そういうわけで、こちらから専用の記憶領域を確保してあげると効果が高くなるのはうなずけます。

次に問題となるのが、
・領域確保のための導入は具体的にはどうするのか
・確保した領域にいかに効率よく知識をインストールするのか
ということだと思います。

両方とも、教える側の腕の見せ所といえばそれまでかもしれませんが、ちょっと付け足しておくならば、
・身近で面白い例を持ち出し、想像を膨らませる
・導入で用いた内容に対するなんらかの結論を用意する
など、興味・関心を引いたり好奇心を満足させるような仕掛けを作っておくとよいのではないかと思います。

こういう仕掛けを作り出すのはセンスなどに左右されるかもしれませんが、ただ知識や事実だけを詰め込むよりは効果が高いんじゃないかな？


まだ考察が甘い点があるでしょうけど、それはまた機会があれば書き直したいと思います。

とりあえず。


今日はこんなところです。Posted by hnfs.

ご無沙汰です。

大学生のドラ1がいつまでも鎌ヶ谷にいてもらっては困る、そんなhnfsです。


オリックスが坪井獲得

おお！決まった。おめでとうございます、坪井選手。
なんかうれしいですね。こういうの。

コーチ打診を固辞してまでこだわり続けた現役プロ野球選手という生き方。
ぜひオリックスで見せていただきたい！

あのやわらかいフォームからの流し打ちがとても印象に残っています。
（日本ハム戦以外で）またあの打撃が見たいです。
しかしながら、一体何試合に出場できるのか。微妙です。
---------------------------------------------

柴原が年棒調停を取り下げ

減額制限を大幅に超える減棒で年棒調停になりかけましたが、結局出来高をつけることで落ち着いたようですね。

活躍できなければ大幅減棒は免れない世界ではあるが、しかし上がり下がりの幅が大きいですね、プロ野球選手の年棒って。
（なお、今回の柴原選手の契約更改では48%ダウンの推定6240万円プラス出来高。by デイリ～。これを元に計算すると、今回の減額は5760万円！！・・・柴原選手、是非出来高で取り戻してください。もちろんハム戦以外で・・・）
http://daily.co.jp/newsflash/2011/01/17/0003744301.shtml

さて、涌井選手は・・・どうなるんでしょうね？


今日はこんなところです。Posted by hnfs.

1月です。

記録の意味も込めて、私の住んでいる地域（福岡）の今季・2011冬アニメを私が調べた範囲でまとめておきたいと思います（もちろん、深夜帯のアニメに限る）。

Sunday：
君に届け 2ND SEASON　25時20分～

Monday ：
なし・・・。

Tuesday ：
なし・・・。

Wednesday ：
GOSICK　25時43分～
これはゾンビですか？　26時43分～

Thursday ：
なし・・・。

Friday ：
なし・・・。

Saturday：
なし・・・。

短期集中：
もしドラ　22時55分～
3月14日（月）～3月18日(金)　& 3月21日（月）～3月25日（金）
小説『もし高校野球の女子マネージャーがドラッカーの『マネジメント』を読んだら』のアニメ化です。

少ねぇ・・・
2010秋・9本 → 2011冬・4本。1・2月は3本

まぁいいさ。この4本が面白ければ。
「もしドラ」は唯一原作を読んだことがあるので、アニメでどうなるかは楽しみです。


うん。



今日はこんなところです。Posted by hnfs.