http://kodukai.mudadukai.com/ 30歳。<br /> サラリーマンが月3万円のお小遣い<br /> を貯めて、運用して、アウディTTを買うまで<br /> の日記です。<br /> <br /> 連絡は afilhajime(スパム対策)@gmail.com<br /> まで。<br /> お気軽にどうぞ。<br /> ja http://kodukai.mudadukai.com/?eid=1042697 □ 今の貯蓄 ネット銀行 16,713円 証券会社 1,179,926円 現金 5,000円 合計1,201,639円 目標まであと3,198,361円 この3ヶ月で30万くらいマイナス。泣けるが 日経平均が3000円くらい下がってるので、そんなものか。 ネット銀行 16,713円
証券会社 1,179,926円
現金 5,000円

合計1,201,639円
目標まであと3,198,361円

この3ヶ月で30万くらいマイナス。泣けるが
日経平均が3000円くらい下がってるので、そんなものか。
]]> ただの日記 2008-10-07T21:35:12+09:00 じゅんのすけ じゅんのすけ http://kodukai.mudadukai.com/?eid=962909 すっかりSchemeプログラミング学習の記録に成り変っている 当プログですが、今日もSchemeネタです。 リストの操作を勉強してみた。 ;;リストの操作 ;;リストを作る (list 1 2 3 4 5) ; ⇒ (1 2 3 4 5) これでリストができた。 ;;リストを束縛する (define... 当プログですが、今日もSchemeネタです。

リストの操作を勉強してみた。

;;リストの操作

;;リストを作る
(list 1 2 3 4 5)
; ⇒ (1 2 3 4 5)
これでリストができた。

;;リストを束縛する
(define x '(1 2 3 4 5))
(define y '(6 7 8 9 10))
リストを2個作って xとy に束縛した。


;;リストの長さを数える(再帰)
(define (length- ls)
(if (null? ls)
0
(+ 1 (length- (cdr ls)))))
(length- x)
; ⇒ 5
リストの長さを数える関数を作った。
リストが空っぽなら0、そうでなければ+1して
残りを自分自身に設定する。これが再帰。


;;リストの結合(再帰)
(define (append- x y)
(if (null? x)
y
(cons (car x) (append- (cdr x) y))))
(append- x y)
; ⇒ (1 2 3 4 5 6 7 8 9 10)


;;リストの反転(再帰)
(define (reverse- ls)
(if (null? ls)
'()
(append- (reverse- (cdr ls)) (list (car ls)))))
(reverse y)
; ⇒ (10 9 8 7 6)

;;リストを結合して、反転
(reverse- (append- x y))
; ⇒ (10 9 8 7 6 5 4 3 2 1)

;;リストを結合して、反転してさらに反転
(reverse- (reverse- (append- x y)))
; ⇒ (1 2 3 4 5 6 7 8 9 10)

なんとなくリスト操作と再帰が分かってきた気がする。


□ 今の貯蓄
ネット銀行 103670円
証券会社 1,420,602円
現金 30,000円

合計1,554,272円
目標まであと2,845,728円

応援をお願いします。

人気ブログランキングへ
]]> プログラミング 2008-07-20T22:37:43+09:00 じゅんのすけ じゅんのすけ http://kodukai.mudadukai.com/?eid=960298 過去2回の挫折歴によって僕の本棚には Lisp関連の書籍が何冊もある(涙 何を持ってるのか忘れてたので調べてみた。 ↓にあるのは全部持ってる。 手放さずに良かった。 また勉強したいと思う日々がきたから。 □ 今の貯蓄 ネット銀... Lisp関連の書籍が何冊もある(涙

何を持ってるのか忘れてたので調べてみた。

↓にあるのは全部持ってる。













手放さずに良かった。
また勉強したいと思う日々がきたから。


□ 今の貯蓄
ネット銀行 3,670円
証券会社 1,483,963円
現金 35,000円

合計1,522,633円
目標まであと2,877,367円

応援をお願いします。

人気ブログランキングへ

]]> プログラミング 2008-07-16T21:54:36+09:00 じゅんのすけ じゅんのすけ http://kodukai.mudadukai.com/?eid=959036 今日覚えたこと。 Schemeでは無名関数を作ることができる。 lambdaを使う。ラムダと読む。λと書く。 一度きりしか使わない関数を作るとき 名前をつけなくても良いという利点がある(らしい)。 何が便利なのか？ λを理解する前に高階関数を知る必要がある。...
Schemeでは無名関数を作ることができる。

