Problem 35 module Problem_0035 (* 197は巡回素数と呼ばれる. 桁を回転させたときに得られる数 197, 971, 719 が全て素数だからである. 100未満には巡回素数が13個ある: 2, 3, 5, 7, 11, 13, 17, 31, 37, 71, 73, 79, および97である. 100万未満の巡回素数…

Problem 34 module Problem_0034 (* 145は面白い数である. 1! + 4! + 5! = 1 + 24 + 120 = 145となる. 各桁の数の階乗の和が自分自身と一致するような数の総和を求めよ. 注: 1! = 1 と 2! = 2 は総和に含めてはならない. *) (* 40730 4443 ms *) let calc() …

コンボボックス内の任意のアイテムの選択の仕方 何でこうなったかと作った人に聞いてみたいですが、まー当時はこれでも大分便利だったんでしょう。。。 '''使い方： Call SelectComboBoxItem(Me.cmbTest, 14) Private Sub SelectComboBoxItem(ByRef cmb As C…

Problem 33 分数として扱わなくても計算できるだろうという観点で考えます。以下がこれまで考えた結果のまとめみたいなもの、4通りに絞れるはずが、3通りしかでなかったので、どこかに見落としが含まれているはず。。======================================…

Problem 32 module Problem_0032 (* 7254は面白い性質を持っている. 39 × 186 = 7254と書け, 掛けられる数/掛ける数/積に1から9の数が1回ずつ出現する. 掛けられる数/掛ける数/積に1から9の数が1回ずつ出現するような 積の総和を求めよ. HINT: いくつかの積…

出来うる限りスクリプトはPowerShellで作っていますが、対象サーバが Windows Server 2008 より以前のOSの場合はどうしても WSH や bat ファイルになってしまいます。 VBは見たくもないので、基本JScriptを利用した WSH を組み立てていく予定ではありますが…

途中まで リモート接続後に環境変数からユーザ名を取得できると期待したい。 Windows Server 2008 ならこんな苦労をせずに、IPv4Address というプロパティが用意されてるっぽい・・・ filter TestLoop { ('------------------------------------------------…

「JSON = オブジェクトリテラル」と何年間も認識していたため、正しい書式が分からなかっただけでした。 下記のように修正することで動作を確認できた！ ■ ソースコード (aspx.cs) 抜粋 private static string GetDriveSize() { var sb = new StringBuilder(…

/** * Disk Size Name * 数値を PB TB GB MB KB B に変換する。 */ var dsn = function (num) { var sizename = []; sizename[0] = "B"; sizename[1] = "KB"; sizename[2] = "MB"; sizename[3] = "GB"; sizename[4] = "TB"; sizename[5] = "PB"; for (var cn…

jQueryは数回しか使ったことがありませんが、何とか一応完成。■ 気に入らない点 $.ajax の dataType を "json" または var json = eval(data); を var json = $.parseJSON(data); にするとエラーになり1時間以上格闘しても、正しい書式が分からない為断念。 …

とりあえず、こんな感じで動くかもしれません。 jQueryコードは後日作成予定 ■コード（aspx） <%@ Page Language="C#" CodeBehind="Default.aspx.cs" Inherits="GetDiscSizeAjax._Default" %> ■コード（aspx.cs） public partial class _Default : System.We…

<######################################################################### 【子フォルダ圧縮スクリプト】 圧縮ソフトは WinRAR を使用 フォルダの絶対パスを指定する。 指定された絶対パス内のアイテムごとに圧縮する。 圧縮の詳細 RAR書式 リカバリー…

超適当に書いたコードで、まだバグあるかと思います。 ドライブレターなんて文字列なのに引用符で囲ってないとか、他色々■コード（aspx） <%@ Page Language="C#" CodeBehind="Default.aspx.cs" Inherits="GetDiscSizeAjax._Default" %> ■コード（aspx.cs） …