iotaを書いてパスカルの三角形を作った - kiyo_hikoのブログ
iota10分ぐらい、三角形10分ぐらいでやっつけた。 大したことはやってないし多分遅い。 (defun iota (to &optional (from 0) (step 1)) (do ((i from (incf i step)) (ns nil)) ((< to i) (nreverse ns)) (setf ns (cons i ns)))) (defun pas (n k) (if (or (= n 1) (= k 1) (= k n)) 1 (+ (pas (- n 1) (- k 1)) (pas (- n 1) k)))) (defun line (n) (mapcar #'(lambda (k) (pas n k)) (iota n 1))) (defun sankaku (n) (mapcar #'(lambda (n) (line n)) (iota n 1)))
VBA使ってフォルダーのサブフォルダーとファイルを再帰的に拾う - kiyo_hikoのブログ
いろいろ切り詰めていたが、そろそろボーナスだから最近は財布の紐もゆるめいて来て、Excel2010を買った。これで家でもExcelを勉強できるようになった。 手始めにFileSystemObjectを使った。 FileSystemObject (以下FSO) を使うには、VBEの参照設定で、Microsoft Scripting Runtimeをチェックする。 Dim fso As Object Set fso = OreateObject("Scrpting.FileSystemObject") ↑でもFSOのインスタンスを作れるみたいだが、めんどくさいしインテリセンスが効かない。 VBAの文法はなんだか煩雑さを感じるが、とりあえずFSOはモジュールレベルでNew付きで宣言しておけば記述が簡単そう。 Private fso As New Scripting.FileSystemObjec
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
お絵カキコ→完成 - kiyo_hikoのブログ
個別「20121118100351」の写真、画像 - illust - kiyo_hiko's fotolife
個別「20120109081411」の写真、画像 - illust - kiyo_hiko's fotolife