lambdaを使う。ラムダと読む。λと書く。

一度きりしか使わない関数を作るとき
名前をつけなくても良いという利点がある(らしい)。

何が便利なのか？

λを理解する前に高階関数を知る必要がある。

□高階関数

関数を引数として受け取るのが高階関数だ。

(define (func proc)
(proc 5 10))

関数 func の引数proc に関数名を受け取る。
下のように実行してみると...

(func +)
(func -)
(func *)
(func /)

> (func +)
15
> (func -)
-5
> (func *)
50
> (func /)
1/2

関数名を引数に受け取って、その関数の中で
実行してしまう。
Cだと関数ポインタだ。

話をλに戻す。

□無名関数を作る

((lambda (x) (* x x)) 3) ; → 9

xを2乗する無名関数を作ってみた。
だからどうだってんだい！と思う。

名前をつければいいじゃないって。

どうやら無名関数λは高階関数と相性が良いらしい。

用意されている高階関数 map を使ってみる。
map はリストの各要素に関数を適用する関数です。

(define (pow x) (* x x))
(display (map pow '(1 2 3 4 5)))
; → (1 4 9 16 25)

2乗する関数powを作って、高階関数powに与えると
引数に与えたリストの要素がそれぞれ2乗される。

ためしにλを使って書くとしよう。

(map (lambda (x) (* x x)) '(1 2 3 4 5))
; → (1 4 9 16 25)

関数に名前をつけなくても同じことができた。

□何が嬉しいのか？
λについて解説しているサイトは多いけれど
何が嬉しいのか？まで言及している記述を探すのは大変だった。

IBM developerworksに記述があった。

引用

・プログラムの名前空間が、一度しか使用されない多くの関数で汚されることがありません。
・関数のコードをそれが使用される正確な場所に置くことができるので、プログラマーは1回限りの小さな関数のコードを探し回る必要がありません。
・関数とそれが渡される関数とを明確に関連付けることができるので、関数が使用されるコンテキストが他のプログラマーに分かりやすくなります。1回限りの関数がそれを呼び出す関数と離れた場所にあった場合、呼び出す関数が後から削除された場合、1回限りの関数も削除する必要があるのかどうか明確ではありません。


個人的には「名前を考えなくて良い」というのがメリットなのかな
と思う。

プログラミングしている最中、関数名を考えているとロジックを
考えてるんだか名前を考えてるんだか良く分からなくなることがあるから。



□ 今の貯蓄
ネット銀行 3,670円
証券会社 1,514,660円
現金 38,000円

合計1,556,330円
目標まであと2,843,670円

応援をお願いします。

人気ブログランキングへ

]]> プログラミング 2008-07-14T23:41:45+09:00 じゅんのすけ じゅんのすけ http://kodukai.mudadukai.com/?eid=957094 Schemeプログラミング環境構築。 会社のPCにはCygwin + gauche の組み合わせで構築。 家でインストールしようと思ったらconfigureで失敗。 なんとか簡単に構築できるソフトはないかと思って 探してみたら見つかった。 ChezEdit-NT というWindows上で動くエデ...
会社のPCにはCygwin + gauche の組み合わせで構築。
家でインストールしようと思ったらconfigureで失敗。

なんとか簡単に構築できるソフトはないかと思って
探してみたら見つかった。

ChezEdit-NT
というWindows上で動くエディタ。

これと chez schemeをインストールすれば良いみたいだ。
(chez (chez scheme))

あっさり、動いたー。

(* 2 3) F2
でListenerが起動して
> (* 2 3)
6

簡単〜


□ 今の貯蓄
ネット銀行 3,670円
証券会社 1,509,533円
現金 40,000円

合計1,553,203円
目標まであと2,846,797円

応援をお願いします。

人気ブログランキングへ

]]> プログラミング 2008-07-12T00:45:25+09:00 じゅんのすけ じゅんのすけ http://kodukai.mudadukai.com/?eid=955462 最近さぼりぎみなので理由を報告します。 Schemeというプログラミング言語を勉強してます。 SchemeはLISPの方言で、著名なプログラマがこぞって すごい！と言っている。 まだ自分には理解できていない。 でもきっとすごいに違いないんだ。 人生で3回目くらい...
Schemeというプログラミング言語を勉強してます。

