Lisp Scheme Part18

1 名前：デフォルトの名無しさん [2007/08/12(日) 21:38:15 ] 過去スレ Part17: ttp://pc11.2ch.net/test/read.cgi/tech/1177065699/ Part16: ttp://pc11.2ch.net/test/read.cgi/tech/1172404795/ Part15: ttp://pc10.2ch.net/test/read.cgi/tech/1151025773/ Part14: ttp://pc8.2ch.net/test/read.cgi/tech/1132275726/ Part13: ttp://pc8.2ch.net/test/read.cgi/tech/1115901841/ Part12: ttp://pc8.2ch.net/test/read.cgi/tech/1100229366/ Part11: ttp://pc5.2ch.net/test/read.cgi/tech/1091456033/ Part10: ttp://pc5.2ch.net/test/read.cgi/tech/1075630259/ Part9: ttp://pc2.2ch.net/test/read.cgi/tech/1069594582/ Part8: ttp://pc5.2ch.net/tech/kako/1058/10582/1058263391.html Part7: ttp://pc5.2ch.net/tech/kako/1042/10421/1042167213.html Part6: ttp://pc3.2ch.net/tech/kako/1031/10315/1031560687.html Part5: ttp://pc3.2ch.net/tech/kako/1023/10230/1023091882.html Part4: ttp://pc.2ch.net/tech/kako/1016/10162/1016211619.html Part3: ttp://pc.2ch.net/tech/kako/1008/10082/1008220265.html Part2: ttp://pc.2ch.net/tech/kako/1002/10025/1002584344.html Part1: ttp://piza2.2ch.net/tech/kako/987/987169286.html 62 名前：デフォルトの名無しさん mailto:sage [2007/08/19(日) 20:06:06 ] >>59 すまん (b 1) に脳内変換してくれ 63 名前：デフォルトの名無しさん mailto:sage [2007/08/19(日) 21:47:25 ] フィボナッチしたいならどちらにしろ 初期値は a も b も 1 で始めなきゃおかしくね？ 64 名前：デフォルトの名無しさん mailto:sage [2007/08/19(日) 22:14:57 ] フィボナッチの定義次第 65 名前：デフォルトの名無しさん mailto:sage [2007/08/19(日) 22:57:26 ] >>62 コードみてfibっぽいな〜とは解ったんだが何で初期値が０かと考えたらタダの嫌がらせにしか見えなくなった俺の立場は？ 66 名前：デフォルトの名無しさん mailto:sage [2007/08/19(日) 23:02:29 ] 「バグったプログラム」の実例としては良くできていた 67 名前：デフォルトの名無しさん [2007/08/19(日) 23:24:17 ] >>48 (let f ((a 1) (b 1)) (if (> b 100) '() (cons a (f b (+ a b))))) というかnamed ｌｅｔって構文はじめて知った 68 名前：デフォルトの名無しさん mailto:age [2007/08/19(日) 23:28:30 ] 見づらいリスト・・・？ 69 名前：デフォルトの名無しさん mailto:sage [2007/08/19(日) 23:34:00 ] named let に付ける名前って loop とか良く見掛けるけど あれはあくまで慣例に過ぎないの？ 70 名前：デフォルトの名無しさん mailto:sage [2007/08/19(日) 23:46:23 ] 慣例じゃないという発想がどこから沸いて出たのかが知りたいところ 71 名前：デフォルトの名無しさん mailto:sage [2007/08/19(日) 23:57:46 ] >>69 うん 72 名前：デフォルトの名無しさん mailto:sage [2007/08/20(月) 00:05:19 ] >>54 ((call/cc call/cc) (call/cc call/cc)) 73 名前：デフォルトの名無しさん mailto:sage [2007/08/20(月) 00:37:55 ] schemeは素晴らしいな 74 名前：デフォルトの名無しさん mailto:sage [2007/08/20(月) 01:55:51 ] (内包表記マクロ)って当たり前のように使ってますか？ 75 名前：デフォルトの名無しさん mailto:sage [2007/08/20(月) 03:00:04 ] 内包表記ってのが SRFI-42 のことならlet するよりてっとりばやいしよく使う。 76 名前：デフォルトの名無しさん mailto:sage [2007/08/20(月) 03:53:29 ] そう、SRFI-42 のことです。 >> let するよりてっとりばやい うーん、全然ピンと来ません。とても難しいと感じてるんですが、 どの辺から入っていけば良いのか… 77 名前：デフォルトの名無しさん mailto:sage [2007/08/20(月) 05:47:05 ] ttp://practical-scheme.net/gauche/man/gauche-refj_114.html 数の対(x y)の集合を生成します。ここでxは 2以上 5未満、yは1以上 x 未満です。 (list-ec (: x 2 5) (: y 1 x) (list x y)) ⇒ ((2 1) (3 1) (3 2) (4 1) (4 2) (4 3)) これの意味がわからない 78 名前：デフォルトの名無しさん mailto:sage [2007/08/20(月) 06:19:04 ] >>77 ループの入れ子になる、と考えれば判るかな。 dotimes 使って同じ結果を得るにはこんな感じ。 (let1 acc '() (dotimes (x 3 (reverse! acc)) (dotimes (y (+ x 1)) (push! acc (list (+ x 2) (+ y 1))) ))) 79 名前：デフォルトの名無しさん mailto:sage [2007/08/20(月) 06:22:39 ] >>77 x は 2 .. 5 で、 y は 1 .. x の範囲の x y をリストにしたものの集合を返す。 どのレベルでわかんないの？逆に↓だとどのへんまでわかる？ 1. (list-ec (: x 0 10) x) == (iota 10) 2. (list-ec (: x 0 10) (* x 2)) == (mapcar (lambda (x) (* x 2)) (iota 10)) 3. (list-ec (: x 0 10) (: y 0 10) (cons x y)) 4. (list-ec (: x 0 10) (: y 0 x) (cons x y)) (: ...) の意味がわからんとかそーゆう意味だろうか。 80 名前：デフォルトの名無しさん mailto:sage [2007/08/20(月) 18:43:19 ] あー意味わかった なんか「集合」って言葉に惑わされてた 対のユニークな組み合わせ生成するのかと思って >>77のどこがそうなんだとか変に難しく考えてた ただのループ生成器か 81 名前：デフォルトの名無しさん mailto:sage [2007/08/20(月) 20:09:48 ] (comprehension-macro qualifier … body) ということですが、むしろ body の書き方のほうがよくわからんです。 (do-ec (:range i 0 10) (display i)) =>0123456789 偶数の場合に2回出力させてみようとして、(if test) を付けると前の (display i) を begin で括らないとならない…。更に、3回出力させようとすると後の (display i) も begin で括らないとならない…。何ででしょう？ (do-ec (:range i 0 10) (begin (display i)) (if (even? i)) (display i)) =>001223445667889 (do-ec (:range i 0 10) (begin (display i)) (if (even? i)) (begin (display i) (display i))) =>00012223444566678889 82 名前：デフォルトの名無しさん mailto:sage [2007/08/21(火) 03:56:19 ] ttp://ll.jus.or.jp/2006/blog/doukaku1 (use srfi-42) (list-ec (: n 2 101) (if (not(any?-ec(: j 2 n)(zero?(modulo n j)))))n) これで100までの素数が出るみたいですがわかりません 83 名前：デフォルトの名無しさん mailto:sage [2007/08/21(火) 13:28:21 ] どうわからないのかくらい書ける人間になりましょう 84 名前：デフォルトの名無しさん mailto:sage [2007/08/21(火) 20:36:12 ] こうですか、わかりません!!! 85 名前：デフォルトの名無しさん mailto:sage [2007/08/21(火) 21:54:32 ] (: j 2 (sqrt n))じゃないのがわかりません。 86 名前：デフォルトの名無しさん mailto:sage [2007/08/22(水) 01:12:37 ] Eager Comprehensions が少し見えてきたので記念パピコ (let1 l (list-ec (:range n 2 101) (list-ec (:range j 2 n) (cons n (modulo n j)))) (list-ec (:list x (cdr l)) (if (not (any?-ec (:list y x) (zero? (cdr y))))) (caar x))) 87 名前：デフォルトの名無しさん mailto:sage [2007/08/22(水) 18:50:40 ] IronLisp きました ttp://ironpython-urls.blogspot.com/2007/08/new-dlr-based-net-language-ironlisp.html 88 名前：デフォルトの名無しさん mailto:sage [2007/08/22(水) 22:05:00 ] ダメだ、夏場に読むとアイロンLISPに見えて暑くてかなわん。 89 名前：デフォルトの名無しさん mailto:sage [2007/08/23(木) 13:10:35 ] >>85 ちゃんと見ないでコメントするけど、 平方根の計算でループの終端をnにするか√nにするかは本質じゃないだろ 90 名前：デフォルトの名無しさん mailto:sage [2007/08/23(木) 13:11:40 ] 平方根の計算、じゃなくて素数の計算だ すまん 91 名前：デフォルトの名無しさん mailto:sage [2007/08/23(木) 18:48:29 ] そうですか はい次 92 名前：デフォルトの名無しさん mailto:sage [2007/08/23(木) 22:36:23 ] >>87 また俺LISPか 93 名前：デフォルトの名無しさん mailto:sage [2007/08/23(木) 23:07:41 ] IronCommonLispなら欲しい 94 名前：デフォルトの名無しさん mailto:sage [2007/08/23(木) 23:12:11 ] L#はどう? 95 名前：デフォルトの名無しさん mailto:sage [2007/08/24(金) 00:22:33 ] IronGaucheが欲しいｗ 96 名前：デフォルトの名無しさん mailto:sage [2007/08/24(金) 01:49:26 ] Iron Chefがほしい 97 名前：デフォルトの名無しさん mailto:sage [2007/08/24(金) 01:58:07 ] IronErlangがほしい 98 名前：デフォルトの名無しさん mailto:sage [2007/08/24(金) 03:15:16 ] スレチどすえ 99 名前：little schemer [2007/08/24(金) 05:19:11 ] 某scheme本の中で分からない部分があって質問させてください。 以下の定義のmultirember-coをつかって (multirember-co 'a '((a) ((a))) (lambda (x y) y)) とすると、 ((a) ((a))) が返るのですが、これを(a a)とするにはどうすればよいでしょうか？ (define multirember-co (lambda (a lat col) (cond ((null? lat) (col '() '())) ((atom? (car lat)) (cond ((eq? (car lat) a) (multirember-co a (cdr lat) (lambda (newlat seen) (col newlat (cons (car lat) seen))))) (else (multirember-co a (cdr lat) (lambda (newlat seen) (col (cons (car lat) newlat) seen)))))) (else (multirember-co a (car lat) (lambda (newlat seen) (multirember-co a (cdr lat) (lambda (newlat2 seen2) (col (cons newlat newlat2) (cons seen seen2)))))))))) 100 名前：little schemer [2007/08/24(金) 12:07:05 ] 99です。 上記の質問よりも、最後のelse以下のところをどのように理解すればよいのか ヒントとかをもらえたら助かります。上記の処理の内容は、 (multirember-co 'a '(a b c) (lambda (x y) x)) => (b c) というように、1つめの引数(atom)を2つめの引数(list)から取る処理です。 このとき、2つめの引数が((a b) a b c d)の時に、つまり(car lat)が atomでないときの動作が理解しにくいです。一旦(car lat)に対する処理を 行って、それが最後までいった後に、残りの(cdr lat)への処理を続ける のだと思うのですが、、、、 長々と失礼しました。 101 名前：デフォルトの名無しさん mailto:sage [2007/08/24(金) 13:34:47 ] >>97 アーランは既に JIT あるじゃん。 102 名前：デフォルトの名無しさん mailto:sage [2007/08/24(金) 14:18:14 ] >>99-100 その本は読んでないのでコード見た印象で。 要は継続渡しなんだと思うけど、else のところは 1 まず (car lat) に対する処理をする 2 次に (cdr lat) に対する処理をする 3 二つの結果を cons してから残りの処理をする という手順で処理するということが書いてある。 > (lambda (newlat seen) >       (multirember-co a (cdr lat) (lambda (newlat2 seen2) >                                     (col (cons newlat newlat2) >                                          (cons seen seen2))))) ここが 2,3 をまとめたもので、これを 1 のあとにやるべき処理として渡してる。 その内側の lambda が 3 に対応してる。 103 名前：デフォルトの名無しさん mailto:sage [2007/08/24(金) 21:44:40 ] gosh> (gauche-version) "0.8.11" gosh> (read) (foo, bar) (foo ,bar) あるいは、 gosh> '(foo, bar, baz) (foo ,bar ,baz) となりますがこれはこういうものなんでしょうか？ 104 名前：デフォルトの名無しさん mailto:sage [2007/08/24(金) 22:16:20 ] カンマをunquoteとして見てないとか、そういう話かな。 ちゃんと基礎やってから出直しておいで。 105 名前：デフォルトの名無しさん mailto:sage [2007/08/24(金) 22:28:47 ] >>103 他の言語のリストやタプルの書き方と混同してない？ 106 名前：デフォルトの名無しさん mailto:sage [2007/08/24(金) 23:03:19 ] そういえば LISP 1.5 はカンマとスペースが等価だった。45年も前の話だが。 community.computerhistory.org/scc/projects/LISP/book/LISP%201.5%20Programmers%20Manual.pdf 107 名前：デフォルトの名無しさん mailto:sage [2007/08/24(金) 23:19:46 ] そういえば","をマクロの非展開指示子にするようになったのっていつの何からなんだろう？ 108 名前：デフォルトの名無しさん mailto:sage [2007/08/25(土) 00:02:17 ] 103です ファイルに (Fri, Aug 24 23:30:43+0900 2007) のように記録されていて (read) で読み取ろうと思ったんですが =>(Fri ,Aug 24 |23:30:43+0900| 2007) ("Fri, Aug 24 23:30:43+0900 2007") のように記録しとかないとならなかったということでした readはあまり使ったことないんです、＿|￣|○ 109 名前：デフォルトの名無しさん mailto:sage [2007/08/25(土) 00:22:23 ] >>107 1980年頃のMaclispには有った 110 名前：デフォルトの名無しさん mailto:sage [2007/08/25(土) 00:36:27 ] ttp://www.lingr.com/room/gauche/archives/2007/08/24#msg-13988600 MSVC版ktkr 111 名前：デフォルトの名無しさん mailto:sage [2007/08/25(土) 02:07:07 ] emacs 18 にはなかった... >> quasiquote & unquote 112 名前：little schemer [2007/08/25(土) 03:01:28 ] >>102 なるほど、これが継続なんですね。 もうちょっとで二冊目に行けそうなんですが、 これが理解できずに止まってました。 処理を一つ一つ追っていくとこんがらがってきてたのですが、 してくれた説明を読んだおかげでコードがわかりやすくなった感じです。 (ただ、自分ではまだ書ける気がしません) ありがとうございました！ 113 名前：デフォルトの名無しさん mailto:sage [2007/08/26(日) 03:48:10 ] おまいらは俺schemeを実装するときの仮想マシンの設計どうしてますか？ 114 名前：デフォルトの名無しさん mailto:sage [2007/08/26(日) 04:08:36 ] SECD 115 名前：デフォルトの名無しさん mailto:sage [2007/08/26(日) 08:18:04 ] andやorって 関数で定義したほうがapply出来たりして柔軟性が増すと思うんですが、 R5RSだと7.3でsyntax-rulesで定義がされてます。 関数で定義するとなんか問題が発生したりするんでしょうか。 116 名前：デフォルトの名無しさん mailto:sage [2007/08/26(日) 08:29:19 ] 関数にしちゃうと、必ず全引数評価しちゃうから困る。 (and (pair? foo) (car foo)) みたいなのができない。 117 名前：デフォルトの名無しさん mailto:sage [2007/08/26(日) 08:34:05 ] どう違うかぐらい自分で確かめなさい 118 名前：デフォルトの名無しさん mailto:sage [2007/08/26(日) 09:10:38 ] >>115 そこまでやるなら if や define も関数にしたら如何？ｗ 119 名前：デフォルトの名無しさん mailto:sage [2007/08/26(日) 09:26:33 ] andにしろifにしろ 陽にlambdaを渡すようにすれば関数でもいいわけだよな 果てしなく面倒くさいが 120 名前：デフォルトの名無しさん mailto:sage [2007/08/26(日) 09:48:25 ] Haskell みたいにデフォルトで遅延評価にしちゃえば、関数で問題ないんだけどね。 >>119 その場合、各引数を lambda で包んでその関数に渡すようなマクロが欲しくなるかもw 121 名前：デフォルトの名無しさん mailto:sage [2007/08/26(日) 13:16:00 ] スペシャルフォームじゃだめなん？ 122 名前：デフォルトの名無しさん mailto:sage [2007/08/28(火) 00:40:10 ] スッペシャルジェネレーションのほうがすき 123 名前：デフォルトの名無しさん mailto:sage [2007/08/29(水) 14:14:20 ] デフォルトで遅延評価にしちゃえばマクロは用なしになるのかな？ 現在のマクロは Schemeだと名前呼び＋レキシカルスコープの関数 CLだと名前呼び＋ダイナミックスコープの関数と等価？ 124 名前：デフォルトの名無しさん mailto:sage [2007/08/29(水) 15:00:15 ] r6rsキタ 125 名前：デフォルトの名無しさん mailto:sage [2007/08/29(水) 16:25:14 ] へー、批准されたんだ… 126 名前：デフォルトの名無しさん mailto:sage [2007/08/29(水) 17:04:59 ] scheme構文もCLマクロもファーストクラスじゃないから関数と等価ではないかな R6+RSで構文オブジェクトもファーストクラスにならないかな ところでR6RSどこにキタの？ 127 名前：デフォルトの名無しさん mailto:sage [2007/08/29(水) 17:33:57 ] 単純に、関数で setq って書けないよね。 引数を評価しないでシンボルのまま扱う手段が必要で、遅延評価だけじゃ足りない。 128 名前：デフォルトの名無しさん mailto:sage [2007/08/29(水) 20:33:34 ] LISP 1.5にはマクロは無く、代わりにFSUBR/FEXPRという引数を評価しない関数があった。 評価すべき部分（例えば setq の第2引数みたいなの）は明示的に eval を呼ぶわけだが、 スコープの関係とかぐちゃぐちゃになって使いにくかったらしい。 129 名前：デフォルトの名無しさん mailto:sage [2007/08/31(金) 04:16:32 ] >>126 ttp://lists.r6rs.org/pipermail/r6rs-discuss/2007-August/003272.html ttp://www.r6rs.org/ratification/results.html YESの人たちとNOの人たちのコメントの差が物悲しい(量・質共に)。 preliminary resultsが出た時は承認ラインが全投票人数の60%と なぜか思い込んでたもんで、僅差(67/112)で届かないと思って ホッとしてたりもしたんだけど、まぁ有効投票数ですよね、普通。 130 名前：デフォルトの名無しさん [2007/08/31(金) 07:27:54 ] little schemerを読み終わったのですが、 どうして (atom? (1 2 3)) はだめで、 (atom? '(1 2 3)) はよいのか、わかりません。 どうかおしえてください。 131 名前：デフォルトの名無しさん mailto:sage [2007/08/31(金) 09:35:50 ] >>130 「よい」「だめ」とは？ 132 名前：デフォルトの名無しさん mailto:sage [2007/08/31(金) 11:05:24 ] >>130 上は手続きの呼び出し 下はリスト 133 名前：デフォルトの名無しさん mailto:sage [2007/08/31(金) 12:47:30 ] 1 っていう名前の関数はないから、(1 2 3) っていう関数呼び出しは実行できないってことだな 134 名前：デフォルトの名無しさん mailto:sage [2007/09/08(土) 22:47:23 ] ここで聞く話じゃないのかもしれないが.... 設定言語みたいなのから, マクロ使いまくりで関数自動生成しまくってる lisp プログラムを "C に移植して" ってな話を持ちかけられたんだけど, やっぱ yacc とか bison のお世話になるしかないのかな? ここでまずけりゃ, 適当なところにルーティングして... 135 名前：デフォルトの名無しさん mailto:sage [2007/09/08(土) 23:40:39 ] その仕事は ECL をリンクしたらお終いなんじゃないの。 136 名前：デフォルトの名無しさん mailto:sage [2007/09/09(日) 01:13:57 ] >>135 おぉ... ありがとん 137 名前：デフォルトの名無しさん mailto:sage [2007/09/18(火) 10:33:07 ] ERR5RS (Extended R5RS Scheme) scheme-punks.cyber-rush.org/wiki/index.php?title=ERR5RS:Charter どうよ 138 名前：ZRBeILAFMGofkjIGHrE mailto:vyfrjh@uosljb.com [2007/09/20(木) 12:33:38 ] Q5V0we <a href="ghquxaunglno.com/">ghquxaunglno</a>, [url=vvxxkzczfvpn.com/]vvxxkzczfvpn[/url], [link=nvygioywhlms.com/]nvygioywhlms[/link], pscwakgskwjm.com/ 139 名前：SSVIenDRWPT mailto:dwiqok@fxojfb.com [2007/09/20(木) 12:33:43 ] ulTr67 <a href="uqsisuuxrasb.com/">uqsisuuxrasb</a>, [url=qqpugdriqdic.com/]qqpugdriqdic[/url], [link=wxhmyrzltzhg.com/]wxhmyrzltzhg[/link], fmwwcqtbhkjz.com/ 140 名前：デフォルトの名無しさん mailto:sage [2007/09/20(木) 21:56:24 ] > 138-139 これってどういう事？ 141 名前：デフォルトの名無しさん mailto:sage [2007/09/21(金) 08:59:22 ] ２ｃｈと互換性のある掲示板にスパム飛ばそうとしてたら２ｃｈに間違えて飛ばしちゃったみたいなことかな 142 名前：KNvYxfMgSFWzOWxbL mailto:woptyu@mail.com [2007/09/22(土) 02:55:55 ] PinlxK <a href="www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=big0484.html">big cock</a> [URL=www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=big0484.html]pussy[/URL] <a href="www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=big0531.html">big cocks</a> [URL=www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=big0531.html]pussy[/URL] <a href="www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=big0682.html">big dick</a> [URL=www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=big0682.html]pussy[/URL] <a href="www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=big0731.html">big dicks</a> [URL=www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=big0731.html]pussy[/URL] <a href="www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=big0874.html">big naturals</a> [URL=www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=big0874.html]pussy[/URL] 143 名前：ycyihMlyObYpqBH mailto:woptyu@mail.com [2007/09/22(土) 04:15:03 ] nleTxn <a href="www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=big0484.html">big cock</a> [URL=www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=big0484.html]pussy[/URL] <a href="www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=big0531.html">big cocks</a> [URL=www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=big0531.html]pussy[/URL] <a href="www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=big0682.html">big dick</a> [URL=www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=big0682.html]pussy[/URL] <a href="www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=big0731.html">big dicks</a> [URL=www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=big0731.html]pussy[/URL] <a href="www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=big0874.html">big naturals</a> [URL=www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=big0874.html]pussy[/URL] 144 名前：デフォルトの名無しさん mailto:sage [2007/09/22(土) 04:27:45 ] よくわからんが、誰か通報しとけ 145 名前：デフォルトの名無しさん mailto:sage [2007/09/22(土) 09:07:54 ] お前が通報しろ。 146 名前：デフォルトの名無しさん mailto:sage [2007/09/22(土) 11:40:03 ] じゃあ俺がやるよ 147 名前：デフォルトの名無しさん mailto:sage [2007/09/22(土) 12:06:42 ] いやいや俺が 148 名前：デフォルトの名無しさん mailto:sage [2007/09/22(土) 12:12:04 ] そんじゃ俺が・・・ 149 名前：デフォルトの名無しさん mailto:sage [2007/09/22(土) 12:14:34 ] 俺は断る 150 名前：デフォルトの名無しさん mailto:sage [2007/09/22(土) 12:21:08 ] >>149 ｗｗｗｗｗｗ 151 名前：OniOoXUFcrjMlcjpz mailto:doutiregdou@mail.com [2007/09/22(土) 12:21:12 ] 7S9kFC <a href="www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=big0942.html">big nipples</a> [URL=www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=big0942.html]pussy[/URL] <a href="www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=big1022.html">big tits</a> [URL=www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=big1022.html]pussy[/URL] <a href="www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=big1155.html">big tits round asses</a> [URL=www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=big1155.html]pussy[/URL] <a href="www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=black0124.html">black lesbians</a> [URL=www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=black0124.html]pussy[/URL] <a href="www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=black0284.html">black pussy</a> [URL=www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=black0284.html]pussy[/URL] 152 名前：デフォルトの名無しさん mailto:sage [2007/09/22(土) 23:05:19 ] 嘘だけど通報しといた 153 名前：デフォルトの名無しさん mailto:sage [2007/09/22(土) 23:06:36 ] 嘘かよｗ 154 名前：デフォルトの名無しさん mailto:sage [2007/09/22(土) 23:21:00 ] じゃあ俺がやるよ 155 名前：デフォルトの名無しさん mailto:sage [2007/09/22(土) 23:35:29 ] 俺はもうやったぜ 156 名前：デフォルトの名無しさん mailto:sage [2007/09/22(土) 23:39:18 ] いや、俺がやったんだし 157 名前：デフォルトの名無しさん mailto:sage [2007/09/23(日) 10:58:34 ] はあ？お前がやったんだろ 158 名前：デフォルトの名無しさん mailto:sage [2007/09/23(日) 11:58:24 ] ということは、俺じゃなかったの？ 159 名前：デフォルトの名無しさん mailto:sage [2007/09/23(日) 12:55:34 ] え、つーか俺やった記憶あるんだけど 160 名前：デフォルトの名無しさん mailto:sage [2007/09/23(日) 13:08:43 ] お前がやったの見たぜ 161 名前：デフォルトの名無しさん mailto:sage [2007/09/23(日) 13:56:58 ] 俺は、髪の長い女がやってるのを見た 162 名前：デフォルトの名無しさん mailto:sage [2007/09/23(日) 14:37:12 ] ずっと見てたのか？

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef