2007年09月07日の日記

2007-09-07

■刺激

罪を起こした瞬間って、その本人にとっては刺激のある瞬間だよね？

刺激。。

知り合いをちょっとだけだまして少し得した時に感じる刺激

好きな子とイチャイチャしてる時の刺激

何か食べてうまいと感じる刺激

エロいことしてる時の刺激

商売して金を手にした時の刺激

自分には全部同じ刺激のようにすら感じる

今までどんな心の病気にも掛かったことはないんだけれど。

どれも有罪のように感じてくる。刺激が怖い。

さて、腹が減った。飯を食う刺激に触れなきゃいけないのだ

Permalink | 記事への反応(0) | 18:15

■

性器は好きだけどセックスは好きじゃない

Permalink | 記事への反応(2) | 17:52

■http://anond.hatelabo.jp/20070907170005

「皆様、毎度ご来店ありがとうございます。

本日、店内のある売り場にて某時刻よりタイムセールを実施します。

お料理に便利な黒くてしょっぱい調味料が3割引、白くて丸くて割れやすいあの食材が2割引、白くて甘い調味料が1割引、

芯に巻いてある紙が2割引、お子様のお弁当に最適な、凍ってていろんな種類の袋入り食材が3割引と、大変お安くなっております。

なお詳細をご希望の方は、レジカウンター横の特設コーナーにて守秘義務契約書にサインいただきますと、さらに消費税分をサービスとさせていただきます。」

Permalink | 記事への反応(1) | 17:39

■

私は何かを書こうとして忘れた。

（犬山猿彦）

Permalink | 記事への反応(0) | 17:37

■ようこそ、℃-ute な Lisp の世界へ

発祥: http://ex23.2ch.net/test/read.cgi/morningcoffee/1188654905/

はじめに

Scheme という Lisp 語族の言語を用いて ℃-ute の相関関係をプログラムし、様々な角度から関係性を分析する手法を紹介していきます（ソースコードは最後に張ります）。

まずは、メンバー間の関係を「リスト」というデータ型で表現します。例えば「栞菜->愛理」という関係は

(kanna . airi)

という形で表すことができます。これに、「大好き」という情報を付加し、ついでにその関係の性質を数値化したものを加えると

((kanna . airi) (desc "大好き") (score . 1))

のようになり、関係図における一つの矢印の情報をデータ化できたことになります（暫定的に、好意は 1、良好・中立は 0、険悪は -1 の３段階で表すことにします）。

メンバー間の全ての関係性をこのデータ単位で定義し、データベース化しておくことで、色んな条件に基づいた検索やスコア計算などが可能となります。

例 1: リンク状況の調査

ここで相関関係図における矢印を「リンク」と呼ぶことにして、あるメンバーから他のメンバーへどのようにリンクし、またリンクされているかを調べることができます。

全関係の中からリンクの起点を抽出してソートしてみると

(sort-nodes (number-list (from-links)))

結果:

((kanna . 6) (saki . 5) (maimi . 4) (erika . 3) (mai . 3) (chisato . 3) (airi . 2))

栞菜ちゃんがメンバー全員にリンクを張っていることが分かり、℃-ute ラブっぷりが伺えます。なっきーにも同様の事が言えます。例の「女の子が好き」発言を数値的に裏付ける結果と言えるかもしれません。

ただ、データ不足でリンク件数がまだ少ないのと、リンクの性質（好意／反感など）までは分からない点を考慮する必要があるでしょう。

例 2: 被リンク状況の調査

同様に、リンクの終点の件数を調べてみます。

(sort-nodes (number-list (to-links)))

((chisato . 5) (erika . 5) (kanna . 4) (maimi . 4) (airi . 4) (mai . 3) (saki . 1))

えりかちゃんと千聖ちゃんが高ポイントです。メンバーからの人気や注目度の高さを示すデータですが、千聖ちゃんの場合敵対的なリンクが２件含まれている点に注意してください。

なっきーの被リンク数が極端に少ないですが、単純にデータ不足のためだと思われます。はぶら(ryとか言わないようにお願いします。

例 3: 愛情度の評価

リンクに付随するスコアを計算することで、愛情の度合いを測ることができるのではないか、という考えに基づく研究です。

まず、全ての関係性を対象として、スコアがマイナスの関係を抽出してみます。

(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))))

僅か２件です。

良好・中立的な関係は

(length (filter-nodes (lambda (n)
			(= (score-relation n) 0))))

愛に満ちた関係は

(length (filter-nodes (lambda (n)
			(> (score-relation n) 0))))

非常に多いです。舞美ちゃんの「℃-ute同士でラブラブなんですよ」発言（例のラジオ）を数値的に裏付ける結果と言えるんじゃないでしょうか。

次に、メンバーごとのスコアを算出してみます。Lisp 的には以下のようにフィルタリングと畳み込み (fold) で計算することができます。例えば

(foldr (lambda (n acc)
	 (+ (get-score n) acc))
       0
       (filter-nodes (cut to? <> 'kanna)))

で栞菜ちゃんに対するリンクのスコアが得られます。結果:

上式を一般化して一挙にメンバー全員に適用してみると

(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))

まいまいとえりかちゃんが特に堅い・一途だという傾向を読み取ることができます。

例 4: 相性の調査

今度は組み合わせ（カップリング）の評価です。

２点間相互のリンク・スコアを加算したものを「相性」と考えられるものとします。最大値 (互いに好意を寄せている場合の数値) は現在のスコアリング方式では 2 です。例えば

(score-between 'kanna 'airi)

の値は

となります。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))

となります。若干ピンとこない部分もあるかも知れませんが、計算上は矛盾無くデータの内容を表しています。

参考までに、スコア 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 ファイル上でも近接して出力されるようにすると良いでしょう。関連の強いものが画像の上でも近くに表示されるようになります。

また上述（特に例３）のスコアの概念を応用し、スコアの低いものが後に出力されるようにすることで、重力感覚に一致するような関係図を得ることができるでしょう。

Permalink | 記事への反応(0) | 17:26

■『葡萄』

http://anond.hatelabo.jp/20070907163458

午後四時を回った休憩室には私しか居なかった。皆、工事に出ているのであるから当然の話である。

今日の担当分はずいぶんと早く終わった。実は十件と思われた工事がメゾネット式の社宅のものだったのでまとめて片付いたのだ。予定より一時間は早い。

西日の差す無人の休憩室は焼け切った畳の10畳間で窓際に折りたたみのちゃぶ台が二つ、冷房も効いておらずやたらと暑かった。クーラーのスイッチを入れ、壁の扇風機を「強」にして開いた襟から風を吹き込むと一体と貼り付いていた衣服が汗にひんやりとして肌と分かれる。

いつもの様に湿ったツナギをその場で脱ぎすて、窓の下の座布団の山から一枚取り、さっき持ってきた魔法瓶から冷えた麦茶を入れて座ろうとしたとき、ちゃぶ台の上の籠に目が行った。事務の娘の土産らしい。大きな赤い粒の葡萄が三房ほどあって「皆さんでどうぞ」と付箋がある。

房を一つ摘まんで持ち上げると下側のすわりの悪い粒がいくつかコロコロと落ちてしまった。ああしまったと目で追うと脱ぎ捨てたツナギの胸の辺りまで二つ。

ツナギは縒れて腰を捻り手が胸を隠すような様子にも見え、そこにちょうど乳首のように収まった葡萄の粒が奇妙に卑猥に思えた。何の根拠もなく、ツナギと葡萄が織り成す裸体らしきものに葡萄をもたらした事務の女の子のそれを重ねて想ったのである。

私は仁王立ちのまま、湯飲みの麦茶を一口すすり、ツナギの裸体を眺め続けた。少し腰の括れが足りないか、と足の先で少しツナギの布を押しやり腰のくびれ具合を調整したりしながら。

ふと人の気配を感じて顔を上げると入り口のガラス引き戸の向こう、そこにその事務の女の子が驚いた表情で固まっていた。そして気づくと同時に彼女は顔を伏せて奥に逃げ帰った。

バツの悪さと突然のことに戸惑いながらも我に返ると、どうやら私は下着姿のまま勃起していたらしかった。

Permalink | 記事への反応(0) | 17:23

■今日の増田は

エロくて秘密主義

Permalink | 記事への反応(0) | 17:19

■http://anond.hatelabo.jp/20070907170005

主婦Ａ「ちょっと??、聞いた？ＸＸさんのトコの旦那さん。また浮気したんですって」

主婦Ｂ「あら、また？男ってホントいやよねー・・・ウチの人は大丈夫かしら」

主婦Ａ「守秘義務です」

Permalink | 記事への反応(0) | 17:13

■http://anond.hatelabo.jp/20070907153243

お題

主婦の守秘義務
買い物客の守秘義務

Permalink | 記事への反応(2) | 17:00

■渋谷のようなところっていいますと・・・

http://anond.hatelabo.jp/20070907153012

バーチャル・ラブホが沢山あるところ？

Permalink | 記事への反応(0) | 16:53

■http://anond.hatelabo.jp/20070907164137

あなたは生き別れのお兄さん！！！

エロい配管工のブラザーズとして一緒にきのこ狩りに行きましょう！！

きのこ…ハァハァ…きのこと栗は秋の味覚…ハァハァ…エロい……(´Д｀；)

Permalink | 記事への反応(0) | 16:46

■http://anond.hatelabo.jp/20070907163458

ぷっくりとしたその丸み。

確かな張りとつややかな表面。

朝露にぬれたように表面は少し湿っている。

あぁ、これを舌で転がしたらどんなに甘いことだろう。

あぁ、いますぐもぎ取ってしまいたい。

あぁ！僕はこの衝動をとめることができない。

こうですか＞＜

http://anond.hatelabo.jp/20070907164125

おぉ、兄弟！

こうですか＞＜までダブった。

Permalink | 記事への反応(1) | 16:41

■http://anond.hatelabo.jp/20070907163458

新造は、明恵のぶどうのような乳首をそっと口に含んだ。
「ああっ・・・」
明恵の甲高いよがり声が新造の情欲を掻き立てる。
新造は下腹部に手を伸ばし、ぶどうの茂みのような

こうですか！わかりません＞＜

Permalink | 記事への反応(1) | 16:41

■http://anond.hatelabo.jp/20070907163250

文学に昇華させる（笑

Permalink | 記事への反応(3) | 16:34

■http://anond.hatelabo.jp/20070907155310

社会的に大物ってなんだろう。
政治家？　資産家？　芸能人？

政治家には大物と小物がいる。

資産家は資産を一定以上持っている人のことをいうので世間からみれば総じて大物だ。

芸能人には大物と小物がいる。

社会的に大物というからには、社会的な地位がそれなりにある人物とお見受けする。

（元増田の年齢にもよるが）年下で・・・となるとかなり限られるような気がする。

だとすると、資格とかで見て大物いっているだけではないだろうか。

医師とか弁護士とか？

Permalink | 記事への反応(0) | 16:34

■エロ

最近、ぶどうの粒すらエロく見えるという

中二男子のような思考レベルに落ちてしまっていて困ってます。

誰か助けて！

Permalink | 記事への反応(1) | 16:32

■ひみつ組織 NDA

Mr.X「お目覚めかね、ヒーローくん。」

HERO「ん、ここはどこだ？」

Mr.X「うん、申し訳ないがそれは言えない。」

HERO「なんだと？いったい何のために俺をここに連れてきた！」

Mr.X「うーん、それも言えない。」

HERO「くそ！忌々しいやつめ、俺をこの部屋から出せ。」

Mr.X「じゃあテラスに出よう。コーヒーを持ってこさせる。」

HERO「…何を企んでいるんだ。」

Mr.X「そうだな、一般的な話なんだが、最近グローバル化でね」

HERO「…何の話だ。」

Mr.X「だから世間話だよ、グローバル化で業務進捗の手法も標準化が進んでるんだ。」

HERO「はあ？」

Mr.X「君のところはいいよ、個人事業だから。どちらかというと手厚く保護される立場だ。」

HERO「はあ。」

Mr.X「だから一定規模以上の事業所は一定のルールの元に仕事をしないといけない。」

HERO「…。」

Mr.X「で、善悪や事業を問わず取引先と秘密保持契約ってのを結ぶんだ。あ、コーヒー飲んで。」

HERO「あ、いただきます。」

Mr.X「ところが法務部は頭が固いから必要以上に条件を盛り込む。」

HERO「へー。」

Mr.X「まあお互い様だから、結局ガチガチの秘密保持契約になる。念の為にこれ一般論ね。」

HERO「そうなんですか。」

Mr.X「そんなわけでこれからは何をするとか野望とか宣言できそうにないんだよ。」

HERO「ふーん、ってエエエエ！？」

Mr.X「ウチからは何のリリースも出せないからそちらで調べていただいて。」

HERO「調べるって無理っすよ、何から調べるの？」

Mr.X「だからそういうの言っちゃ駄目なんだよ。他にも出資者利益の保護とかあるしさ。」

HERO「じゃあ俺もう要らないって最終通告？」

Mr.X「そこまで言ってないでしょ。そこは企業努力でね。」

HERO「これが格差社会？資本の大きいものばかり優遇されて。」

Mr.X「ふう、あのね、手続きや制限が増えたのはウチでしょ？君が今まで楽しすぎだったんだよ。」

HERO「ウウウ、訴えてやる！覚えてろ！」

http://anond.hatelabo.jp/20070907153444

Permalink | 記事への反応(0) | 16:26

■http://anond.hatelabo.jp/20070907161340

ビジネスプランコンテストとかいうやつー。
いままで４回ぐらい挑戦したことがあるけどいちども一次すら突破できてないのだ。
企画書のテキストだけなので今回は２日で仕上げました。
事業計画の資金計算の欄を空欄で提出したぜ。
・・・。だめっぽ。
というか、審査員に知っている人が何人かいて、恥ずかしい。
でも、こういう恥を乗り越えて強くなっていくんだぜ。
・・・Rubyは環境をつくって文法覚えるところで１５日ぐらいになってそうだ。
正味５日ぐらいで組み上げられる何かにしようとおもってる。