SchemeはLISPの方言で、著名なプログラマがこぞって
すごい！と言っている。
まだ自分には理解できていない。
でもきっとすごいに違いないんだ。

人生で3回目くらいのSchemeブームなわけです。
といっても今までの2回は言語仕様を知るだけで終わり
自分のモノにはできなかった。

悟りを開くところまでは全然いけなかった...

22歳くらいでダメで26歳くらいでダメで
齢30歳を超えたいまなら理解できるんじゃないかと
思って挑戦している。

今ダメならきっとこの先もダメだろう。
最後の挑戦かもしれない。

ところで今まで2回あったSchemeブームのきっかけは
高林さんの
『計算機プログラムの構造と解釈』について
を読んだのが最初。

でその後が、普通のやつらの上を行けを読んだときだ。

今読んでも熱くなる。


□ 今の貯蓄
ネット銀行 3670円
証券会社 1,512,293円
現金 50,000円

合計1,565,963円
目標まであと2,834,037円

応援をお願いします。

人気ブログランキングへ
]]> プログラミング 2008-07-09T23:04:26+09:00 じゅんのすけ じゅんのすけ http://kodukai.mudadukai.com/?eid=952394 最近のパチンコは良く分からない。 CR花の慶次で15,000円負け... 所持金がなくなったので泣きながら(大げさ) コンビニで2万円下ろす。 「CRハイパー海物語INカリブ」1000円で確変大当たり。 連荘で+8箱。2箱飲まれて、ぴったし+9000発。 +36000円 収支...
CR花の慶次で15,000円負け...

所持金がなくなったので泣きながら(大げさ)
コンビニで2万円下ろす。

「CRハイパー海物語INカリブ」1000円で確変大当たり。

連荘で+8箱。2箱飲まれて、ぴったし+9000発。

+36000円

収支+20,000円

昔の仕組みは大当たり確率が 1/315 だったら
if(rand() % 315 == 0) {
大当たり();
}
みたいなイメージだったのだが、今は違うみたいだ。

規制が変わったのか...

調べてみたら突然確変、突然時短、ちゅーのがあって
"出玉のない当たり"があって、そこから確率変動状態に
行ったりする。

なので、台の上にある回転数表示が当たってもいないの
に0に戻ることがあるのだ。

気持ち悪いと思ってたのだ。

出玉がないのにカウンタは0に戻るなんて詐欺っぽい。

あとは「隠れ確変」なんてものもあって、見た目分からない
けど高確率状態にいるとか...

なんだか複雑になっちゃったね。

□ 今の貯蓄
ネット銀行 23670円→3,670円(DOWN)
証券会社 1,477,574円(EVEN)
現金 25,000円→60,000円(UP)

合計1,526,244円→1,541,244円(UP)
目標まであと22,858,756円

応援をお願いします。

人気ブログランキングへ

]]> ギャンブル 2008-07-05T22:58:02+09:00 じゅんのすけ じゅんのすけ http://kodukai.mudadukai.com/?eid=951696 株が不調で資産が減り続けてます... Amazonアソシエイトは少しづつ売れるようになってきました。 最近だと... ・〈増補改訂 第2版〉いやな気分よ、さようなら―自分で学ぶ「抑うつ」克服法 (単行本) ・図解版 問題解決トレーニング―「シゴト脳」がぐんぐん...
Amazonアソシエイトは少しづつ売れるようになってきました。



最近だと...

・〈増補改訂 第2版〉いやな気分よ、さようなら―自分で学ぶ「抑うつ」克服法 (単行本)
・図解版 問題解決トレーニング―「シゴト脳」がぐんぐん強くなるエクササイズ45問 (East Press Business) (単行本)
・Sing to the Sku全シングルMUSIC VIDEO・DVD付
・安井小径写真集―Full Fudge Fiction

お買い上げ、ありがとうございます！

□ 今の貯蓄
ネット銀行 23,670円(EVEN)
証券会社 1,489,947円→1,477,574円(DOWN)
現金 30,000円→25,000円(DOWN)

合計1,543,617円→1,526,244円(DOWN)
目標まであと2,873,756円

応援をお願いします。

