メモっぽい日記

展開なしです．この後にBメロ的なもの入れようとも思ってましたが気力が……，うーむ

芝 2010/11/13 13:43 自分からうちのサイトに相互リンク申し込んどいて勝手に切ってたのね、なるほど。

yorutrain 2010/11/18 19:08 相互リンク？とか思ったけどアレか．もう一年以上前から放置してるしアカウントのパスワード忘れちゃったから直せないのよごめんねー

トラックバック - http://d.hatena.ne.jp/yorutrain/20101025

2010-10-01

えー……

DTM |

http://source.is.land.to/data/midi/73.mid

お久しぶりです，生きてます．ブログの存在を認識してはいたのですが，いかんせんtwitterが便利すぎてなかなかこちらにまで手が伸びない状況が半年以上に渡り続いておりました．

これからはわりと定期的に更新していきたいと思います(予定)．

そしてこれまた久しぶりにシーケンサーを開いてみました．つくりかけですが当面はこれを完成させようかと．前の記事のあれはほどほどに進んだのですが，それはそのうち．

トラックバック - http://d.hatena.ne.jp/yorutrain/20101001

2010-03-25

城下町的な

DTM |

http://source.is.land.to/data/midi/68.mid

この後どうつないだらいいのか思いつかないのでとりあえず8小節だけ。風呂で思いついたら続きをば……。

頭の中では一応城下町みたいなイメージからスタートしたのでもう少し楽しげな方がいいと思うけどどうすれば……、あとパーカッションもつけてみたいのですがどうしたらいいのかさっぱりなので一回調べてみないとー

トラックバック - http://d.hatena.ne.jp/yorutrain/20100325

2010-03-19

すごい

メモ, web |

386 フェルトペン(北海道) 2010/03/19(金) 04:22:49.96 ID:3qLkpwrs ?PLT(12126)

>>378

童貞や非童貞にこだわるのなら　現実の女見なきゃ。

389 鏡(京都府) 2010/03/19(金) 04:24:18.13 ID:svYJ2WK5

>>386

でもいつだって理想を現実にしてきたのが人間だろ！

ちょっとくらい長いプロローグで絶望してんじゃねえよ！

なんでこんなかっこいい書き込みがすらすらできるんだろう

Kp 2010/04/04 07:10 >ちょっとくらい長いプロローグで絶望してんじゃねえよ！
ただの禁書目録からの引用じゃないかと……

yorutrain 2010/04/04 19:59 そう、あとで上条さん動画見てたときに気づきました。
それでもかっこいいですよ！

トラックバック - http://d.hatena.ne.jp/yorutrain/20100319

2010-03-08

多値

Schcme |

謎すぎてさっぱりなのでメモ。明日辺りにどこかに質問する。

(define (partition pred ls)
  (if (null? ls)
      (values '() '())
    (call-with-values
      (lambda ()
        (partition pred (cdr ls)))
      (lambda (a b)
        (if (pred (car ls))
            (values (cons (car ls) a) b)
          (values a (cons (car ls) b)))))))

;実行
(partition even? '(1 2 3 4 5 6 7 8 9 10))

;結果
(2 4 6 8 10) (1 3 5 7 9)

こちらから引用させていただきました: M.Hiroi’s Home Page / お気楽 Scheme プログラミング入門

コード見る限り、こういう結果が返ってくるんじゃないかなぁ……と思うのだけど

(10 8 6 4 2) (9 7 5 3 1)

引用元にも、「(car ls) を a の先頭に追加し、そうでなければ b の先頭に追加」とあるし。

確かめるために少しコードを変えた。

(define c 100)
(define (partition pred ls)
  (if (null? ls)
      (values '() '())
    (call-with-values
      (lambda ()
        (partition pred (cdr ls)))
      (lambda (a b)
        (if (pred (car ls))
            (begin (display (set! c (+ c 1))) (display ":") (display (car ls)) (newline) (values (cons c a) b))
          (begin (display "o:") (display (car ls)) (newline) (values a (cons (car ls) b))))))))

;実行
(partition even? '(1 2 3 4 5 6 7 8 9 10))

;結果
101:10
o:9
102:8
o:7
103:6
o:5
104:4
o:3
105:2
o:1
(105 104 103 102 101)
(1 3 5 7 9)

(car ls)の代わりに適当なカウンターを使うと、カウンターはどんどん先頭に追加されていく形になってるんだけど(car ls)は一番奥の10からになってる？

むー。

SaitoAtsushi 2010/03/08 11:28 多値を使わない形に変形してみてはどうでしょう？
要するに filter ですが、これなら理解しやすいと思います。
(define (filter pred ls)
(if (null? ls)
'()
(if (pred (car ls))
(cons (car ls) (partition pred (cdr ls)))
(partition pred (cdr ls)))))

yorutrain 2010/03/08 16:34 おかげさまでリストの順番についてはよくわかりました、ありがとうございます。
しかしdisplayの様子を見るとまるでリストがreverseされているように感じるのですが……

SaitoAtsushi 2010/03/08 19:44 おっと、先程書いたサンプルコードは名前を filter にしたけど、中で呼んでる関数を partition って名前のままだから再帰になってなかった…。失礼しました。名前だけ読み換えて下さい。
さて、 display されている内容についてですが、表示の順序は評価が行なわれる順序そのままです。終了条件である null チェックを除いて、この partition 関数が最初に実行しているのは何か見てみて下さい。 partition 関数を呼んでるんです。そしてその partition 関数はまた partition 関数をまず最初に呼ぶのです。
最後まで行ったら (null に行き付いたら) partition が返した値を pred でチェックしながら呼出し元に戻ることになります。つまり、 pred でのチェックはリストの最後からすることになるわけですね。
(display (car ls)) としているところを (display ls) にしてみるとわかりやすいかも。

yorutrain 2010/03/08 22:26 たしかに(display ls)としてみたところ一番後ろからになってました。
>>partition 関数が最初に実行しているのは何か
これでとてもすっきりしました、ありがとうございます。

トラックバック - http://d.hatena.ne.jp/yorutrain/20100308