メインを片付けてしまって禁断症状気味。 急いでサブのx40をhogehoge... x40は遅いのです。それはとてもとても。 で。 vb->2008express おもったより軽快。visual c++をインスコするとemacsキーバインドが使えるようになる謎の仕様 SQLserverのインスコでエ…

ff->betaインスコ->betaはいろいろめんどくさい->アンインスコ->プロファイルも一緒に消してしまった。->svnは段ボールの中->bでaddを一度知ると他は使えないだろ？->bでaddを知ると他は使えないだろJK->イライラします。 悪い流れ。

RDOCとかjavadocとか他の言語にあってvbに無いというわけいはいきますまいまい。 http://journal.mycom.co.jp/articles/2008/07/15/Sandcastle/index.html 作成手順はめんどくさそうだがバッチ書けばいいのですばい。 ソースにドキュメント入れ込むのは異常…

Try Answer = TextBox1.Text / TextBox2.Text Catch ex As Exception MsgBox(ex.Message) Finally Label1.Text = Answer End Try finallyがあるからファイルハンドルのクローズとかできるのですね。 いいねいいね。 正規表現もできるっぽいしグロブ展開もで…

VB_PGに落ち込んだのでブログタイトルを変更しました。 何でJAVAをやりたいというと気色ばんで否定しようとしますか? ++ modeverv::hatena $title="ニート=>vb_PGは生き残れるか" -- modeverv::hatena $title="ニートはPGになれるのか"

ヘッドホン推奨 ハットぽいのがperfumeでしょ?