人気ブログランキングへ

]]> お小遣い稼ぎ 2008-07-04T23:29:44+09:00 じゅんのすけ じゅんのすけ http://kodukai.mudadukai.com/?eid=950875 日経平均 54年ぶり11日続落 54年ぶりだって。 明日下げたら何年ぶりなんだろうね。 だらだらと下げ続け。 いっそのこと下がるところまで下がってしまえー。 くすん。 ギャンブル。 昨日勝った分今日はしっかり負けた(T-T) -8,000円 いろいろうまく...
54年ぶりだって。

明日下げたら何年ぶりなんだろうね。

だらだらと下げ続け。

いっそのこと下がるところまで下がってしまえー。

くすん。

ギャンブル。
昨日勝った分今日はしっかり負けた(T-T) -8,000円

いろいろうまくいかない...

向いてないのかな。

勝てる気がしない。

□ 今の貯蓄
ネット銀行 23,670円(EVEN)
証券会社 1,497,083円→1,489,947円(DOWN)
現金 38,000円→30,000円(DOWN)

合計1,559,808円→1,543,617円(DOWN)
目標まであと2,856,383円

応援をお願いします。

人気ブログランキングへ
]]> 株式投資 2008-07-03T21:39:30+09:00 じゅんのすけ じゅんのすけ http://kodukai.mudadukai.com/?eid=950206 日経平均10連敗... 現実逃避でパチンコへ。 甘デジ「カイジ」。 ■型式名 CR弾球黙示録カイジ運否天賦HDR 賞球数 3&13&10 確率(通常) 1/99.8 確率(確変) 1/22.4 確変突入率 75% 平均出玉 6R：約540個 ラウンド/カウント 6R・9C 時短 全図柄40回 ...
現実逃避でパチンコへ。

甘デジ「カイジ」。

■型式名 CR弾球黙示録カイジ運否天賦HDR
賞球数 3&13&10
確率(通常) 1/99.8
確率(確変) 1/22.4
確変突入率 75%
平均出玉 6R：約540個
ラウンド/カウント 6R・9C
時短 全図柄40回

甘デジって打ったことないんだけどね...

2000円売ったところで、「兵頭７」あたり。

15連荘くらい。

あまり出ないけど簡単に当たるのは楽しい。

そのあと飲まれて、結局+9,000円。

投資で負けて、投機で勝って...びみょー。

□ 今の貯蓄
ネット銀行 23,670円(EVEN)
証券会社 1,506,638円→1,497,083円(DOWN)
現金 29,500円→38,000円(UP)

合計1,559,808円→1,558,753円(DOWN)
目標まであと2,840,192円

応援をお願いします。

人気ブログランキングへ
]]> ギャンブル 2008-07-02T22:18:30+09:00 じゅんのすけ じゅんのすけ http://kodukai.mudadukai.com/?eid=949465 株価ダウン。 日経平均も13500円切った。 ラサ商事から500円のクオカードが届いた。 ここは株価も上げてるし、良い感じだ。 自分のポートフォリオがこんな銘柄ばかりだったら 良かったのに... □ 今の貯蓄 ネット銀行 23,670円(EVEN) 証券会社 1,539,391円→1... 日経平均も13500円切った。

ラサ商事から500円のクオカードが届いた。
ここは株価も上げてるし、良い感じだ。

自分のポートフォリオがこんな銘柄ばかりだったら
良かったのに...

□ 今の貯蓄
ネット銀行 23,670円(EVEN)
証券会社 1,539,391円→1,506,638円(DOWN)
現金 30,000円→29500円(DOWN)

合計1,593,061円→1,559,808円(DOWN)
目標まであと2,840,192円

応援をお願いします。

人気ブログランキングへ

]]> 株式投資 2008-07-01T22:33:46+09:00 じゅんのすけ じゅんのすけ http://kodukai.mudadukai.com/?eid=948657 ネット銀行に振込みがあって、なんだろうと 思ってみたら株の配当だった。 R社 2,160円 Y社 810円 S社 900円 M社 540円 合計 4,410円 ちょっとした小遣い... □ 今の貯蓄 ネット銀行 19,800円→23,670円(UP) 証券会社 1,525,876円→1,539,391円(UP) 現金 ... 思ってみたら株の配当だった。

R社 2,160円
Y社 810円
S社 900円
M社 540円

