  |
はてなキーワード: パジャマとは
自己レス。
自分の中の、贈り物おススメ。
ああ？余計なお世話だあ？こちとら、10年越しの恋のようななにかがさっぱり終わってやけなのさ。なんつーかどーでもいいんだが、人の役に立ちたいってーか、なんつーか、誰かにちょっとだけ幸せになってほしいよ。ちくしょう。具合が悪いのって一番イヤだよな。
HERVE GAMBS(エルベ・ガンブス)
http://mrs.allabout.co.jp/contents/mrs_s3_0011_c/interiorshop/CU20070619A/index/
生花よりも生花に見える脅威の花。高いものは30万するが、1万以下で手ごろなのもある。
なんといっても、枯れないからネガティブイメージ与えないし、看護する人に水代えの手間がないのがポイント。
香りおすすめ
ってお店は特にないんだけど、お香よりもポプリの方がよいかも。
香りをかいでうぷってなっちゃうこともあるから、人工の香りじゃないものをえらぶと安全かなあ。「病気の人に送りたいから天然物を探してます」って言った方がよいと思う。
ポプリを買う店だと、「カリス成城」http://www.charis-shop.com/index.php?wab=3&vmode=
「生活の木」http://www.treeoflife.co.jp/
このあたりが店も多いかな。できればサシェといって、小袋に入ったタイプがいいと思う。枕元におけるし、置物タイプだと周囲のベッドの人まで匂っちゃって迷惑になるかもだから。
タオルおススメ
http://www.muji.net/store/cmdty/detail/4945247481075
探してて見つけた。体拭き用にいいかも。
http://store.uniqlo.com/jp/CSaGoods/434-53
ホテルタオルはネット通販でいろいろあるけど、これが安くて評判がいいみたい。というか自分も買おう。
これは高いと思うのだけど、汗かいても吸湿性高いからべたつかない優れもの。
でもデザインがしょぼいと悲しくなるから、高くても日本のデザインの、無地のものをぜひ。
素材はシルクが高いからちょっと、って代わりを探すなら、ガーゼがいいかなあ…。
綿100％でもいいんだけど、長く寝てると当たったところの肌が擦れる可能性があるから、タオル地・ガーゼ・シルクあたりがいいと思う。
うーん、ネット通販みたけど、あまり良いデザインのものがないなあ…。買うなら、デパートで探すとそれなり物が見つかるはず。3万位しそうだが…。
頭にタオルを巻いて、白い生地にワッペンがついた帽子を上から被って、あご髭がDQNでダンディーな彼氏は推定20歳。
一方妹は今年春に短大入学を迎える18歳。髪の毛は程よく額から天辺まで30センチ(推定)はあろうかという明るい茶色の巻き巻き頭。人工的に3センチ(推定)ほど延ばした睫毛と人工的に濠を巡らした卑小なお目目は、最早人のモノではない。
彼氏『こんちゃーっす。"妹"さんと仲良くさせてもらってますっ。』
顎を前に出して、帽子も脱がずに、お前より(おそらく)５年も長く生きているお兄様に向かって"こんちゃーっす"とは何事だ。おまえが俗にいうゆとり世代の日本代表か。横柄にもほどがある。
起きっぱなしのパジャマで食卓に座って朝ご飯のロールケーキを頬張っていた俺に母から怒号が飛ぶ。
母『あんた。働きもせんと、昼まで寝よってからに…。春の決算で不良債権処理されたなかったら、二人にお茶いれてあげるとか、なんもせーへんねやったら、二階の自分の部屋戻っとり!』
母よ、俺は何か、焦げ付いた債権か。もうちょっと暖かくなったら本気出すゆうてんのがわからんのか。
裾を引きずって階段を上る背後で、妹の楽しそうな声が聞こえる。フライパンの上で母が焼くベーコンのはじける音が聞こえる。二年前から壊れっぱなしの風呂場の外窓から風の抜ける音が聞こえる。二言目には"マヂッスか"と母の言うことに相づちを入れる彼氏の声が聞こえる。
妹よ、そんな彼氏の何処がいいのだ。
歳を取って疎遠になってきたが、今でもかわいい妹だ。このあいだも、郵便受けに入っていた俺宛のAmazonからの箱を勝手に開けて、中に入っていた限定版らきすたDVDを手に取って俺の目の前に差し出して、
妹『おい、秋葉系。こんなDVDに何千円も出して、アホちゃうか。絵の女にうつつぬかさんと、現実見んかい変態。』
と、かわいい声で俺を罵ってくれたじゃないか。
妹よ。ピンクでふりふりのついたあんなにかわいいパンツをもっている前が、ダイソー(推定)で買ったタオルを頭に巻いている男とつき合っているなんて…。
部屋で二度寝していると、妹とDQNな彼氏が俺の隣の妹の部屋に戻ってきた。笑い声の混じった、恋人然とした会話が聞こえてくる。
妹『"彼氏"君絶対…私そんなんゆーてへん……だから…』
彼氏『この前難波行った時…横の席でお前が寝ぼけとったから…』
しばらくすると、耳をそばだてていても聞こえにくいぐらいに二人の声が小さくなっていった。
妹『あかんって、そんなとこさわらんといて…。』
ぅぉぃ、妹。そんなとこってどんなとこやねん。あかんってなにがあかんねん。あと、開けたばっかりのティッシュの箱どこやねん。
妹『あっ…あっ…あっ…。"彼氏"君…やさしく…』
聞いた事の無いような妹の声が聞こえた。壁越しに、女の吐息が聞こえた。
興奮すると同時に、底知れない、胸を締め付けるような寂しさを感じた。
彼氏『かわいいやん。ご主人様、て素直なとこが。』
どうやら、コスプレの話しのようだ。妹が、巻き髪で、ツインテールで、男のナニをナニして如何して。けしからん。
興奮しすぎた俺は、盗み聞きの体制を整えるために足を一度組み替えようとした直後、壁にど頭をぶつけた。ゴン、と音がした。
彼氏『何今の?』
妹『わからへん…。気持ち悪いなぁ。でも、ここやと家族おるから落ち着かへんし、駅前のラブホ行かへん?』
俺の大失態で二人のラブゲームの第一セットは終了した。あぁ妹よ。おそらく、今の男の他にも何人にも抱かれている妹よ。お兄ちゃん、下着だけじゃ寂しいです。
そして昨日、友人宅で"徹夜でモンハンナイト!"の準備のために洗面所で身支度をしていた俺に母からまたもや怒号が。
母『"増田"!もう12時やから、"妹"おこして!』
Don't openと書かれた札を横目に、おもむろにドアを開けて、妹に"朝やぞ"と声を掛けようとしたら、ベッドの奥にある開いたままのクローゼットが目に飛び込んだ。真っ先に目についたのは、他の服から少し離れたところでハンガーにかかっている白のふりふりがついた、所謂メイドさんのコスチューム。
"お前その服…"と声を掛けようとした瞬間、茶色い髪をかき乱して妹が
妹『な、何勝手に入ってきてんねん。あ、そ、その服は、あ、あんたのために買ったんとちゃうんやから!か、感違いすんなアホ兄貴!!』
うーん、マンダム。
http://anond.hatelabo.jp/20080313111227←この続きです
0.59.25 国同士が戦争を始めたというナレーションで、黒髪のアップ。一言で世界戦争開始です。
0.59.45 ヒゲの職場は農業試験場らしい。もうすぐ刈りいれ時の稲穂を見つめるヒゲ。さっき見た田んぼは稲刈りが終わってたんですがね。
1.00.00 黒髪が重箱を持ってくる。
1.00.45 稲刈りセットを両手に抱えて、黒髪が「手伝いますよ」え？鎌で稲刈りするの？まあいいけど。ものすごーく広大な田んぼですよ。
1.00.55 稲刈り開始。
糞台詞開始
1.01.00 ヒゲが左にいる黒髪の手元を見る。腕にはうろこ状のアザがある。黒髪が空を見上げて「ほわーん」。
1.01.20 で何事もなかったかのように下を見る黒髪。
1.01.25 ヒゲ、立ち上がる。「俺は変わらないよ」と棒読み。やる気が無いのは分かるけど大人なんだからギャラの分の仕事をしようよ。
1.01.35 黒髪、ヒゲを見上げて「・・おとうさん」
1.01.50 一人うなずくヒゲ。糞台詞終了。
1.02.30 帰り道。いつものショッピングモール、警官が徒党を組んで一般市民を射殺している。黒髪がヤメローと言いながら止めに入る。ニ三発蹴っただけで警官逃走。
1.02.35 上の階から下の人たちをパスパス射殺している警官がいる。
1.02.40 ヤメローといいながら黒髪ジャンプっていうか釣られてるね。びよーんと。
1.02.45 ヤメローともう一度言う。
1.02.55 その警官は銀髪だった。黒髪が歩み寄りながら「生きてたのか」 銀髪「サタンだからな」（←隠れ糞台詞）
1.03.15 なぜかミサイル爆撃される。銃をきちんと両手で持って銀髪が逃げる。サタンのくせに徒歩。
1.03.40 ボブニュース。外国が日本をデーモン国家と認定して、ミサイル攻撃開始。日本もこれに反撃。戦争が始まりました。とボブ。ボブ、カンペを見る視線が怪しすぎる。
1.03.50 団地にロケット花火が打ち込まれてるようにしか見えないけど日本が空爆されてるらしい。
1.04.10 数分前まで気味が悪いといっていた怪物ストラップを携帯につけたヒロインと黒髪が自宅でいちゃついてる。戦時中にそんなことしてていいのか？と思うが、「（戦争がどうなるか）わかんないよ」という黒髪の台詞で妙に納得。等身大の演技って奴ですね。この国が戦時中だって言う設定もあっという間に無かったことにされる悪寒がビシビシします。
1.04.25 私の質問に答えて、とヒロイン。
1.04.45 会話のキャッチボールがなってないのでこっちで二人の会話を要約すると、ヒロインは神様はすぐ傍にいる、と信じてて、黒髪は信じてない、と。
1.05.00 二人がいちゃつく。外では今も空爆。
1.05.40 「あたし達生き延びられるのかな？」「世界が滅びたって俺がミキちゃん（ヒロイン）を守る！」と意気込む。なんだか、論理矛盾がないか？と思うのだけど、ヒロインは満足そうな顔で黒髪を見つめているので、この会話は奴らのペッティングの一つなんだと気付く私。
1.05.45 例の六階建てのビルからデーモンが脱走したらしい。建物の五階までしか画面に移さないという小技のおかげで建物が何階建てかを見せない、ってさっき六階建てって見せたのに効果が薄いよ。
1.06.15 逃げたのはツトム君だった。ドブっぽいところを逃げる。さっきの実のシーンと言い、ナスは逃走=泥だらけで濡れるというイメージしか持てないらしい。ツトムの目の前にミーコが到来。ツトムとミーコが見つめあい、横穴（下水道）に駆け込む。二人が出会って下水に逃げ込むまでの間、特捜部隊の乱射はストップ。
1.06.40 ショッピングモールにたどり着く二人、物が散乱している、共に疲労困憊、へたり込む。後ろには死体らしきものもある。【この二人はホント、健気に演技をしています。あと、ショッピングモールはもう飽きた。】
1.07.00 ツトムが空を見ると遠くの町が燃えている。「おねえちゃん、どこへいくの？」 ミーコはきゅっと表情を締める。
1.07.20 深夜、ツトム（死んだように寝てる）を背負ったミーコがヒロイン宅の前にいる。
1.07.25 ストーカーがヒロイン宅を覗き見。ミーコとツトムにも気付く。
1.07.35 ミーコは躊躇ったのち、ヒロイン宅から遠ざかる。
1.07.45 路地裏に入ろうとするミーコの後姿にヒロインが声をかける。
1.07.50 「ごめんなさい」泣くのをこらえながらミーコがツトムを降ろす。
1.08.05 「あたしはデーモンだからどうなってもいいの。でもこの子は人間なの。お願い、助けてやって。」と地面に倒れこむようにミーコ。ここでも血反吐を吐くような演技を見せるミーコ。萌え。。。今は亡きトルシエが「小野が11人いたら・・・」という台詞を残しましたが、「ミーコが11人いたら」って気分です。別に原作を死ぬほど読めってことじゃなく、人並みの想像力を駆使して、納得できる演技をして、自分の情熱をぶつけてほしいのですよ。特にクロギンコンビと、ナス夫妻。
1.08.15 ヒロイン、もじもじしてる。ミーコ、ついに嗚咽。そりゃぁ泣くよ。泣く。緊張の糸が切れた、と一言で言ってもさ、演技してみろと言われてきちんと演技できるのが役者です。みーこ萌え。。。
1.08.20 ヒロイン、ぐったりしてるツトムを抱きかかえて「とにかく中に入って！」
1.08.25 瞳に涙を浮かべ、うるうるしてるミーコの顔のアップ。ヒロインの後姿を見つめてる。
1.08.35 家の中。黒髪がツトムを抱きかかえてくる。風呂に入ったらしくこざっぱりしている。そんなもやしっ子にうちのツトムを抱かせてお父さんは心配ですよ。
1.08.50 ヒロインの部屋に入る。ヒゲ妻、ヒロイン、ミーコが既に座卓を囲んでいる。爆弾おにぎりが山のように積んである。一つを取って頬張るツトム。
1.09.00 その姿を見つめるミーコの手にも爆弾おにぎり。頬張りながらツトム「おいひい・・・」ヒロイン「私のお父さんが作ったお米だよ。」どうでもいいじゃないか。とおもったら隅っこにヒゲがいる。コクヨロングランデスクに腰掛けている。
1.09.10 お父さんお母さん、ちょっと、とヒロインが階下へ両親を誘い出す。
1.09.25 緊急家族会議は数秒で終了。二人をかくまうことに。ヒゲ妻の演技がくさすぎ。
1.09.40 部屋に残された三人、黒髪「君はこの子を助けたんだな。俺は君を偉いと思うよ」ってあんた何様？という感じでミーコが黒髪の方を向く。というのは嘘で「ありがとう」とミーコ。ミーコ世渡り上手。
1.09.50 ヒロインが部屋に駆け込んでくる。「ここに居れるわよ」と、ら抜き言葉です。嬉しそうに見詰め合うミーコとツトム。ホントに嬉しそうだよ。良かった良かった。
1.10.20 深夜になる。ヒロインの部屋で雑魚寝をするのはツトムとミーコとヒロイン。ミーコがむくっと起き上がる。
1.10.25 自分のパジャマの袖を捲くるミーコ。それに気付くヒロイン。
1.10.55 ヒロインの化粧台からコンシーラー（？化粧には詳しくないので良く分からないのだけど）を取り出し、自分の腕に塗りつける。ミーコはデーモンに侵された醜い腕を隠したかったのだ、って絶対に無理。人並みの想像力があれば絶対に無理ってわかる。この子も分かってたはず。絶対無理なことを何でナスは強要するのか。意味わかんねぇよ、ナス夫妻。でも、真面目な顔して演技をするミーコ。
1.11.00 ヒロイン「何してるの？」って見れば分かるよ。ミーコ「ごめんなさい、私」とおびえた演技。
1.11.15 ミーコ「私、人間じゃないのにバカみたい。」ヒロイン「川本さんは人間よ」ってなんか主従関係ができてるよ。
1.11.25 さっきまで深夜だったのになぜか朝焼け。ヒロインがミーコを座らせる。
1.12.00 ヒロインがミーコに化粧を塗ってやる。ミーコの表情がミーコの心をしっかりと伝える。始めはちょっと下を見て、そのあとじっとヒロインの方を見つめて、塗り終わったあとにヒロインが鏡の方を促して、ミーコが鏡を見る。ヒロインは最初からアイドルスマイルフルパワーって感じなんだけど、ミーコが躊躇いがちに、少しづつ笑顔になる。
1.12.05 そして一言、「牧村さん、キレイっていいね」で、いきなりミーコがイイ笑顔。ってナス！こんな台詞持ってくるな！そしてこんな演技指導させるな！この映画のミーコとススムに関しては好き勝手にやらせろよ。
1.12.10 さっきまで朝焼けができるくらいの晴れだったのになぜか雨。ヒロインの家。
1.12.30 きたろうとストーカーが牧村宅の門の前で叫ぶ。自警団に入れってさ。それに応対するのはヒゲとヒゲ妻
1.12.55 それを断るヒゲ。警察に任せましょうだってさ。
1.13.05 デーモン特捜隊の白塗りワゴンが近づいてくる。通報されたかもしれないｂｙヒゲ。自業自得だ。
1.13.30 出て行ったほうがいいｂｙヒゲ。みんながちょっと忙しくなる。黒髪が持ってきたポンチョを速攻で着るススム。気をつけ、をしちゃって緊張をしている。頑張ってる。「あそこなら誰も居ない」と言って職場の鍵をミーコに渡すヒゲ。
1.13.40 「皆さんのご恩、決して忘れません」ってなんかこの台詞は棒読み。そうだよな。家の前まで追っ手が迫っているのにお礼をいう立派な大人はいないもんな。「行こうススム君」とミーコ。
1.14.05 ヒロインがアイドルスマイルで「これ」と口紅をミーコに渡す。ヒゲ妻は「ありあわせだけど」とバッグに入れた食料をススム君に渡す。袋の口が閉まっていないので、林檎だのバナナだのが見える。「おにぎり、美味しかったです」とシリアスな顔のススム君。
1.14.15 スローモーションになる。玄関からススム君とミーコが駆け出して路地に入る。
1.14.25 雨がひどい。土砂降りの中、特捜隊の車が来る。
1.14.35 黒髪（この日もＡのロゴのＴシャツを着ていた）が外を見てくる、と言って玄関を開けると、白装束の特捜隊が銃を構えながら乱入。黒髪、びっくりする。黒髪、ドアスコープを覗いてたし、白装束を見てたはずだし、と言うか、おまえデーモンだろう。外の音くらい聞こえてたんじゃないのか。
1.15.05 カクホーとか言いながら牧村一家を拘束する。ヒロインがマウントを取られたあげく髪をつかまれる。白装束がウン！ウン！とか言いながら腕をぶんぶん回すと、ヒロインの悲鳴が聞こえてくる。ああ、暴力をふるってるのね。外の景色が映る。土砂降り。
1.15.20 土砂降りが小雨になる。庭で牧村一家と黒髪が正座させられてるからです。雨がたくさんあるとひ弱な黒髪は文句を言い始めるのです。それにしても正座ってあなた。
1.15.55 庭で尋問開始。銃を突きつけられてるけど暴力は無し。ヒロインの目つきが悪かったのでヒロインがデーモンに違いない、と言われる。いえ違うんです私がデーモンです。とヒゲ妻。いいや、俺がデーモンだ。とヒゲ。何のコントですか。
1.16.10 ちがう、人間じゃないのは俺なんだ、と黒髪。銃口が一斉に黒髪に突きつけられる。
1.16.20 ハフーウウウと唸って黒髪がデビルマンに変身。うわぁと白装束が放射状に尻餅をつく。いったい何のコントですか。
1.16.45 ノブオモードに変身。延々とデビルポーズをとりつづけるノブオ。白装束と一緒にヒゲまで腰を抜かす。たまらずヒロインがノブオに胴タックル。女の子の胴タックルでしゃがみこむノブオ。
1.17.00 違う、アキラ君は人間なのよーと叫ぶヒロイン。違ってるのはあなたです。とは誰もいえないままヒロインの暴走は続く。ノブオに公衆の面前でキス。やっぱりバカカップルだ。
1.17.15 ノブオの肩から胸にかけてを撫でるヒロイン。お礼を言うノブオ。なぜそこでありがとうと言う？
1.17.35 ノブオ「俺は絶対に戻る。」右を見る左を見る。「だから離れろ。」あのね、棒読みの台詞にはさんで右見て左見てもね、単なる挙動不審な餓鬼ですよ。ノブオがヒロインを押し返すが、ヒロインは再度胴タックル。テイクダウンに一応成功。オープンガードの上体で下から攻めようとするノブオ。（体育座りになりましたとさ。）
1.17.50 ヒロインの手によってテイクダウンされたノブオに銃口を突きつける白装束。今思ったんだけどさ、ヒロインが邪魔しなければデビルマンって優勢じゃなかった？「もう会えない気がする」と言うヒロイン。自業自得。
1.18.05 ノブオから引き離されるヒロイン。連行されるノブオ。
1.18.40 二??トラックの荷台に載せられた×の形をしたＳＭの十字架みたいなのに拘束されるノブオ。連行されてゆくノブオに向かって泣きながら叫びつづけるヒロイン。さっきのミーコほどには同情できないのは演技に真実味が無いから。そして、自業自得だから。
1.19.05 拘束具のままマシンガン、ライフル、ハンドガンで背中を乱射されるノブオ。白装束が、死亡確認。
1.19.10 コンビナートのような野焼きのような火葬場のような場所から撤退する白装束。
1.19.55 深夜、暴徒が牧村家に詰め寄せる。それを見たきたろうとストーカーがおびえる。
1.20.25 暴徒が門を乗り越える。何故かスローモーション。包丁を手にする両親。娘にナイフを一本渡し、二階へ行くよう促す。
1.20.40 いやだと言うヒロイン。相変わらず棒読みなヒゲ妻が「私達は親よ。子供のためなら鬼になれる」
1.20.55 結局アキラの部屋へ戻るヒロイン。ますます熱狂する暴徒。
1.21.15 暴徒の懐中電灯の明かりを恐れて台所方面へ逃げるヒゲとヒゲ妻。マッチの火をつける。原作みたく火炎瓶でも作るのか？
糞台詞
1.21.30 ヒゲ妻によるヒゲの浮気調査開始。「一つだけ聞かせて。あなた、浮気したことある？」「ないよ、ずっとおまえ一筋だったよ。」「嘘でも嬉しい。」糞台詞終了と同時に暴徒がリビングのガラスを割る。待っててくれたんだね。
1.22.10 暴徒は速攻でバカ夫婦を見つける。リビングに引きずり出してリンチ。ヒゲ妻叫ぶ。暴徒の声が聞こえる中、ヒロインはベッドに横になり、「アキラ君・・・」と黒髪のことを考える。
1.22.25 息も絶え絶えなヒゲ妻が刺されて死亡。
1.22.30 ヒゲもあっさり刺されて死亡。そのときもやっぱりスローモーション。
1.22.35 電車の車内。
1.22.45 ミーコとススムが地下鉄の車内に駆け込んでくる。誰もいないはずのヒゲの職場にいるんじゃないの？
1.22.55 いたぞ！脱走デーモンだ！の声を聞き、走って逃げる二人。地下鉄から降りる。
1.23.15 関係者以外立ち入り禁止の扉の中に入って逃げる。ミーコは緑色の光線を温存してるのか？
1.23.30 場面は牧村家。バカ夫婦の死体を見て、もう一人いるぞ、と暴徒の一人。
1.23.55 部屋の中に一人で入ってくる暴漢。クローゼットの中から奇襲するヒロイン。そこで一言。「私は魔女よ。ナメルナ！」
1.24.10 場面はミーコとススム。直線の道を走る。二人を追いかける白装束。
1.24.20 階段を上り、建物の屋上に出て、行き止まりになる二人。
1.25.00 ごめん、と言うミーコが進むの背中を押して二人でビルから飛び降りる。落ちるときの合成がめちゃくちゃしょぼい。手を繋ぐ二人。ミーコの腕が光る。ミーコの背中から光る翼が生える。と思ったらススムは地面に転がされる。手を繋いでたんじゃないのか。「誰？」とミーコに聞くススム。ミーコ（背中が光ってる）が「私よ、ミーコよ」と答える。
1.25.20 お姉ちゃんキレイだ。とススム。ミーコの腕がキレイになる。と言うか、化粧をして髪もセットしなおしてもらい、何故か日本刀を持ってポーズをとる。
1.25.25 そのまま浮かぶ、と言いたいところだけど、かなり不自然にふらふらしてる。ミーコを釣る方ももっとちゃんと固定してあげようよ。
1.25.40 屋上に戻ってきたミーコ。背中の光が消えてます。そこで一言「悪魔はおまえら人間だ！」原作ではデビルマンが悟った台詞なんですけどね。口で言うなよ。原作のデビルマンは、人間達が殺し合い、ミーコを拷問し、牧村夫妻を拷問して殺し、その他の何の罪も無い人たちを遊び半分で拷問して、殺しまくったのをみて、悟るんですけどね。追いかけられたくらいで他人を悪魔呼ばわりできるなんて、この脚本を書いたナス夫妻の人間性を疑います。
1.26.45 バトル終了。と言うか、キルビル？最後の一人までかっこよくミーコが片付けて終了。月夜にミーコの顔が凛々しく映えます。
1.27.10 というかススム君、あなたはどこにいるのかね。ナスがまたテレポートさせやがった。どこかの部屋にいるススム君が、窓から空爆を見つめる。爆撃の炎が進君のいる建物まで迫る。
1.27.40 ボブニュース。世界大戦がはじまりました。ボブがデーモンになりました。阿修羅マンみたいなデーモン。皆さんさようなら、と言いながらいつもの調子で笑うボブサップ。
1.28.30 ノブオ、吐血。血の中に弾丸。匍匐前進。人間の死体を数個見つける。（エキストラが少なすぎ）それをみて立ち上がる。
1.28.35 道の向こうから黒髪が歩いてくる。町の至る所から黒鉛が立ち昇る。徒歩。
1.29.10 うーん、荒廃してるなぁと思いつつ、ひっくり返った車を上ると、道の向こうは普通のアスファルトの道路。おいおい。せめてエキストラの死体くらい置いておこうよ。黒髪が、ヒロインの家へ駆け込む。
1.29.20 おじさんおばさん、ただいま！お帰りあきら君っていう情景を想像していたのに、玄関からちらりと見える景色はいつもと違う。
月２万の給料と少ないですが、貯めて貯めて季節ごとに高物を大量に買い込みます。
その額４万ぐらいでしょうか？
前に母が>>48さんの時のような感じでしょうか？嬉しそうな顔をして「服かって来てあげたで！あんたにばっかり服買わせてごめんな」と言ってPIKOのトレーナーを買ってきてくれました。
はっきり言ってピコなんか着れません。僕の気配を察知してか、「いらんかったら私が着るよ。安物でごめんな！」と笑顔で言ってくれました。
ピコトレーナーは高いはずです。５千前後でしょうか？それなのに僕は・・・。
一応もらうと、「パジャマにはちょうどいいでしょ？」と笑顔で言ってくれました。
僕は親不孝でしょうか？うそでも喜ぶフリをすればよかった・・・。
僕は母の気持ちは最高に嬉しかったです。けど、やはり照れくさいです。ありがとうなんて目の前で言えません。
僕はそんな母が大好きです。家ではいつも困らせ、傷つけてるでしょうが・・。
卒業してうまく就職できたら初任給で一緒にゴハン食べに行きましょう。
貯金ができたら今持ってる父から結婚前にプレゼントされたというボロボロのヴィトンの財布を修理に出しに行きましょうか。
お母さん、年くってボケても大丈夫です。僕が最後の最後まで見てあげますよ。
お母さん、あの時のピコトレーナー、着ることはないでしょうがすぐ手の届くところに置いてますよ。
ありがとうございます。これからも僕を愛し続けてください。
私の視点を通した女性視点ってことでは同意ですが、
おおむねにおいて一般論のつもりです。
女性が得るものがないと言う気も全くありません。
しかし、男性は結婚しておおむね元と変わらない生活を続けるのと比べ、
女性はどれだけ変わることが多いか、当事者じゃないと分からないことが多いのではと思って書いてみたのです。
半数程度の男性が、奥さんに看病してもらえるはずです。
本来するべき仕事はお休みできます（その分お給料は減りますが、それによって被るデメリットは折半です）。
かなり低い割合の女性しか、旦那様に看病してもらえません（その度合いも、男性が女性から受けるものに比べてカバー率が低い※）。
本来するべき家事は、旦那様にどれだけ肩代わりしてもらえるのでしょうか。
職場で、女性が「旦那が風邪引いたので休む」のは聞いたことがあっても、男性が「妻が風邪を引いたので休む」のは聞いたことがないのでは。
逆の視点もあると思うので、逆の視点での意見も聞きたいです。
※男性視点だと気づかないと言われたことがあるので書くと、男性に期待できるのは、せいぜい風邪薬を買ってきてもらうレベルです。
冷えピタや、熱があっても食べやすい食品を買ってきてくれる男性は非常に少ないし、
汗をかいたパジャマやシーツを交換してくれる人はごく少数じゃないかと。
お願いしたところで、面倒だと言われることも多いです。
男性が寝込んだとき、看病できてうれしいとか思う気持ちもありますが、やはり負担という視点で見ると、女性にかかるものは多いのではないでしょうか。
まあ、どうでもいい話ですけどね。現実は変わりませんし。
使おうと思えば際限なく金を使いたいし、
使わなくていいやと思えば本当最低限しか使わない。
やろうと思えば際限なくやりたいけど
やらなくていいやと思えば本当最低限の事しかやらない。
ひとたび「やるよ」スイッチが入るととことんまでやりたくなるけど
それを消すとどうでもいいよ……生きてるだけで……って感じになる。
スイッチが入ってると、興味あることにたいしてどんどん突き進んでいくモードになるため、金もどれだけあっても足りなくなる。
しかしなんというか「悟るモード」に入ると「でも別にそんな事しなくてもいくね？興味あるっていって色んな事やってるけどこれって単なる自己顕示欲とかじゃね？なら別にやらなくてよくね？」って感じでどんなに興味あることでも意識的に一歩引いて、冷めモードに入ると冷める。でもその冷めた意欲を意識的に回復させることも出来る（それがスイッチ入った状態）。
そんな感じで、どちらかしかない。
どうでもいいよ。無難でいいよ。とひたすら省エネモードで進む人生か。
基本的には前者が多いのだが時々後者にもなる。それの繰り返し。中間がない。
一度、このこととは余り関係ないが精神科へ通っていた時、「０か１００かの思考は危険だよ」と言われたのだが、そんな事は重々分かっているのだ……でも直すことが出来ない。人生一番賢いのは、7割8割で進むことなのだろうと頭では分かっているがそれが出来ない。俺の場合「やる気」がオンオフの二通り、デジタルな感じに二つしかない。オンになれば100だが、オフになると0になる。その中間のそこそこのやる気というのが起きない。やる気に火がついたらかなり精力的になるけども、やる気がなくなれば本気で何もしたくなくなる。風呂も嫌だし歯磨きも嫌だ、パジャマに着替えるのも面倒だというレベルにまでなる。
しなくてはならない事はオフ状態でもやらなくてはならないわけで、そういうことは100ではないこともあるがそれでもせいぜいが10、20である。80や70という状態にはとてもなれない。そういう効率のよい賢い生き方が出来ない。
そういう性格を直したほうがいい、と幾人もから言われ続けてきた。それでもこの性格は治らない。
別に変な教育を受けたわけでもないし親に問題があるとも思えないのだが一体全体どうしてこんなややこしい性格になってしまったのか。やれやれ。
スウェットって世間の人は１着位持ってるのかな。
私の場合、家に帰ってくるとすぐパジャマに着替えちゃうんだけど、
こういうときに着るのかな？
多分俺は神経質なんだけどさ。
でも常に神経質って訳じゃなくて、
基本的に面倒くさがりやでズボラなんだけど
「いや、こんな風じゃダメだ。ちゃんとしないと」って決意してちゃんとし始めると物凄い神経質になるっていうか。
それでそれも一週間くらい続いたりするんだけどあまりに神経質に生活するもんだから当然もたなくて、結局またズボラになんのね。
それの繰り返しでさ。もう生きるのが面倒くさくてたまらない。
ズボラモードになると休日とかオールパジャマだったり同じ服でベルトしたまま寝たりとかするわけ
歯磨きとかもしないし風呂もはいらないし
食うのも面倒くせえ、みたいな感じで。腹は減ってるけど、なんか食べるもの用意するのが面倒だから、そのために動くくらいなら空腹我慢するわ、みたいな面倒くささ具合でさ。
ネットとかやっててもブクマとか滅茶苦茶適当にかたっぱしからブクマしちゃったりして
まあ、そんで、後から泣きを見るわけで
それも自分で重々分かってるから、「これじゃだめだ！」って思って目覚めるわけ。
そんで毎日ちゃんと規則正しい生活を送り始めるわけ。布団を干したり着替えたり服をクローゼットの中にしまったり風呂に入ったりちゃんと髪を乾かしたり歯磨きをしたり食事を作ったりするわけ。って書くと単に普通の生活じゃねえかって感じなんだけど、なんていうか、その他の細かい事もいちいち気を配り出して止まらないんだよね。そんでそれが出来ないとずーっと気になっちゃって。
まあ普通の人は普通にやれてることなんだろうけど、俺にとっては物凄く神経を使うことでさ。もう擦り切れてくるのよ。一週間くらいたつと。ぶちんと切れるのよ。そんでまた怠惰なモードに入る。
もう幼い頃からこれの繰り返しで、夏休みの宿題も初めの数日だけえらく完璧に仕上げてたくせにその後はもう超堕落とか。ノートめちゃくちゃキレイにとってたけど途中で誰も読めない古代文字レベルに変わるとか。なんていうかとにかく落差が激しすぎる。
自分でも薄々気がついてるんだけどね。怠惰モードは本当人間としてダメなレベルに怠惰だし、かといって神経使うモードだとあまりにきっちり過ぎるっていうか異常に神経質というか完璧主義っぽくなるっていうか、本当、不器用なんだよね、俺。
でもさ、それに気がついたのは最近なんだけど、思えば小さい頃から俺はこうだったから、もう「超堕落モード」か「超神経質モード」以外の生き方が分からないわけ。普通の人が普通にやってる生き方ができない。ほどほどとか、適当とか、そういうのが全然出来ないんだよね。
で、増田に聞きたいのは、それってどうやればいいのかなって。
神経質モードの時に、「適当」を目指すとさ、なんかその「適当さ」を完璧にすべく神経質になっちゃって、あんまり意味がなくなっちゃうんだよね。そうじゃなくてある程度力を抜いて普通に生きたいわけなんだけど、でもどうすればそれが出来るのかわからない。親にも随分この事で叱られてさ、「もっと適当にやればいいの」とか言われたんだけど、お母さん、その適当が僕には分からないんですよ、ってなもんでね。でも「適当ってどうやればいいのかわからない」って言っても親は「適当は適当でしょ。屁理屈言うな」的に言うもんで、俺は「ああ、適当に出来る才能がある人はそれに劣っている人の気持ちが分からないんだ…」と軽く失望したりもしたわけですがそれはまあいい。「テキトー」ってどうやればいいんですかね。このままじゃ俺、限りなくダメ人間になるか、超神経質な人間になるしかない。どっちも嫌なんですわ。なんとかしたいんすわ。
明日5時起きだから今日は短いぞ！
多分・・・・
べ、別に飽きたとかブクマ数減ったからって理由で短くするんじゃないんだからねっ！！ぷん！
つーかマジでもう寝てなきゃいかん時間なんだが・・・・
けどここで、「明日でいっか！早く寝ちゃおっ！」となると
まるで三日坊主状態・・・・
毎日書くなんて言ってないけど・・・・始めたばかりだしな！
よし今日も書くぞー。
あ・・・・トラックバックのやり方だが・・・・
勝手になってるような気がする・・・・
違うのか？まあ今回は何もせずいこうと思う。
It was a wrong number that started itまで読んだ。の人。
日本語でおk。
そんなこと書いてねえ！って、もしかして・・・・書いてるのか？俺・・・・
いや、書いていないはず・・・・英語読めないからやめて。
20代に驚きとかどんだけえー？
え・・・・まさかゆとり的な意味で10代かと思ったのか？・・・・
言っとくがそれはないぞ、ゆとりって言われてもイラッと来ない世代です。
番組はおっさんが作ってるから使ったりするのかな？かな。
まいいや、20代ですよ、25。
この皮肉抜きって部分がひっかかるんだよな・・・・
俺は素直なんで褒められたら喜びますよ、ありがとう！
じっくる読む、だけ読んだ。・・・・
うっ・・・・
なんでそこだけだよ！じっくり！クッソ・・・・
じっくる読む、だけ読んだ。の人、まあ目に止まったなら何よりだよ。
というかそこだけ！？本当に？なんだよ・・・・
えーとりあえずこの人みたいな気付きの人がまだいるかもしれないので、じっくるは直しません。
次！！
いつもは長文だと読まずに飛ばしちゃう俺だけどの人。
おー、こういう反応を待ってたよ、ありがとう。
俺もたまにあるんだよ、そういう読みやすい長文に出会うことが。
書いてるやつの空気が伝わってくるというのかな・・・・
これはもう才能、それしかない。
俺にはその才能があると、君が証明してくれた・・・・
うざい？あっそ
嘘だよ、軽い文章すぎて取っ付きやすいんだろうな、
垂れ流した会話の延長みたいな感覚で書いてるから。
そのせいで今俺が下半身裸でコタツにインしてることまで伝わってるとしたら・・・・
それってなんだか、ミステリー？
これ？パプリカの真似。
ただ俺もね？うｐしたばかりの自分の日記を見る時ハラハラするんだよ・・・・
異常に長くて浮いてる感は書いてる本人でも自覚ありだからな。
この時点ですでに長いんだろうな・・・・
今日は短めにするつもりはあるんだが・・・・
チャット状態の人。
あー・・・・
これは長文レスの予感。
まあな、いろんな長さの日記はあるんだろうなとは思ってたよ、
人大杉なら当然だよな。
俺は、チャット感覚でも、その文書いてすぐ消すくらいの姿勢で書いてたとしても、まあありだと思う。
ここの管理人がそれ取り締まってるならダメだが、そうじゃないならありだよな。
うん・・・・
それを思ったまま書いたのね、1行レス日記うぜぇとは思ってない。
それよりも、
俺は、これまで2chでいろんな形のレス見てきたのにも関わらずだよ？
関わらず、まだ自分の中に、
日記といえばこのような形をしていましてー・・・・
こういう文でー、このくらいの長さでー書かれててー・・・・
という、先入観。
花柄なんかあしらってあるやつな。
それ着て、ベッドの上にうつ伏せで寝そべって、もちろん裸足。
そして枕の上に肘付いて・・・・ハァハァ
今日あった出来事、お友だち同士で話した恋の相談かな？
そんな内容を書く・・・・ぐふ・・・・
気持ち悪いって言うなよ。
大体現に俺が今書いてるこれ、自分でも日記のつもりで書いてるんだよ。
それでも俺の中でイメージはこれなんだよ。変だろ？
けどそれらを全部ひっくるめて日記だと一致させることができてなかった、そんで衝撃受けたんだよ。
え？例え話いらなかった？もう書いちゃっただろ！
そこは、俺がこの匿名日記をやりたいと思い立った理由にあるわけだが・・・・
その周囲の反応が見てみたくて始めたの。
分かるよ、反応を気にしないことがネット上でやってく秘訣だってことも・・・・
ただ、俺はその反応が見たくて始めたから、そのことを分かって欲しくてレスくれ！って書いた。
俺が、欲しがってますってことが伝わらないと、
そのままなんも反応せずに素通りされるかもしれない・・・・
逆に書いたことに対して「うぜえこいつ」って嫌煙されることもあるんだろうなあ、それも分かる。
そして今のこの文。
何？真面目ぶっちゃってんの？ここ、この今の書き込みが一番熱血臭くて、うざあ〜い！
と思われてそう・・・・ってことも、ひしひしと感じてるしな・・・・
これで俺がレス欲しがってるってことは・・・・
これだけ書けばね、しつこいほど伝わったと思う！
日に日に流されて埋もれてく日記だから、忘れた頃にまた言うかもしれんが・・・・
控えるのも得策だよな、さりげなーく、な。やってみる。
うわああああああ1時すぎてるう！！
何やってんだ俺・・・・5時起き・・・・
ついでだから最後まで書く。
朝つまんねえの人。
いや、実はレスくるとは思ってもみなかった。
また一行日記の人イコール俺の日記スルーという先入観がくつがえされた、これは嬉しいぞ！
あー・・・・反省なんて、しなくてもいいけどそのお陰で俺の日記が目の止まったならなによりだ。
まあ言ってしまえば、
俺が匿名日記にこなれてきたら同じこと言い出す確立相当高いよ？
とか言い出したらフラグだと思っていい。
ってかあんま気にしないでくれ、というかやっぱ夜なんだな、更新される時間帯。
今まさに夜だし、更新の嵐なのか・・・・
こんなの本気でさぐりさぐり書いてんだぞ？
あんまりロムりすぎるのも・・・・
行動に移せないまま終わりそうだろ？日記だし。
実際俺のプライベート日記は今月入って2日しか更新されていない。
メモ帳キープとか、え・・・・
それもはてなの機能？ってことはないよな。
一回読んだのに読み返す気か？長いぞ。
ブクマ数とかランキング上位を狙ってるわけじゃないからいいよ。
好きにしてくれ。
にゃんこ付きのぬるくてふところキビシい？
よく分からんがいつか分かるよな、うん。ありがとうね！
あ・・・・
俺も増田って呼ばれるのか、新鮮だ・・・・
風呂行ってくる。・・・まで読んだ。の人。
というかあんたチリの人だろ！
それ最後の文じゃん！うおーありがとう。
いつもレシピ日記書いてる訳じゃなかったんだな、好評でよかったな！俺も読んだぞ！
鶏の胸肉ってあれだろ？笹かまぼこみたいな形の肉2つ3つ入ってるやつ。
腹減った・・・・俺は林檎食って寝るよ・・・・
ぜんっぜん短くなかった・・・・
もう寝る。お前らも早く寝ろよ。
お母さんが入院するなら、とりあえずタオルとかカバンに詰めとけ。
お父さんの為におにぎりでも作っとくとかさ、
後は通帳とか場所が分かれば用意しておいたほうがいいかも。
お父さんがしばらく泊り込むことになりそうなら、毛布とか寝袋もあってもいいかも。
お母さんのパジャマ……とかは病気がわからんからコメントしにくいな。
親父さんの変わりに親戚なりに連絡するとか、連絡のついでに色々聞くとか……
俺は父親が倒れた時、まだガキで何にも出来なかったけど、増田なら！増田ならなんか出来るんじゃないかな。
出来ないでもいいんだけどさ、なんかしたほうが気がまぎれるよん。
【追記】http://anond.hatelabo.jp/20071026220355
結婚しようぜ。
発祥: http://ex23.2ch.net/test/read.cgi/morningcoffee/1188654905/
Scheme という Lisp 語族の言語を用いて ℃-ute の相関関係をプログラムし、様々な角度から関係性を分析する手法を紹介していきます（ソースコードは最後に張ります）。
まずは、メンバー間の関係を「リスト」というデータ型で表現します。例えば「栞菜->愛理」という関係は
(kanna . airi)
という形で表すことができます。これに、「大好き」という情報を付加し、ついでにその関係の性質を数値化したものを加えると
((kanna . airi) (desc "大好き") (score . 1))
のようになり、関係図における一つの矢印の情報をデータ化できたことになります（暫定的に、好意は 1、良好・中立は 0、険悪は -1 の３段階で表すことにします）。
メンバー間の全ての関係性をこのデータ単位で定義し、データベース化しておくことで、色んな条件に基づいた検索やスコア計算などが可能となります。
ここで相関関係図における矢印を「リンク」と呼ぶことにして、あるメンバーから他のメンバーへどのようにリンクし、またリンクされているかを調べることができます。
(sort-nodes (number-list (from-links)))
結果:
((kanna . 6) (saki . 5) (maimi . 4) (erika . 3) (mai . 3) (chisato . 3) (airi . 2))
栞菜ちゃんがメンバー全員にリンクを張っていることが分かり、℃-ute ラブっぷりが伺えます。なっきーにも同様の事が言えます。例の「女の子が好き」発言を数値的に裏付ける結果と言えるかもしれません。
ただ、データ不足でリンク件数がまだ少ないのと、リンクの性質（好意／反感など）までは分からない点を考慮する必要があるでしょう。
同様に、リンクの終点の件数を調べてみます。
(sort-nodes (number-list (to-links)))
((chisato . 5) (erika . 5) (kanna . 4) (maimi . 4) (airi . 4) (mai . 3) (saki . 1))
えりかちゃんと千聖ちゃんが高ポイントです。メンバーからの人気や注目度の高さを示すデータですが、千聖ちゃんの場合敵対的なリンクが２件含まれている点に注意してください。
なっきーの被リンク数が極端に少ないですが、単純にデータ不足のためだと思われます。はぶら(ryとか言わないようにお願いします。
リンクに付随するスコアを計算することで、愛情の度合いを測ることができるのではないか、という考えに基づく研究です。
まず、全ての関係性を対象として、スコアがマイナスの関係を抽出してみます。
(filter-nodes (lambda (n) (< (score-relation n) 0)))
結果:
(((kanna . chisato) (desc "愛理に手出すんじゃねぇよ") (score . -1)) ((saki . chisato) (desc "愛理に手出すんじゃねぇよ") (score . -1)))
件数だけを得ると
(length (filter-nodes (lambda (n) (< (score-relation n) 0))))
2
僅か２件です。
良好・中立的な関係は
(length (filter-nodes (lambda (n) (= (score-relation n) 0))))
8
愛に満ちた関係は
(length (filter-nodes (lambda (n) (> (score-relation n) 0))))
16
非常に多いです。舞美ちゃんの「℃-ute同士でラブラブなんですよ」発言（例のラジオ）を数値的に裏付ける結果と言えるんじゃないでしょうか。
次に、メンバーごとのスコアを算出してみます。Lisp 的には以下のようにフィルタリングと畳み込み (fold) で計算することができます。例えば
(foldr (lambda (n acc)
(+ (get-score n) acc))
0
(filter-nodes (cut to? <> 'kanna)))
3
上式を一般化して一挙にメンバー全員に適用してみると
(sort-nodes (map (lambda (x) (cons x (score-loved x))) (all-members)))
結果:
((airi . 4) (kanna . 3) (mai . 2) (erika . 2) (maimi . 2) (saki . 1) (chisato . 0))
愛理ちゃんが好意を寄せられやすい傾向が伺えます。
今度は逆方向のスコアを計算してみると
(sort-nodes (map (lambda (x) (cons x (score-loving x))) (all-members)))
((kanna . 3) (maimi . 3) (chisato . 2) (airi . 2) (saki . 2) (mai . 1) (erika . 1))
まいまいとえりかちゃんが特に堅い・一途だという傾向を読み取ることができます。
今度は組み合わせ（カップリング）の評価です。
２点間相互のリンク・スコアを加算したものを「相性」と考えられるものとします。最大値 (互いに好意を寄せている場合の数値) は現在のスコアリング方式では 2 です。例えば
(score-between 'kanna 'airi)
の値は
2
となります。1 であれば一方通行と考えます。
関係性が未定義の場合もあるので 0 のものを除外して算出すると
(sort-nodes (filter (lambda (n) (not (= (cdr n) 0))) (map (lambda (n) (cons n (apply score-between n))) (all-combinations))))
(((chisato mai) . 2) ((chisato airi) . 2) ((airi kanna) . 2) ((saki kanna) . 2) ((kanna maimi) . 2) ((erika maimi) . 2) ((saki airi) . 1) ((saki erika) . 1) ((kanna mai) . 1) ((maimi airi) . 1) ((saki chisato) . -1) ((kanna chisato) . -1))
となります。若干ピンとこない部分もあるかも知れませんが、計算上は矛盾無くデータの内容を表しています。
(map (lambda (p) (find-relation (cons (caar p) (cadar p)) identity)) (filter (lambda (n) (= (cdr n) 1)) (map (lambda (n) (cons n (apply score-between n))) (all-combinations))))
(((kanna . mai) (desc "喰ってやるよ") (score . 1)) ((saki . airi) (desc "好き") (score . 1)) ((maimi . airi) (desc "良き妹") (score . 1)) ((saki . erika) (desc "彼氏にしたい") (score . 1)))
のようになります。
以上の調査を経て気になった問題点を列挙してみます。
特に最初の点に関して、「百合的」なるものの質的評価がなかなか難しいと感じました。例えば「大好き」も「良き妹」も同じ 1 と評価してしまっているのが妥当かどうか、といったことです。
また、スレにて与えられた情報を評価・分析する方法としては有効だとしても、逆方向のフィードバックの手段がなかなか見つからないというのが三つ目の問題です（技術力不足とも言います）。（注：画像化の方法が分かりました。追記参照）
最後に、プログラムのソースを示します。実行には PLT Scheme が必要です。文字コードは UTF-8 で保存した上で、(load "c-ute.ss") としてください。文字化けする場合はターミナルが UTF-8 を表示できるよう設定する必要があります。がんばってください。
c-ute.ss:
(require (lib "etc.ss") (lib "list.ss") (lib "26.ss" "srfi") (lib "delete.ss" "srfi" "1")) ;;; Utilities (define true? (compose not not)) (define (ignore _) #f) (define fif (case-lambda ((predicate consequent) (fif predicate consequent ignore)) ((predicate consequent alternative) (lambda (x) (if (predicate x) (consequent x) (alternative x)))))) (define (concat! xs) (apply append! xs)) (define (mapconcat f lst sep) (let lp ((str (f (car lst))) (lst (cdr lst))) (if (null? lst) str (lp (string-append str sep (f (car lst))) (cdr lst))))) (define (slice-string str len) (let lp ((res '()) (str str)) (if (<= (string-length str) len) (reverse! (cons str res)) (lp (cons (substring str 0 len) res) (substring str len))))) (define (break-string str len) (mapconcat identity (slice-string str len) "\\n")) ;; NOTE: input and output ports have to be either file-stream or #f ;; (i.e., cannot be a string port) (define (run exe opt in out) (let-values (((p p-i p-o p-e) (subprocess out in #f exe opt))) (subprocess-wait p) (close-input-port p-e))) ;;; Database ;; http://ja.wikipedia.org/wiki/%E2%84%83-ute (define names '((erika . "えりか") (maimi . "舞美") (saki . "早貴") (airi . "愛理") (chisato . "千聖") (mai . "舞") (kanna . "栞菜"))) (define (symbol->name sym) ((fif true? cdr) (assq sym names))) (define nodes '()) (define edges '()) (define (relate from to desc score) (let ((n (cons from to))) (or (find-relation n (lambda (r) (let ((d (assq 'desc r)) (s (assq 'score r))) (set-cdr! d (cons desc (cdr d))) (set-cdr! s (+ score (cdr s)))))) (begin (set! nodes (cons n nodes)) (set! edges (cons (cons n `((desc ,desc) (score . ,score))) edges)))))) (define (find-relation n k) ((fif true? k) (assoc n edges))) (define (related? x y) (find-relation (cons x y) (lambda (_) #t))) (define (from? n x) (eq? (car n) x)) (define (to? n x) (eq? (cdr n) x)) (define flip-relation (case-lambda ((n) (and (related? (cdr n) (car n)) (cons (cdr n) (car n)))) ((n k) ((fif true? k) (flip-relation n))))) (define (get-score n) (cdr (assq 'score n))) (define (get-description n) (cdr (assq 'desc n))) (define (describe-relation n) (find-relation n get-description)) (define (score-relation n) (or (find-relation n get-score) 0)) (define (print-node . ns) (for-each (cute find-relation <> (lambda (r) (display (format "| ~a => ~a (~a)~%" (caar r) (cdar r) (mapconcat (lambda (s) (string-append "\"" s "\"")) (cdr (assq 'desc r)) ", "))))) ns)) (define (iter-nodes k) (let lp ((nodes nodes)) (unless (null? nodes) (k (car nodes)) (lp (cdr nodes))))) (define (filter-nodes p) (let ((ns '())) (iter-nodes (fif p (cut find-relation <> (lambda (n) (set! ns (cons n ns)))))) ns)) (define (from-links) (map car nodes)) (define (to-links) (map cdr nodes)) (define (all-members) (delete-duplicates! (from-links))) (define (all-pairs) nodes) (define (ordered-pairs) (concat! (map (lambda (x) (map car (sort (filter-nodes (cute to? <> (car x))) (lambda (x y) (> (get-score x) (get-score y)))))) (sort-nodes (map (lambda (x) (cons x (score-loved x))) (all-members)))))) (define (all-combinations) (let lp ((cs '()) (ns nodes)) (if (null? ns) cs (let ((n (car ns))) (lp (if (member (list (cdr n) (car n)) cs) cs (cons (list (car n) (cdr n)) cs)) (cdr ns)))))) ;; number-list :: [a] -> [(a . Int)] (define (number-list ls) (let lp ((ns '()) (ls ls)) (if (null? ls) ns (let ((x (car ls))) (lp ((fif not (lambda (_) (cons (cons x 1) ns)) (lambda (n) (set-cdr! n (add1 (cdr n))) ns)) (assq x ns)) (cdr ls)))))) ;; sort-nodes :: [(a . Int)] -> [(a . Int)] (define (sort-nodes ns) (sort ns (lambda (x y) (> (cdr x) (cdr y))))) (define (diff-nodes ms ns) (let lp ((ds '()) (ns ns)) (if (null? ns) (sort-nodes ds) (lp (let* ((n (car ns)) (m (assq (car n) ms))) (cons (cons (car n) (- (cdr m) (cdr n))) ds)) (cdr ns))))) (define (get-total-score x p) (foldr (lambda (n acc) (+ (get-score n) acc)) 0 (filter-nodes (cut p <> x)))) (define (score-loved x) (get-total-score x to?)) (define (score-loving x) (get-total-score x from?)) (define (score-between x y) (+ (score-relation (cons x y)) (score-relation (cons y x)))) (define (-> x) (display (format "~%Links from [~a]~%" x)) (iter-nodes (fif (cut from? <> x) print-node))) (define (<- x) (display (format "~%Links towards [~a]~%" x)) (iter-nodes (fif (cut to? <> x) print-node))) (define (<-> x) (display (format "~%Reciprocal links for [~a]~%" x)) (iter-nodes (fif (cut to? <> x) (lambda (n) (flip-relation n (lambda (m) (print-node m n))))))) (define (<=> x) (display (format "~%Reciprocal matches for [~a]~%" x)) (iter-nodes (fif (cut to? <> x) (lambda (n) (flip-relation n (lambda (m) (if (ormap (lambda (x) (ormap (lambda (y) (equal? x y)) (describe-relation m))) (describe-relation n)) (print-node m n)))))))) (define (<?> x) (let ((to (assq x (number-list (from-links)))) (from (assq x (number-list (to-links))))) (display (string-append (format "~%Link statistics for [~a]~%" x) (format "| ~a => ~a (love ~a)~%" x (cdr to) (score-loving x)) (format "| ~a => ~a (love ~a)~%" (cdr from) x (score-loved x)))))) (define (info x) (for-each (cut <> x) (list <- <-> <=> -> <?>))) ;;; GraphViz (http://www.graphviz.org/) support (define graphviz "C:/Program Files/ATT/Graphviz/bin/dot.exe") (define (nodes->dot ns) (string-append "digraph cute {\n" ;;"\tordering=out;\n" ;;"\trankdir=LR;\n" "\toverlap=true;\n" "\tnode[fontname=\"msgothic.ttc\"];\n" "\tedge[fontname=\"msgothic.ttc\",fontsize=9];\n" (let lp ((str "") (ns ns)) (if (null? ns) str (let* ((n (car ns)) (s (score-relation n))) (lp (string-append str (format "\t\"~a\" -> \"~a\"" (symbol->name (car n)) (symbol->name (cdr n))) (format "[label=\"~a\",color=\"~a\"," (break-string (car (describe-relation n)) 7) (cond ((> s 0) "red") ((= s 0) "green") (else "blue"))) (format "style=\"bold~a\"];\n" (if (and (not (= s 0)) (< s 1) (> s -1)) ",dashed" ""))) (cdr ns))))) "}")) (define (write-dotfile dot file) (and (file-exists? file) (delete-file file)) (with-output-to-file file (lambda () (display dot))) file) (define (dot->png dot png) (call-with-input-file (write-dotfile dot "c-ute.dot") (lambda (in) (and (file-exists? png) (delete-file png)) (call-with-output-file png (lambda (out) (run graphviz "-Tpng" in out))))) 'done) ;;; Setup database ;; Based on: ;; http://ex23.2ch.net/test/read.cgi/morningcoffee/1188654905/116-142 (begin (relate 'maimi 'erika "大好き" 1) (relate 'maimi 'kanna "良き妹" 1) (relate 'maimi 'airi "良き妹" 1) (relate 'maimi 'mai "姉妹" 0) (relate 'erika 'maimi "一番可愛いよ" 1) (relate 'erika 'kanna "仲間" 0) (relate 'erika 'chisato "おソロパジャマ" 0) (relate 'kanna 'erika "仲間" 0) (relate 'kanna 'maimi "好き" 1) (relate 'kanna 'saki "喰ってやるよ" 1) (relate 'kanna 'mai "喰ってやるよ" 1) (relate 'kanna 'airi "大好き" 1) (relate 'kanna 'chisato "愛理に手出すんじゃねぇよ" -1) (relate 'saki 'maimi "荷物整理" 0) (relate 'saki 'erika "彼氏にしたい" 1) (relate 'saki 'kanna "興味がある" 0.5) (relate 'saki 'chisato "愛理に手出すんじゃねぇよ" -1) (relate 'saki 'airi "好き" 1) (relate 'airi 'kanna "受け入れる" 1) (relate 'airi 'chisato "最近親密" 1) (relate 'mai 'erika "保護者" 0) (relate 'mai 'maimi "姉妹" 0) (relate 'mai 'chisato "恋人" 1) (relate 'chisato 'erika "おソロパジャマ" 0) (relate 'chisato 'mai "恋人" 1) (relate 'chisato 'airi "最近親密" 1)) ;; query relations / draw graphs (if (file-exists? graphviz) (dot->png (nodes->dot (ordered-pairs)) "c-ute.png") (for-each info (all-members)))
Graphviz というソフトによって関係図を可視化できる、ということを教えていただきました（既に上プログラムを実行すると自動的に関係図画像を作成するようにしてあります）。ここでは技術的な観点から幾つか注意点を挙げておきます。
まず、Scheme プログラムから Graphviz を動かす方法について。コマンドラインからの起動のように、プログラムへのオプション文字列で入出力ファイルを指定する方法ではどうも上手く行きませんでした。調査の結果、入出力ファイルのポートを Scheme 側で用意しておく必要があるようです。処理系によって異なりますが、PLT Scheme の場合 subprocess という関数を次のように呼び出します。
(subprocess output-port input-port #f "/path/to/dot.exe" "-Tpng")
ここで output-port は png 等画像ファイルへの出力ポート。input-port は dot ファイル（グラフの定義ファイル）の入力ポートです。エラーポートは必要無いでしょう (#f)。
dot という名前の実行ファイルが、関係図のような有向グラフを描画するプログラムです。最後にオプション文字列として出力形式を指定します（png, jpeg, gif, etc.）。
次に dot ファイルを Scheme で書く方法ですが、以下の基本的な有向グラフの書式
digraph g {
A -> B;
B -> C;
C -> A;
}
を理解すれば、後は実直に Scheme のデータを当てはめて format 関数等で変換するだけです。
(string-append "digraph g {" (format "~a -> ~a;" (car node) (cdr node)) "}")
問題は、ノードを配置する順番によって出来上がる画像が変わってくる、ということです。
より見た目に分かりやすくするための工夫としては、相互にリンクするノード同士が dot ファイル上でも近接して出力されるようにすると良いでしょう。関連の強いものが画像の上でも近くに表示されるようになります。
また上述（特に例３）のスコアの概念を応用し、スコアの低いものが後に出力されるようにすることで、重力感覚に一致するような関係図を得ることができるでしょう。
１、生パン粉の元となる生下着を入手するため、街で歩いている女の人に声をかけます。
この場合、年齢はとくに問いませんが、年齢によって布の分量はちがうことは留意してください。
２、女の人を何とか説得して、合意の上で生下着を脱いでいただけるように交渉します。
なかなか納得してもらえませんが、むりやり強奪した下着では生パン粉はつくれません。
言葉の力を信じて、ピュアな気持ちをいっしょうけんめい表現しましょう。
４、両手でやさしく持ち、自宅に帰ります。途中、職務質問などに注意してください。
５、生下着を適当な皿の上におきます。
６、床を延べ、５を慎重に枕元におきます。
７、未来の生パン粉さまに失礼のないよう、身を清め、清潔な縦じまのパジャマにきがえます。
８、床に就きます。就寝中はよこしまな想念や夢精に注意してください。
９、一晩寝たらできあがりです。
anond:20070702163758へ。おかあさんより。
おおっぴらに女装とか絶対出来ないけど、かわいい服を着てみたいという衝動に駆られることがあって
落とし所として、かわいいパジャマを買ってみたりするのですが、
そういう物が売っているのって、いわゆる「雑貨屋さん」とか「ファンシーショップ」とか呼ばれてる店で
まあ、そういう所で男一人で入って物を選んでレジへ持っていくというのは、なかなか心拍数が高くなる行為で
免罪符的（それが誰に対して何のためになのかは聞かないでくれ）に「ラッピングしてください」とか言ってみたりしがちです。
でも、女性にパジャマをプレゼントってどういうシチュエーションなんだ、あれか、結核で療養している深窓の令嬢が相手か。
あと、家で奇麗にラッピングしてある包みを解くというのはそれなりにへこみます。こんな丁寧につつんでくれたのにごめんなさい。
人物：主人公（女）、父、血の繋がっていない母と弟、髪の短い女、髪の長い女、男
父親に長い間強姦され続けてきた。
中学生くらい？で後妻と連れ子（弟）が家に来る。
その後も父の強姦は続く。
父親は、後妻に隠れて女を家に連れ込む。
後妻は、娘に対する強姦も不倫も気付かぬフリをしている。
現在：高校三年生の主人公。家に帰って自分の部屋（ロフト）でぼーっとしているところで弟帰宅。友達をつれてきたみたいで騒がしい。弟が下の部屋におりてきて欲しいと主人公に言いにくる。用事は分かっているので、生返事をしていると弟の友達が来る。弟の友達、主人公に告白。主人公、傍らのバットを持ち弟の友達を指しつつ、自分のどこかいいのか言ってみろと詰め寄る。弟の友達は、可愛いとかもごもご。他は？ 他は？ と詰問していく主人公。弟の友達は何も言わずに部屋を出て行く。弟は姉がそういう性質だと分かっていたので、しつこく言われて連れてきただけだから、気にしなくていいよと言って友達を追いかけてゆく。
父帰宅。知らない女を連れ立っている。父から暴力をふるわれる主人公。買い物帰りの後妻、帰宅。惨状に悲鳴をあげる。怯む父親。二階に逃げる主人公。しばらくして、後妻が主人公を見つける。この家から逃げなさい、という後妻。初めて母親らしい愛情を受けて、嬉しくて涙が出そうになる主人公。まだ父親が階下にいるから、と靴を渡してもらい、雨どいをつたって降りる。そこで、電話を掛ける母親の声を聞く。相手は警察。主人公の容姿を告げ、家出人として捜索してほしいと言っている。その声に含まれる主人公に対する憎悪。主人公は、自分が強姦されていることも父の不倫も全て後妻は知っていたのだと知る。家のなかがうまくいかないのは、すべてお前（主人公）のせいだ。死んでしまえばいい。電話を切ったあとにつぶやく後妻の言葉に、目の前が真っ暗になる主人公。
家には戻れない。住む場所もない。でも死にたくない。小遣いのため援助交際をしたことはあるが、それで生活は出来るのだろうか。友達もおらず、どうやって生きていけばいいのか途方に暮れる主人公。
マクドナルドで不思議な感じのする男女三人組を見かける。隣の席に座ってハンバーガーを食べていると、髪の短い女が主人公に声を掛けてくる。こんな時間でひとりでどうしたの？ 帰る家が無くて。髪の長い女の方が短い女に言う。ちょうどよかったじゃない。短い女はしばらく黙ったあと、そうねと呟き、主人公に自分の家に来るかと聞く。お金もないから、宿代も払えないと言うと長い方の女が大丈夫大丈夫、気に入ってさえもらえばと言う。どちらの話も興味なさそうに横を向いている男の顔が、とても好みで、主人公はじっと見ていた。
髪の短い女の部屋。どうやら一人暮らしのようだった。着くなり目の前のテーブルに錠剤を五つくらい並べ、好きなものを選べと言う女。何の薬ですか？ と言っても答えない。どれかひとつを飲んでくれたら、好きなだけこの部屋にいていいよ、と言うだけ。主人公は片っ端から錠剤を飲み込む。途端に幻覚・幻聴、気分が悪くなる。朦朧とする意識の向こうで、お前は今毒を飲んだ。解毒剤を一定期間で飲まないと死ぬ。だから、ずっと私のそばにいなければならないと言う女の声が聞こえた。
目を覚ますと女に体を洗われていた。まだ体がいうことをきかないのでなされるがままの主人公。ベットの上でパジャマを着させられる。気を失っている間に女性器を見せてもらったと女が言う。あんた妊娠しているね。答えはただひとつ。父親の子供。発狂する主人公。そのまま、その女の家を出る。
増田では、その日にブラウザでお手軽かつ受動的に手に入れた情報をできるだけ話題にしたくない。
資料や出来事そのものを1次ソース。マスメディアのニュースや、独自取材に基づいて書かれた記事を2次ソース。それらをクリッピングする孫ニュースとか、はてブエントリーを3次ソース。さらにそれらに食いついて不毛な論評を加えるぐるぐる泡沫ブログを消費者と考えると、増田親衛隊はそんな道ばたに落ちている味の薄くなったガムを口に入れるようなことはしたくないよね。
もっとなんかこう、それぞれの得意料理を持ち寄ってパジャマパーティー的な、そろそろ寒くなってきたから鍋でもやるか的な、外の無間地獄ではまた少ない食料をめぐって争いが起きてるよみたいな。そこまでアットホームな雰囲気は鬱陶しいというのなら、立ち飲み的なぬるゆる感でもいいよ酒場。
「あの時のあれはあれだったねぇー」みたいな温故知新も悪くないと、メタおじいちゃんは思うよ。