;;; q2.53 (list 'a 'b 'c 'd) (list (list 'george)) (car '((x1 x2) (y1 y2))) (cdr '((x1 x2) (y1 y2))) (cadr '((x1 x2) (y1 y2))) (pair? (car '(a short list))) (memq 'red '((red shoes) (blue socks))) (memq 'red '(red shoes blue socks)) ;;; q2…

;;; q2.41 ;;3つの組み合わせを作ります (define (make-trio n) (flatmap (lambda (i) (flatmap (lambda (j) (map (lambda (k) (list k j i)) (enumerate-interval 1 (- j 1)))) (enumerate-interval 1 (- i 1)))) (enumerate-interval 1 n)) ) ;(caddr (lis…

ねむい ;;何だか自信無くなって来ました。。。。 ;;; q2.33 (define (accumulate op initial sequence) (if (null? sequence) initial (op (car sequence) (accumulate op initial (cdr sequence)))) ) ;;(accumulate + 0 (list 1 2 3 4 5)) (define (map p …

苦労した (define (reverse ls) (reverse-itr ls '()) ) (define (reverse-itr ls ans) (if (null? ls) ans (reverse-itr (cdr ls) (cons (car ls) ans)) ) ) (define (deep-reverse ls) (deep-reverse-itr ls '()) ) (define (deep-reverse-itr ls ans) (if…

;;; q2.21 (define (square-list items) (if (null? items) '() (cons (* (car items) (car items)) (square-list (cdr items))) ) ) (define (square-list items) (map (lambda (x) (* x x) ) items) ) (square-list (list 1 2 3)) (define (square x) (* x…

ちょっと混乱するわ ;;; q2.4 (define (cons x y) (lambda (m) (m x y))) ;手続きを引数 (define (car z) (z (lambda (p q) p))) ;手続きzにlambda手続きを渡す (define (cdr z) (z (lambda (p q) q))) (define a (cons 1 2)) ;;=>lam (a) (a 1 2) (car a) ;…

;; q2.1 ;;正負を正規化するmake-ratの改良版 (define (make-rat n d) (cond ;; (((and (> n 0) (> d 0))(cons n d));両者+ならそのまま ((and (< n 0) (< d 0)) (cons (* -1 n) (* -1 d)));両者-なら両者-で ((and (> n 0) (< d 0)) (cons (* -1 n) (* -1 d…

ちょっと楽しい ;;; 1.3.4 値として返される手続き (define (average a b) (/ (+ a b) 2) ) (define (square a) (* a a) ) (define (average-dump f) (lambda (x) (average x (f x)))) ((average-dump square) 10) ;;; q1.41 (define (double f) (lambda (x)…

問題文を読めばよい ;;;q1.16 冪乗 ;;; $Id$ ;;;線形 (define (beki n c) (if (= c 0) 1 (* n (beki n (- c 1))) ) ) ;;(even? 2) ;;even?はあるらしい。 ;;(remainder hoge hoge)を使用せよとSICPにはあるが。 ;;;even?で省力するタイプ (define (square n)…

;;;q1.23 ;;;prime-next (define (prime-next n) (if (= n 2) 3 (+ n 2) ) ) ;;;+１していた物をprime-nextに置換えしたprime?内蔵 (define (prime?-clever n) (define (prime?-itr n c) (cond ((= (remainder n c) 0) #f) ((>= c (/ n c)) #t) (else (prime…

最初はリストをhogehogeして最終的にリスト内をクロールして足していけばいいじゃん! とか思ったけど入れ子リストがうまく扱えませんでした。。。。 ;;;1.12 (define (fact n) (if (= n 0) 1 (* n (fact (- n 1))) ) ) (define (combination n k) (/ (fact n…

昨日は肩こりがひどくて頭痛がやばかったのでビタミン剤を買ってきて飲んだのです マルチ+ミネラルとビタミンEと喫煙者なのでビタミンC 寝て起きたら肩こり軽減でびっくりした。欠乏してたのね。 肩こりならビタミンを摂取しませう。ビタミンEがオススメ。 …

;;mzscheme (require (lib "trace.ss")) (define save '()) (define (fact2 x) (if (= x 1) (call/cc (lambda (cc) (set! save cc) 1 ) ) (* x (fact2 (- x 1))) ) ) (trace fact2) ;begeinはプロンプト見にくいから (begin (newline) (fact2 10) ) (begin (…

エスケープを覚えた! はじめはまぁこうなるわな #! /usr/bin/env ruby require 'cgi' #htmlエスケープを覚えたのでgoogleサーチに流すというとても短絡的な犯行 #google searchのアドレス"支払拒絶証書"の例 #http://www.google.co.jp/search?q=%E6%94%AF%E6…

オブジェクトが同じなのね "abc" == "abc" #=> true "abc".equal?("abc") #=> false :abc == :abc #=> true :abc.equal?(:abc) #=> true おK

ANSI sql sqliteが行ロックできないって! sql理解するだけかよ! はまったわ。。。 #! ruby ################################################################################ ####DBI編! ##############################################################…

APをルータとハブと一緒に段ボールに入れてユニット化して1年。 熱暴走なのかハードウェアエラー。チェックシグナルばっかりで動かない。 中開けたら基盤の色も黒ずんでいるのでたぶんコンデンサ蒸発->異常電圧で焼き付けのお定まりのコース。まぁこんなもん…

http://blog.ohgaki.net/fedora-redhat 先週あたり、fedora7のyumが503だった。(fedora8は生存してた。) のと関係あるのか。 とにかくやばいやばい。

形態素分析してソート(って言うか日本語の話) 1000円を現金で銀行から借り入れた。 ↓ 現金1000円を銀行から借入 パース 2つ以上の要素がある :: 現金(1000円)/ :: 借入 の連打なのねとか思った。 明らかに妄想。

キラっ! LPICレベル1認定、おめでとうございます。 あなたは、世界的なLinuxおよびオープンソース技術者の コミュニティに参加を果たしたことになります。 LPICレベル1はエントリーレベルのLinuxの技術や知識の認定として、 グローバルに認知されています。

http://mainichi.jp/select/wadai/news/20080820dde018040052000c.html なんか古い? すんげーぬるい。 東先生!なんかぬるいですよ!

どう見ても非モテ界隈でクダを巻いてる自分がこの人と同じな気がしてならない。 うーん、僕もやるんだろうか?やるんだろうな。蟹工船とか。 お金が無くて余裕が無くて、非モテでクダを巻くってスパイラル。 男の子はどうしても経済力に自尊心を置くしどうな…

viewって実データは持ってないってイメージがおかしいのかなぁ。 data_only でpumpしたらどうなるの? 切れそうです。 http://otndnld.oracle.co.jp/document/products/oracle10g/102/doc_cd/server.102/B19211-01/dp_export.html 関係ないけどメモ http://ot…