合計 4,410円

ちょっとした小遣い...

□ 今の貯蓄
ネット銀行 19,800円→23,670円(UP)
証券会社 1,525,876円→1,539,391円(UP)
現金 32,000円→30,000円(DOWN)

合計1,576,176円→1,593,061円(UP)
目標まであと2,806,939円

さて、今月も終わり。
6/1の合計が1,594,000円だったので...
1ヶ月経って変化無し(T-T)

ちょっとむなしい。

応援をお願いします。

人気ブログランキングへ
]]> 株式投資 2008-06-30T22:46:38+09:00 じゅんのすけ じゅんのすけ http://kodukai.mudadukai.com/?eid=946547 懸賞サイト『フルーツメール』に登録した。 フルーツメールは 無料のゲームをやったりアンケートに答えたりすると ポイントが溜まり商品や現金に交換できるサイトだ。 さっそく週頭からビンゴゲームで遊んでいる。 初めてやったのになんと当選！ あとは抽選な...
フルーツメールは
無料のゲームをやったりアンケートに答えたりすると
ポイントが溜まり商品や現金に交換できるサイトだ。

さっそく週頭からビンゴゲームで遊んでいる。

初めてやったのになんと当選！
あとは抽選なのでさらに運任せ。

発表を待つのみです。

フルーツメール



□ 今の貯蓄
ネット銀行 19,800円(EVEN)
証券会社 1,562,047円→1,525,876円(DOWN)
現金 31,500円→32,000円(DOWN)

合計1,613,347円→1,576,176円(DOWN)
目標まであと2,823,824円

応援をお願いします。

人気ブログランキングへ
]]> お小遣い稼ぎ 2008-06-27T23:17:20+09:00 じゅんのすけ じゅんのすけ http://kodukai.mudadukai.com/?eid=945805 Yahoo!ニュースで「ユーロが最高値更新」というのを見て、 そういえばイタリアに行ったときのユーロがあまってるのを思い出した。 235ユーロ。今1ユーロが168円だから... 235*168円 = 39,480円 忘れてたけど結構な金額だ。 飛行機の到着が遅れて、日本円に換... そういえばイタリアに行ったときのユーロがあまってるのを思い出した。

235ユーロ。今1ユーロが168円だから...

235*168円 = 39,480円

忘れてたけど結構な金額だ。

飛行機の到着が遅れて、日本円に換金できなかったのでそのまま
になっていた。

調べてみたら外貨を円に買えることができるところは意外と多かった。
・銀行
・郵便局
・金券ショップ
・外貨両替業務を行う企業

金券ショップならいつでもいける。

「大黒屋」のサイトで調べてみたら
今日現在、ユーロの売りが 173.22円 買いが165.22円。
結構な差があるのね。
それでも都市銀行よりお得！！とのこと。

そのうち換金に行こう。そのうち。

□ 今の貯蓄
ネット銀行 19,800円(EVEN)
証券会社 1,575,042円→1,562,047円(DOWN)
現金 32,000円→31,500円(DOWN)

合計1,613,347円円(DOWN)
目標まであと2,786,653円

応援をお願いします。

人気ブログランキングへ
]]> お小遣い稼ぎ 2008-06-26T22:43:24+09:00 じゅんのすけ じゅんのすけ http://kodukai.mudadukai.com/?eid=944864 『臆病者のための株入門　橘玲著』 読了。 橘玲氏の著書は「あとがき」が面白い。 追証の電話がかかってくるのを待っているくだりは 怖すぎて自分には信用取引はできない...と思った。 さて、今日はお小遣いの日だ。 最近歓送迎会が多すぎて、やりくりが大...
読了。

橘玲氏の著書は「あとがき」が面白い。

追証の電話がかかってくるのを待っているくだりは
怖すぎて自分には信用取引はできない...と思った。

さて、今日はお小遣いの日だ。
最近歓送迎会が多すぎて、やりくりが大変です...

□ 今の貯蓄
ネット銀行 19,800円(EVEN)
証券会社 1,576,833円→1,575,042円(DOWN)
現金 2,000円→32,000円(UP)

合計1,626,842円(UP)
目標まであと2,773,158円

応援をお願いします。

人気ブログランキングへ

]]> 株式投資 2008-06-25T22:23:17+09:00 じゅんのすけ じゅんのすけ