「e-ma」を含む日記 RSS

はてなキーワード: e-maとは

2019-01-31

また女湯が話題になったので問題点を整理する

http://b.hatena.ne.jp/entry/s/togetter.com/li/1313124

anond:20190113115453

この話の続きだよ多分

ブクマが盛り上がってるけど、返信がしづらい100文字ばかりのインターフェースで何が語れるってのか

増田論点を整理しようと思う。

長くなったので結論を先に書くと

 

 

って感じ。それぞれ細かくやってみるか

====

1. そもそもそれは性欲なのか

 

そもそも3歳児に性欲があるかどうかって点が論点になってるのが見受けられる

KAN3 自分幼稚園児の頃から十分性欲あったのでこの主張はもっともなものだと思う。好奇心で見ているだけに違いないと言っちゃう人は想像力がない。

maidcure 成人してやっと性に目覚めた人もいるんですよ

kathew 幼児期に性欲が微塵もなかったので正直に言ってよくわからない。トップブコメに大量に星が付いてるけど、みんなそんなに幼児期の頃から性欲があったの?それとも自分にはなかったけど想像力共感してるだけ?

nise-marina 幼稚園児でも女の子を好きになったりするんだから性欲はあるわな。

こういうのは個人差なのかもしれない。で、個人差があるのであればなおのこと、

よく知らない他人内面踏み込むのはやめたほうがいいだろう。たとえそれが3歳児でも。

性欲でじろじろ見る子もいる、好奇心で見る子もいる、安らぎを求めておっぱい触る子もいる。

 

ちなみに成人女性身体性への憧憬を性欲と表現するなら、

男児じゃなくて女児にもその傾向はあるという証言は興味深い

RIP-1202 男児だけでなく女児だった私も割とエロい感覚でお母さん以外の女性おっぱいや乳輪の形をじっくり見て回ってたが。/あと、父親同伴でもお風呂母親と入る習慣の男児は女湯に入るケースもあると思う。

atsnail 女体をエロい目で見る女児だったんだけど、どこへ行けばよかったのだろう。

 

こういう女児から向けられた性欲はどのように受け止められるのだろう?

やはり不快なのだろうか、男児とは異なると処理するんだろうか

内面はどう思っててもガン見など外面が問題なければよしとするのだろうか

 

若干話題は発散するけど、普段性欲と加害欲を分けろと口酸っぱく言う勢力

今回の子

a) 尻を叩いて回る3歳児

b) 着替え中ガン見している未就学児

を、それぞれ何欲の発露だと見るのか気になる

特にb)については未就学児に「この行為相手心理はどのように影響を被るか」

に考えが及ぶと思わないので加害欲とは思えない

その場合成人と異なる扱いにすべきか。

 

2. 性欲の発露があったとして、それをどう扱うか

 

男児(にかかわらず女児)の行動が仮に性欲による行動だとして、それが直ちに行為者の排除を伴うほどの被害なのかという点は今一度考え直したほうがいいと思う。

下記のようなコメントがその点に触れている

please-open-your-heart 男の子供の目をどう捉えるか・・・って事ですよね

umaumakamiya 男児には性欲あるし、でも子供に見られたからと言ってそれがどうしたと思う。他人から見られるのが嫌なら銭湯行くべきじゃないと思うよ。とは言え触る等の他の人に迷惑行為は親が注意せんとだよなぁ。

osaka06 難しいわ。もう5歳くらいで男はみんなすけべやけど、それがあかんのか? というのが。幼児に見られるのが嫌というのが実は男はわからんのよ。わかってあげたいけど難しいなぁ

kasugano 3歳児でしょ?力でかなわない存在から根源的恐怖が?って設定どこいったの

Sato_4tree うーん、小さい子にも性欲はあると思うけど、それで見られて嫌とはならないなあ。エロいと思って見ちゃうちびっこ微笑ましいじゃん。

性欲を勝手に向けられるのは確かに迷惑だ。しかし、それで行為を伴わず属性理由排除ができる(まだ痴漢してない男も風呂トイレから締め出せる)のは

相手社会立場が強く名誉毀損するための特例だっていうのはトラバ元でも議論したとおり

※肉体的強さは関係ない。トラバ元でも要介護の爺さんの例を出したけど

最低、下のコメントにもあるとおり、こどもに騒がれて迷惑を被ったのと同程度の扱いにとどめたい

kabutch ここまでくると自意識過剰しか。/自分の赤子が電車内で大声で泣くのは許せ、でも女湯で男児が見るのは止めろ、か…。

 

ただ、不愉快だという気持ち自体を表明するのは問題ないと思う(これ自体否定するなら、俺も他人内面に口出ししてることになるし)

 

p-2yan 今まで気にしてなかったが、それは興味を持って見られていると考えた事がなかったからだ。所詮小さい子だし、って思っていた。年齢性別に限らず、裸体を性欲を持って見られるのは嫌だなぁ

Kitajgorodskij 和泉さんの気持ちは分かる。どうしたら良いんだろうね。

khawai たしかに男でもジロジロ見られんの嫌だな。視線は感じるもの

 

しかし、わかってほしいのは不快感そのもの問題にしているのではないことだ

特に下記にあるように「ババアから見られても問題ない」と言ってるわけではない

 

kazukan ババアが見られてってコメントひでぇな。

 

「見られた不快感を排除以外の方法対処できないのか」と言っている

特に相手自分より弱い、子供なんだから

 

3. 男児の行動・外面の問題

 

性欲がある・ないに注目していない、とにかく躾やモラル問題としている人が結構見られた

 

skgctom トランスジェンダー女湯問題でも言える事だが、他人の裸体をジロジロ見たり無許可で触ったりするのは無礼禁止事項だと子供のうちから(大人も勿論)ミッチリ躾けるべき。躾けられてない子供女児でも迷惑

 

この視点は正しい。正しいが、親に負担押し付ける結果になっていないか、注意が必要だ。

ファミレスで騒ぐ子供電車で泣く子供、こういうのに冷たい目を向ける人間と同じことになってないか

下記コメント群もそういう視点で考えられている。

 

hobo_king で、落とし所はって話になると「躾で~」とか言うけど、子供故に困難だろうから、結局「子連れのお前ら来るな」になる。こうして啓蒙する度に子連れ批判視線も増える。全力で子育てを苦行にするスタイル

taketori 男湯でもガキンチョに股間をガン見されたら落ち着かない。共感はできる。でも共感以上のことはない。性ではなくマナー問題しかない。ファミレス子供がうるさいのは許容しつつも親に躾は求めたいのと同じ

yuno001 自分不快になった事の対処を人にお願いするという構図がまずいんじゃないかな。ルールにも反してないわけだし

ringlaw 母親が一人で風呂に入っている間、男児を面倒みてくれるシステムを作らないと解決しない

 

特に3歳児なんてやっと喋ったばかりで複雑なセンテンスも理解できないので

叱ると言ってもどこまで効果があるのか、それこそ子供次第なので

厄介な子供を抱えた親は今まで以上に追い詰められる。

下記コメント群もそこまで考えてくれていたらいいんだが

 

makou まずもって、然るべき人がきちんと叱るべき。

bigapple11 勃起してる男児がいるという話も聞くので真面目に考えるべき話だと思う。最低限、親は子供から目を離さずちゃんと注意すること。ここで叱ることこそが性教育。/就学児以上NG時間帯を分けるなど出来ることはある

marimonbunny まあ気持ちはわかるけど、完全に分けるのは難しいかなーと思う。まあ凝視は若干グレー(そういう障害がある子かもしれん)だけど、ケツタッチ幼児は親叱れよw

flowing_chocolate マナー教育が不足している子供を、大人はどう受け入れるべきか、という話。性欲の有無はおそらく関係ないし、性欲の対象が目の前にいるかどうかもおそらく関係ない。

 

社会で面倒を見よう」という時、反射的に「自分以外がコストを消費しろ

と言っていないかという点も注目したい。このやり取りが象徴的だ

 

irose ↓じゃあ男やもめのツレ後の女児は女湯の大人が共同で面倒を見るかっつーと、全くそんなイメージがわかん。

Flymetothemoon シングルマザー男児は男湯に入っている大人が共同で面倒を見ることが「社会子供を育てる」ことだと思うけど。

 

4. 妥協点を探る

 

家族風呂を大々的に整えるなど大掛かりなことをせず、どうにかならないかというコメントもあった

 

worldproxy うーん、湯浴み着というのが広く普及されたら解決するのかな。 自分は、公共の場他人との自由不自由折半だと思ってる。この人は、表現は柔らかいけど、自分自由だけを拡張するように求めていると思う。

 

乳がんなどの手術痕を見せたくない人、タトゥーが入ってても入湯したい人なんかに

対応できるし、裸を見せたくない人は湯浴み着っていう選択肢も、今後普及していいんじゃないだろうか

 

追記

いっぱい反応あったんで返答してみた

みんなありがとなー

https://anond.hatelabo.jp/20190201205423

2018-11-30

私は、6年働いたNTT退職した。

私は、2012年にマスタ卒業生の新しい卒業生によってNTT研究センターに入り、それは6年の間世話の下にあった。

それは、研究センターで同じ年、より優れ、ジュニア、およびボスに恵まれて、私は本と主題を読み、勉強されて、パワーが完全に節約されて、外での祝福で、また場所で外部の発表によって組み立てない経験をすることが可能であった。

どうもありがとう

あなたが、会社の中のNTTで私がしていたことについて言うことができる何かがすべて出力される。従って、私はここで意図的に触れない。

NTT研究センターについて。

NTTセンター客観的研究するのを見る時には、それが、それがどうであるであるかが説明されている。

とにかく、それは人に恵まれている。彼は採用の拡大のために、高価なものも持ち、グーズベリーエリート神秘的なパワーによって可能性を確かめて、豊富学生入力から雇用される。すばらしい男が同じ年を見て、あなたが、見て、理解する必要はない時に表情のためここにある時および私が話す 私は 納得できる能力を持っている。ボスは観察エリアの失敗のほとんどどの話も聞かず、私だけが言った時には、それはいつもよいボスに恵まれていた。おお、私が見回った時には、私は永久に他を中傷し続けて、また毒を散乱させる声の大きい人があった…。

研究予算機器豊富であること(国 相対的 で)少量、会社、私が危険を冒す時に、驚いた市場価格である製品の中、研究のために雷が鳴り、私は倒れて、あなたは、それらに、他のものが外に行くことができない研究をさせることができる。, また、外でソフトウェア開発パワーに注文をし、個人によりされえないパワーを示すことが、操作上の契約によって可能である の、持っている that 必要 時。

それは研究のために普通である 考え方のその2語の言葉 また、「そして、どのようにするかがそれによってするか 利益お金 ?」によってonにおいて目が密接に疑われる 。それが柔軟で、一般に私が企業研究を言う時 NTT研究センター場合のもの 「私は、どのように得るかを考えていないけれども、それは、これを持つこのフィールドの中で最も速く世界であるかもしれない。」 。「一番上の学究的なミーティングは通過する。」 壊れ、金格言が、すべて (それはまた、部門依存する。)直ちに気にする 自由から 勉強できて 重労働重要性を理解している感謝している組織 ことなしでのあなたが、フラッシュするための何かを求めることができる時 。もしたとえ「私達は未来を5年遅くしている。」と言い続けているセクションがありさえしてもあなたが望むならば。1年、未来4年遅れ「作られている」、それが変わらないことが美しいこととして その間中 毎年 、およびそれ 通った。

例えば、また、もちろん、結果、様々、主題ビジネス製品としてのもの判断が見られる 重要寄与 そのような形(イベントおよび技術的な訴えによってプラットフォームに行く)による活動は、また、寄与と思われる。

私は、いつも、最初はいつも私がめざす結果を見るだけではなく、研究は、その注意も、そのプロセスによって外に出て、考慮する副産物に変える暖かな組織である

合法意識が少し高くそんなにであることとスタッフがきついと感じていること、およびもの by which even 夜遅く FURETTSUの開発のまわりの残業zanmaiのための保持される労働 次に軽い すでにおとぎ話世界について話すために来る でさえ。今すぐすぐ私がそのような話に出会うケースを全然持ちさえしない。完全な状況が全然ない時には、深夜勤はまた起こらず、たとえそれが起こっても、遅い夜勤手当は堅く支払われる。数倍、もしあなたが、時々労働組合をうろつくことを好んでいて 中の驚きによる職場 22時 ならば、夜遅くツトムを静かにしている人がないかどうかにかかわらず確認し、私に参加しすぎるけれども、私は偶然そのような場所で一度も出席しない。もしまた、もちろん、物が可能ではなく 錆バランス 、, 後で支払いがグルーピー から により検出されて、支払われる でするならば that 。もしそれらが最近はであったならば、私達は、また、週末および仕事メール答え)においてそれが会社システム接続されることが、「休日仕事」とみなされているべきである仮定し 少し実行された 、それは過去の年間の数のレコード比較された、そして、それは会社の中で大幅に再考されて、私はトラブル似の意味によって重大な経験を持っていたけれども、これは、合法意識が作り上げられうる仕事でもある。

研究員のほとんどは柔軟な作動時間システムであり、私が、結果、私がオフィスに来る時間を見さえする時について尋ねない、たとえそして、残業説示がまたすたれなくあり続けていても、そして、1番目の平均的な勤務時間が大きい7.5時間より低く、最もよいものは、それが問題ではないことである。私も持ち、それらは朝に弱く、基本的に、1人の人がプロジェクトであり、毎月の残業は、出席夕食時計外の近くで正午にマイナスの40時間についてであった、しかし、その原因を全然作らなかった給料カット全然持たない。

店頭売りの本と主題は、また、基本的に、研究環境として読み、それは、静かに読むために、場所によって並みはずれて、また祝福する(入手可能な部屋)。コンピュータが、予算においてあなたが望むのと同じくらい多く強い何かも供給できて、私が住んでいた コアi7 8700+64GBメモリー+2 GTX 1080+30インチディスプレイ としてLinuxを贅沢な環境に含めている。

お金についての承認と不賛成があるけれども、悪くない支払いは支払われる。きちんと働く時に、日本大学院大学卒業した同じ世代の平均的な給料が超過であること、および賃貸あなたにおける生活により補助金も借りられたかもしれない時。課長クラスに昇る時には、年間収入10,000,000超過はZARAにおいて出る。従って、貧しい教授よりそれが理学部の上昇ルートとして祝福したといわれていることができる。仕事はもちろん容易ではないようである

NTTと呼ばれるパブリシティ価値は、また強く、私は自己紹介についてトラブルに遭っていない。なぜなら、国だけでなく外国の国でさえ、まわりで、ビジネス関係する日本および深い国におおよそ通じているかである。それが親世代から見た時には、「私の子孫はNTTのために働く。」と言うことが、数度まで強力で、それは、また、それがそう歓迎したこと議論するために、彼らがtheに何かであらせると伝えていた、私は、もちろん議論するための何かを持っている。)

NTT研究センターで、義務を、そのような感覚によって、打ち明け話を持つ同じフィールド必要自身ほとんどと人に提案することが可能である、そして、私は、私が、大きく勉強し、名前アカデミックに吠えさせたい人の代わりをしたい就職先を推奨する。それは奇妙に高い拡大を持ち、それは研究プレゼンテーションによってインタビューである。従って、化学によって落ちる物もあるかもしれない、しかし、私は、新しい卒業生がすべての人々であると思う 試験を受けている記念であり、あなたに入ってほしい 。入力座席手書きはまた不要である。従って、私はアレルギー手書きに救われる。

私がNTTを辞任したという2つの理由

いつ なぜするか あなた 言う 私 そのような祝福された環境からそれを辞任する ?

1.支払いの成長率は厳しい。

時間平均が、7番目の年の間入口で6,530,000円の私の年間収入会社員の支払いとして最初に書かれたこととしての数値として注意を引き付けることができるよりうまく、上に暖めることの多くをけなすために(すべてを含むボーナス使用料補助金)。それは、それがよく、私が、ライフのためにそれがここから熱心に上がるかどうかを一方では言う時に私が管理プロモーションとして小さいゲートを通り抜けない限り8,000,000円であるかどうかにかかわらず、私がラインについてぐらつき続けていることである

そして、決して、すべてのものが、人を等しく管理する仕事もの by which にすることができた後に、私は考えることができないたとえ傍観者観点でそれが見られていても、マネジャー仕事自身のための楽しみのように思われなかった。

会社トレーニングしているライフ計画にそのような年間収入予想価値に出席する時に金融計画であるような講演者からNTTの状況を考慮する間、もし「もしそれが30,000,000円を越えるプロパティであるならばあなたアパートを買い ライフ 、まったく厳しくなるならば、従って、私は、that."の下の見積りをするために勧めて、私はアドバイスを静かに受け取った。数度 ても 自身 それほど高価ではない than that もちろん 家に住んでいる に満足ゆくように生きていることができることに、, それがすることができなかった で合意した後に小さい家を建てるライフにおいて夢を見なさい。長距離の整流をする ファミリーによってそこに生きている東京限界 。もちろん、すでに、そのような選択をした数千人の人々が、大都市圏にもいて、それらを全然けなさな意図全然ないけれども、またライフにより良い条件によって住んでいる多くの人々がいる。

ライフ計画1を達成するために、現在収入固執して以来、考慮する 悔いだけの老齢と会うためになる危険自覚は保持されている。

TOまたはもしそれについて話しているならば、ニュースは適時に、すぐに外に出て、NTT研究センターが取り扱い改良に努力をするように思われる。

私は見て、NTT側は苦く、彼らは、才能で、GAFAにより侵害されているNTTであると思うようであるGoogleアップルFacebookアマゾン)。

サワダ大統領は、研究において人的資源の足止め計画としてそれを特別ものとして認めさせていたプロフェッショナル人的資源に高価な報酬を与えるために、会計年度19に賃金制度の程度が改良されると断言した。215,060円大学卒業はマスタのコース仕上げであり、上述の会社研究開発仕事初任給は、237,870円である

これはもちろん歓迎されるけれども、この調子では 根本的な解決策に来ないthat which 下問題である

2.内部の社会絶望しなさい

リストの1番目に近づく絶望が、セキュリティ環境であり、NTTが、日本ICTテクノロジーが前提として導かれる観点であるので、たとえ私が誤りをし、犯しても、私が、セキュリティ紛争を引き起こす理由に行かないという決定がある。私が特にオリンピックについて言う時に、私が金パートナーでもある および。

大規模なセキュリティ出来事が起こった時には、損害額の見積りは無形の損害を物質的に測定し、知られず、数千億のユニットが登られるかどうかも知らない。また、もちろんの実行されたセキュリティ方針A be何か厳密なガード そのスケールの損害を避ける 、および思われない計画が果たし 理由においてとりわけ次々に与える 、それは、会社の中で、 管理ゾーン(の「全体の研究オリンピックセキュリティ方針理由のためのRAREに停止するかもしれない」 Ote-machiを呼んだ。に従っておよびたとえ実際、それがそうであっても、どうぞ私 驚かない でささやいてください。

研究員は、しばしば、NTT研究センター研究員が販売会社とひどくそれぞれ使うコンピュータも調整し、供給し、研究員は、設立されて、助けなしで例外なしの手によって供給したコンピュータセキュリティセットアップシリーズをする必要がある、そして、私は決めて、リテラシーのためのあるの一日中それには静かにかかる(私は、NTT研究センターの人々の多くが、「 1日に終わらないDARO w」とTSUKKOMIを、これが書かれる時に入れていると思う。)またさらに 人 低い理由でもない研究員によっていつもLinux動作に入ることは見て ように 私および供給マシン会社Windowsまたはシステムとの関係独立して進み VM 、それはMacだけから使われうる、そう、増加にてほしくなりなさい。会社システム更新および労働環境での再考は繰り返されて、それは見て、それは現進歩的form.のため残酷ポジションに完全に変わる

私は、制限が厳しいこれであると思う 別々に、ほとんどすべて 日本大企業が見回る所でどこでも私が自身と似ていたことを議論する何か を持っている 。

そのようなセキュリティ方針自身、する意思、それが釣り合いがとれたこと、状況 that ITリテラシー 十分なけれども である人 下のレベルのこの多く それが本当のパワーを把握し、管理判断をしているより多く への絶望的なもの、私は退職し、それについてとどまり、いくつかの動機であった。

セキュリティ4GBおよびそのような非人道的環境およびここにある証拠に、セクションを押している仕事があっただけでなく、研究センターを除いた位置ソフトウェアを開発するために、メモリー静かがHDDを使った。私がIMADOKIのエンジニアである時にメモリー4GBがブラウザだけにより完全に使い果たされることけれども従って、スワップが食を起こさないこととソフトウェアを送ることとではないこと、および環境起動だけのためそれに贅沢な時間かるという事実メモリーSSDの数万円、排水溝の数百万円のために、彼がMM操作をやめるかどうかにかかわらず、可能性 that 自覚を持つことができない人 がありさえし、方向をけちくさくしている。魅力的ものが、「メモリーが128MBの世界であったので、管理ゾーンアクティブ世代の時のPCは、現在、4GB、およびルートなしで、莫大な容量が、発言発情するのを見るものであるかもしれない。」と言うという事実によって。別の眺めとして、私が見る 私が確信する それは企業似なので、大きいかもしれず、私は来た。

そのような話は、一般に、労使関係の間で最もよさをめざして協議されるべき問題であり、私は労働組合の机を通して適切に不満を言うべきである。そう、日本でさえ、一番上のクラスのため、私がこの効果"を大きい労働組合の机に請願した場所によって無遠慮に拒絶された 私は、ソフトウェアエンジニアだけを非常によく扱う理由に行かなかった。協会が、契約社員 あなた相対的に冷たく扱ったおよび の取り扱い改良を通じて車隊システムによって全体の改良の計画を立てていた 有限な雇用再雇用の人 現在 。もしソフトウェアエンジニア職場改善されたならば、投資と貸付金のための財政資金が少なく、全体は改善できなかった。」もし私が会社利益についてパートナー労働効率依存するというアイデアのすべてが廃棄されるならば通過する理由、およびaのためそれが見たことによってパートナー すべてのメンバー について口論せずに独立イベントとして起こる投資のための財政資金と貸付金を共有する組織の最高の提案、私が見る 私が確信する それは企業似なので、大きいかもしれず、私は来た( 1つの手段方法の2番目の時間)。

さらに、私が様々に言いたいケースがあるけれども、組織理論NTT方法が様々に複雑であることおよび漠然としている愛玩用理論混乱という事実。従って、実際会ういつでさえ私が尋ねたい。

そのような感覚のため、お金、夢、およびプライド(それは個人主体であった。)出発NTT研究センターを失ったkumagi。

Googleでは、今月、変わる宛先が5番目から検索のチームに関与した。それは、次に出力することを予定した。従って、どうぞ注意してください。

2018-10-13

anond:20181013094002

nise-marina 配慮しないと炎上して個人なら職を失って企業ならブランドその他に大ダメージなんだけど、それを無視できる「配慮しないメリット」ってなに?

このブコメ控えめにいって頭おかし

女性配慮しないと職を失うか炎上するぞ」「配慮したら炎上しないぞ。これがメリットだ」ってマジでヤクザ理屈じゃん

一般人社会では「女性配慮しないと職を失うか炎上するぞ」を脅迫というんだよカスフェミ

女性配慮しないと職を失うか炎上する」というデメリットでもある。

2018-07-13

21世紀少年とRe-Make:Re-Model

久しぶりに聞いたらサックスソロが似てるような気がした。

なんか共通点あるのだろうか?

2018-06-01

給料が多くて労働時間が少ない会社嫉妬するブクマカ

👇がトップに来てて笑う

b:id:nise-marina そういう会社いくつか知っているけど、下請けに丸投げして下請けが代わりにブラック労働しているだけだよ。効率よく働いて売上も立っているところなんて存在しているんだろうか。

下に投げて楽してるだけなんて当たり前の話でね

そもそも君たちが日常的に買っている食品や物品は、外国国内ブラック労働者が安価に作ってくれているものなんだよなあ…

理想的フェアトレードをしている商品しか買っていないのなら石を投げてよい

http://b.hatena.ne.jp/entry/s/headlines.yahoo.co.jp/article?a=20180531-00222911-toyo-bus_all

2018-05-26

増田動画スパム?対応ブロックリスト

anond:20180523222112 参照

uBlock Originで試したがAdBlock Plusとその派生アドオンなら使えるのではないだろうか。

anond.hatelabo.jp##div.section:has(a[href*="zendesk.com"])

anond.hatelabo.jp##div.section:has(a[href*="m.vk.com"])

anond.hatelabo.jp##div.section:has(a[href*="/vk.com"])

anond.hatelabo.jp##div.section:has(a[href*="www.benvitec.be"])

anond.hatelabo.jp##div.section:has(a[href*="www.rowan.edu"])

anond.hatelabo.jp##div.section:has(a[href*="www.footbie.com"])

anond.hatelabo.jp##div.section:has(a[href*="www.onroerenderfgoedprijs.be"])

anond.hatelabo.jp##div.section:has(a[href*="www.srk.nl"])

anond.hatelabo.jp##div.section:has(a[href*="casinocopenhagen.dk"])

anond.hatelabo.jp##div.section:has(a[href*="cityclimateplanner.org"])

anond.hatelabo.jp##div.section:has(a[href*="www.merelbeke.be"])

anond.hatelabo.jp##div.section:has(a[href*="www.ravagochemicals.com"])

anond.hatelabo.jp##div.section:has(a[href*="www.linux.com"])

anond.hatelabo.jp##div.section:has(a[href*="www.africa24tv.com"])

anond.hatelabo.jp##div.section:has(a[href*="www.wijkraadkleverpark.nl"])

anond.hatelabo.jp##div.section:has(a[href*="www.elan-ausy.com"])

anond.hatelabo.jp##div.section:has(a[href*="www.securitytrust.it"])

anond.hatelabo.jp##div.section:has(a[href*="www.hematologienederland.nl"])

anond.hatelabo.jp##div.section:has(a[href*="www.inqaahe.org"])

anond.hatelabo.jp##div.section:has(a[href*="www.peacefirst.org"])

anond.hatelabo.jp##div.section:has(a[href*="/ki.se"])

anond.hatelabo.jp##div.section:has(a[href*="www.cnb.avocat.fr"])

anond.hatelabo.jp##div.section:has(a[href*="durbuysel.be"])

anond.hatelabo.jp##div.section:has(a[href*="elpdesk.nanoleaf.me"])

anond.hatelabo.jp##div.section:has(a[href*="akh-h.de"])

anond.hatelabo.jp##div.section:has(a[href*="dgs-interparts.be"])

anond.hatelabo.jp##div.section:has(a[href*="upport.qriscloud.org.au"])

anond.hatelabo.jp##div.section:has(a[href*="usaidlearninglab.org"])

anond.hatelabo.jp##div.section:has(a[href*="visit-nieuwpoort.be"])

anond.hatelabo.jp##div.section:has(a[href*="www.rogueclimate.org"])

anond.hatelabo.jp##div.section:has(a[href*="www.roguecu.org"])

anond.hatelabo.jp##div.section:has(a[href*="/events.org"])

anond.hatelabo.jp##div.section:has(a[href*="www.maisonsdenfrance-massifcentral.fr"])

anond.hatelabo.jp##div.section:has(a[href*="www.marinifc.org"])

anond.hatelabo.jp##div.section:has(a[href*="www.namimendocino.org"])

anond.hatelabo.jp##div.section:has(a[href*="www.nre.dk"])

anond.hatelabo.jp##div.section:has(a[href*="www.objectifsantetravail.fr"])

anond.hatelabo.jp##div.section:has(a[href*="www.ochaopt.org"])

anond.hatelabo.jp##div.section:has(a[href*="www.padovauniversitypress.it"])

anond.hatelabo.jp##div.section:has(a[href*="www.sgr18.be"])

anond.hatelabo.jp##div.section:has(a[href*="www.wtbeerse.be"])

anond.hatelabo.jp##div.section:has(a[href*="www.gasmuseet.dk"])

anond.hatelabo.jp##div.section:has(a[href*="avesargentinas.org.ar"])

anond.hatelabo.jp##div.section:has(a[href*="casinoodense.dk"])

anond.hatelabo.jp##div.section:has(a[href*="club.alanseiden.com"])

anond.hatelabo.jp##div.section:has(a[href*="cursor-prod.s3.eu-central-1.amazonaws.com"])

anond.hatelabo.jp##div.section:has(a[href*="helpcenter.blackvue.com"])

anond.hatelabo.jp##div.section:has(a[href*="help.otoy.com"])

anond.hatelabo.jp##div.section:has(a[href*="help.trinetcloud.com"])

anond.hatelabo.jp##div.section:has(a[href*="en.unesco.org"])

anond.hatelabo.jp##div.section:has(a[href*="festspillnn.no"])

anond.hatelabo.jp##div.section:has(a[href*="globegazette.com"])

anond.hatelabo.jp##div.section:has(a[href*="/rib.com"])

anond.hatelabo.jp##div.section:has(a[href*="rogueclimate.org"])

anond.hatelabo.jp##div.section:has(a[href*="support.dronesmadeeasy.com"])

anond.hatelabo.jp##div.section:has(a[href*="support.hammerhead.io"])

anond.hatelabo.jp##div.section:has(a[href*="support.hike.in"])

anond.hatelabo.jp##div.section:has(a[href*="support.jumpdesktop.com"])

anond.hatelabo.jp##div.section:has(a[href*="www.cohenmilstein.com"])

anond.hatelabo.jp##div.section:has(a[href*="2kmtcentral.com"])

anond.hatelabo.jp##div.section:has(a[href*="www.globalinnovationexchange.org"])

anond.hatelabo.jp##div.section:has(a[href*="www.hasselt.be"])

anond.hatelabo.jp##div.section:has(a[href*="www.konoconsultants.com"])

anond.hatelabo.jp##div.section:has(a[href*="www.ladowntownnews.com"])

anond.hatelabo.jp##div.section:has(a[href*="www.la-rse-pour-tous.org"])

anond.hatelabo.jp##div.section:has(a[href*="over-blog.com"])

anond.hatelabo.jp##div.section:has(a[href*="live-match-direct.hatenadiary.com"])

anond.hatelabo.jp##div.section:has(a[href*="dailypost.vu"])

anond.hatelabo.jp##div.section:has(a[href*="ifthenisnow.eu"])

anond.hatelabo.jp##div.section:has(a[href*="townnews365.com"])

anond.hatelabo.jp##div.section:has(a[href*="vangreens.ca"])

anond.hatelabo.jp##div.section:has(a[href*="www.scout.org"])

anond.hatelabo.jp##div.section:has(a[href*="www.xing.com"])

anond.hatelabo.jp##div.section:has(a[href*="harryforstatedelegate.com"])

anond.hatelabo.jp##div.section:has(a[href*="matchgolive.blogspot.com"])

anond.hatelabo.jp##div.section:has(a[href*="www.ilwomenincannabis.org"])

anond.hatelabo.jp##div.section:has(a[href*="support.perkspot.com"])

anond.hatelabo.jp##div.section:has(a[href*="www.lwn.org.uk"])

anond.hatelabo.jp##div.section:has(a[href*="www.eau-artois-picardie.fr"])

anond.hatelabo.jp##div.section:has(a[href*="live-stream"])

anond.hatelabo.jp##div.section:has(a[href*="livestream"])

anond.hatelabo.jp##div.section:has(a[href*="footlive"])

anond.hatelabo.jp##div.section:has(a[href*="bozemandailychronicle.com"])

anond.hatelabo.jp##div.section:has(a[href*="www.urbanbees.eu"])

anond.hatelabo.jp##div.section:has(a[href*="euro-math-soc.eu"])

2018-06-12データ追加

人畜無害そうな.orgドメインもあるけれど、例えばUNESCO.orgだとこんなところにリンクが張られていてやっぱり怪しい。

ttps://en.unesco.org/creativity/sites/creativity/files/webform/article21_event_files/livestream-tv-lazio-udinese-diretta-streaming-gratis-live-sky-sport-24-gennaio-2018.pdf

UNESCOまでブロックするのはしのびない気はする。パスまで含めて絞り込んだほうが良いのかも。

2013-11-15

id:Dominique-Magne

http://www.hatena.ne.jp/help/star/help#section14

自分が付けた☆を削除する

間違えて☆を付けてしまった時や、引用のやり直しをしたい時などに、自分が付けた☆を削除することができますカラースターも通常のスターと同じ方法で削除することが可能です。 (なお、2012年3月30日より、削除したカラースターを再度利用することができなくなりました。詳しくは告知日記をご覧ください。)

削除するには、自分が付けた☆の上にマウスカーソルを重ねて約5秒程そのまま待ってください。削除を実行するかどうかの確認画面が表示され、「OK」ボタンクリックすると☆が削除されます

2013-07-19

日本って国外脱出不可能な統制国家だったっけ?

比例は自民党には投票しない「落選運動」の呼び掛け|菅直人オフィシャルブログ今日一言

http://b.hatena.ne.jp/entry/ameblo.jp/n-kan-blog/entry-11575740964.html

Dominique-Magne

あの改憲案だけでも安倍クズだと証明してる。自民党を勝たせる事は日本から出ていけない運命の人々の生活を更に圧迫するだろう

日本から出ていけない運命の人々」って???

2009-11-10

Sankaku Complexの記事で世界へ!\(^o^)/

Japanese Marriage, According to Google

ttp://www.sankakucomplex.com/2009/11/10/japanese-marriage-according-to-google/

thats just hilarious

hilariously sad, that is.

  1. 1 ^_^;

2009-10-07

[]Firefox 3.5 コンテキストメニュー ID一覧

使用用途

http://suzumi.boo.jp/adanami/200505/01_2106.php

http://wp.graphact.com/2007/08/19/103

http://blog.livedoor.jp/blankcity/archives/15346691.html

http://puppet.asablo.jp/blog/2009/08/08/4486350

http://browserjs.blog102.fc2.com/blog-entry-600.html

#contentAreaContextMenu

id="spell-no-suggestions"
label="(修正候補がありません)"

id="spell-add-to-dictionary"
label="辞書に追加"

id="spell-suggestions-separator"

id="context-openlink"
label="リンクを新しいウィンドウで開く"

id="context-openlinkintab"
label="リンクを新しいタブで開く"

id="context-sep-open"

id="context-bookmarklink"
label="このリンクブックマーク"

id="context-savelink"
label="名前を付けてリンク先を保存..."

id="context-sendlink"
label="リンクURLメールで送信..."

id="context-copyemail"
label="メールアドレスコピー"

id="context-copylink"
label="リンクURLコピー"

id="context-sep-copylink"

id="context-media-play"
label="再生"

id="context-media-pause"
label="一時停止"

id="context-media-mute"
label="ミュート"

id="context-media-unmute"
label="ミュート解除"

id="context-media-showcontrols"
label="コントロールを表示"

id="context-media-hidecontrols"
label="コントロールを隠す"

id="context-media-sep-commands"

id="context-reloadimage"
label="画像を再読み込み"

id="context-viewimage"
label="画像だけを表示"

id="context-viewvideo"
label="動画だけを表示"

id="context-copyimage-contents"
label="画像コピー"

id="context-copyimage"
label="画像URLコピー"

id="context-copyvideourl"
label="動画URLコピー"

id="context-copyaudiourl"
label="オーディオURLコピー"

id="context-sep-copyimage"

id="context-saveimage"
label="名前を付けて画像を保存..."

id="context-sendimage"
label="画像URLメールで送信..."

id="context-setDesktopBackground"
label="デスクトップの背景に設定..."

id="context-blockimage"
label="google.co.jp画像を表示しない"

id="context-savevideo"
label="名前を付けて動画を保存..."

id="context-saveaudio"
label="名前を付けてオーディオを保存..."

id="context-sendvideo"
label="動画URLメールで送信..."

id="context-sendaudio"
label="オーディオURLメールで送信..."

id="context-back"
label="戻る"

id="context-forward"
label="進む"

id="context-reload"
label="更新"

id="context-stop"
label="中止"

id="context-sep-stop"

id="context-bookmarkpage"
label="このページをブックマーク"

id="context-savepage"
label="名前を付けてページを保存..."

id="context-sendpage"
label="ページの URLメールで送信..."

id="context-sep-viewbgimage"

id="context-viewbgimage"
label="背景画像だけを表示"

id="context-undo"
label="元に戻す"

id="context-sep-undo"

id="context-cut"
label="切り取り"

id="context-copy"
label="コピー"

id="context-paste"
label="貼り付け"

id="context-delete"
label="削除"

id="context-sep-paste"

id="context-selectall"
label="すべて選択"

id="context-sep-selectall"

id="context-keywordfield"
label="この検索キーワードを設定..."

id="context-searchselect"

id="frame-sep"

id="frame"
label="このフレーム"

id="context-sep-properties"

id="context-viewpartialsource-selection"
label="選択した部分のソースを表示"

id="context-viewpartialsource-mathml"
label="MathML のソースを表示"

id="context-viewsource"
label="ページのソースを表示"

id="context-viewinfo"
label="ページの情報を表示"

id="context-metadata"
label="プロパティ"

id="spell-separator"

id="spell-check-enabled"
label="スペルチェックを行う"

id="spell-add-dictionaries-main"
label="辞書を追加..."

id="spell-dictionaries"
label="言語"

id="context-sep-bidi"

id="context-bidi-text-direction-toggle"
label="テキストの方向を切り替える"

id="context-bidi-page-direction-toggle"
label="ページの方向を切り替える"

2009-07-08

国立メディア芸術総合センター(仮称)についてアイディア募集しま

1.趣旨

 文化庁では,この度,「国立メディア芸術総合センター(仮称)」の設置にあたり,センターが魅力的なものとなるよう,その事業内容や施設内容等について,国民の皆様から広くアイディア募集することとしました。

2.募集するアイディア対象項目

 以下のAからDの事項について,アイディア募集します。

* A. センターで行う事業内容について

* B. センターの施設内容・規模等について

* C. センター管理運営について

* D. その他全般に係る事項について

【参考:検討課題(第1回「国立メディア芸術総合センター(仮称)設立準備委員会」資料)】

3.アイディアの提出方法

(1)メール

pre-mac@bunka.go.jp

(2)ファクシミリ

03-6734-4781

(3)郵送

〒100-8959 東京都千代田区霞が関3-2-2

文化庁文化部国立メディア芸術総合センター設立準備室

電話でのアイディアの御提出はお受けしておりませんので御了承願います。

4.募集期間

平成21年7月7日平成21年7月13日(17時必着)

5.アイディアの提出上の注意

* (1)2.のAからDのいずれに該当するアイディアであるかを明記してください。

* (2)個人は氏名・性別・年齢・職業を,法人法人名・代表者を明記してください。

* (3)アイディアに対して個別には回答致しかねますので,あらかじめ御了承ください。

* (4)アイディアについては,氏名・性別・年齢・職業法人名・代表者を除いて公表されることがあります。

なお,氏名等連絡先については,アイディアの内容に不明な点があった場合の連絡以外の用途では使用しません。

http://www.bunka.go.jp/oshirase_other/2009/mediageijutsu_iken_boshu.html

2008-11-30

On File Systems

(http://www.kev009.com/wp/2008/11/on-file-systems/)

訳した。分からなかったところは英語のまま。ファイルシステムについて完全な素人なので変な所があるかも。

Introduction(前置き)

ファイルシステムOS重要な要素だが最近ではあまり関心を払われていない。ビットが入ってきてビットがでていく……デスクトップシステムにとっては、たいてい十分に働いてくれる……ただし、電源が落ちるまでは。しかし、そんな状況ですら近頃ではあまり困ったことにはならない。

Linuxファイルシステムの分野には競合製品が多い。ext2が長い間標準とされてきたが、2001年辺りから他の選択肢も主流となった。あまり歴史に深入りせずに要約すると(順番は適当)、ext2進化してext3となり、ジャーナリング機能が付いた。ReiserFSがリリースされた。SGIはXFSを移植した。IBMはJFSを移植した。

いくつかの理由があって(主に政治的な理由で)ext3Linuxデファクトファイルシステムとなった。

Classic File Systems(古典ファイルシステム)

私が古典ファイルシステムと呼ぶとき、基本的にいつも同じ概念を指している。つまり古典的なUnixレイアウトファイルシステムジャーナリング機能を追加したものだ。ここに述べるのは、それら古典ファイルシステムハイライトである。

これは後知恵だが、JFSやXFSが牽引力を持たずに、ext3が人々を古典的時代に停滞させたのは一種の悲劇だった。しかしながらext3は信頼性を証明し、きちんと動くように一貫として保守されてもいる。

NextGen File Systems(新世代ファイルシステム)

2005年SunZFSという爆弾リリースした。ZFSは私が次世代ファイルシステムと呼ぶ時代への案内人である。

ハードディスクが大きくなるにつれて、バックアップ戦略、完全性(integrity)の検証、巨大なファイルサポートは前より遥かに重要になってきている。

ここあげるファイルシステム古典的なVFS lineを曖昧にしたりLVMとRAIDを強固な結合することによって管理を楽にする事を目的としている。

ダメハードウェアで起きる静かな(観測されない)データの破損も心配の種である。これに対抗するために、次世代のファイルシステムチェックサムを供えている。

いろんな意味Linuxコミュニティーは完全に油断しきっており、多くの開発者ZFSリリースされるまで次世代ファイルシステムについて真剣に考えてこなかった。Reiser4はいくつかの新しいアイデアを持っていてキラーファイルシステムとなろうとしたが、Hans Reiserは、他のカーネル開発者との著しく酷い関係を楽しんでいたのだった。ただ幸運な事に、いまではいくつかの、より先進的なファイルシステムが登場しようとしている。

Conclusion(結論)

kernel 2.6.28と一緒にext4がリリースされるが、BtrfsやTuxs3が安定するのを待った方がよい。Btrfsの開発陣は短距離走開発を行っているので、Linuxカーネルの開発サイクルに次か、あるいはその次で取り込まれると思われる。

SSDが普及するのは明白だ。理論的に速度の面で磁気ストレージより圧倒的に早く、現実にも既に書き込み速度が追い付きはじめている。最新のIntelランダムアクセスやIOPSは非常に印象的である。Btrfsは当初からSSDへの最適化を取りいれようとしている。しかし、これらの新しいデバイスは、更に速度の早い新しいファイルシステムを生むだろう。

私自身の考えでは、ウェアレベリングやFATエミュレーションSSDの性能を押し止めているため、 新たなファイルシステムが登場すればパフォーマンス改善できるだろう。

2008-10-18

http://anond.hatelabo.jp/20081018072817 の続きだよ

これでおしまいだよ

elisp

sangels.el
(require 'cl)				; for cl-seq

(defvar sangels-movies-dir nil)
(defvar sangels-player "c:/Program Files/GRETECH/GomPlayer/GOM.exe")
(defvar sangels-sort-by 'sangels-sort-by-rate)
(defvar sangels-rate-file "~/.emacs.d/.sangels/rate")
(defvar sangels-buffer "*sangels*")
(defvar sangels-thumbnail "00_thumbnail.jpg")
(defvar sangels-m3u "00_movies.m3u")
(defface sangels-name '((t (:family "fixed" :weight bold :height 3.0)))
  "")
(defface sangels-rate '((t (:family "fixed" :weight bold :height 1.5)))
  "")
(defvar sangels-mode-map
  (let ((map (make-sparse-keymap)))
    (define-key map "n" 'next-line)
    (define-key map "p" 'previous-line)
    (define-key map (kbd "RET") 'sangels-select)
    (define-key map (kbd "SPC") 'sangels-select)
    (define-key map "q" 'sangels-quit)
    (define-key map "+" 'sangels-rate-plus)
    (define-key map "-" 'sangels-rate-minus)
    map))
(defvar sangels-mode-hook nil)
(defvar sangels-highlight-overlay nil)
(defvar sangels-rate-alist nil)

(defconst sangels-rate-max 6)

(defun sangels-insert-movies ()
  (save-excursion
    (let* ((inhibit-read-only t)
           (files (remove-if-not
                   (lambda (x)
                     (and (not (member (file-name-nondirectory x) '("." "..")))
                          (file-directory-p x)
                          (member sangels-thumbnail (directory-files x))))
                   (directory-files sangels-movies-dir t)))
           (ids (mapcar 'file-name-nondirectory files)))
      (erase-buffer)
      (setq ids (sangels-sort-ids ids))
      (dolist (id ids)
        (let ((file (expand-file-name id sangels-movies-dir))
              (pos (point)))
          (insert-image-file (expand-file-name sangels-thumbnail file))
          (end-of-line)
          (insert (propertize (format "%-15s " id)
                              'face 'sangels-name))
          (sangels-insert-rate id)
          (insert "\n")
          (put-text-property pos (point) 'sangels-id id))))))

(defun sangels-sort-by-name (a b)
  (string< a b))

(defun sangels-sort-by-rate (a b)
  (or (> (sangels-rate a) (sangels-rate b))
      (sangels-sort-by-name a b)))

(defun sangels-sort-ids (ids)
  (sort ids
        (or sangels-sort-by
            'sangels-sort-by-name)))
(defun sangels-insert-rate (id)
  (let ((rate (sangels-rate id)))
    (insert (propertize (concat
                         (make-string rate ?★)
                         (make-string (- sangels-rate-max rate) ?☆))
                        'sangels-rate t
                        'face 'sangels-rate))))

(defun sangels-current-id ()
  (get-text-property (point) 'sangels-id))

(defun sangels-play-movie (movie)
  (let ((explicit-shell-file-name "cmdproxy")
        (shell-file-name "cmdproxy"))
    (apply
     'call-process-shell-command
     "start" nil "*tmp*" nil
     (mapcar (lambda (x) (concat "\"" x "\""))
             (list sangels-player
                   (unix-to-dos-filename movie))))))

(defun sangels-select ()
  (interactive)
  (let ((id (sangels-current-id)))
    (when id
      (sangels-play-movie (expand-file-name
                           sangels-m3u
                           (expand-file-name id sangels-movies-dir))))))

(defun sangels-quit ()
  (interactive)
  (kill-buffer sangels-buffer))

(defun sangels-rate (id)
  (or (cdr (assoc id sangels-rate-alist)) (/ sangels-rate-max 2)))

(defun sangels-rate-save ()
  (interactive)
  (let ((dir (file-name-directory sangels-rate-file)))
    (unless (file-exists-p dir)
      (make-directory dir t)))
  (with-temp-file sangels-rate-file
    (insert (pp-to-string sangels-rate-alist))))

(defun sangels-rate-load ()
  (interactive)
  (when (file-exists-p sangels-rate-file)
    (with-temp-buffer
      (insert-file-contents sangels-rate-file)
      (goto-char (point-min))
      (setq sangels-rate-alist (read (current-buffer))))))

(defun sangels-rate-plus (&amp;optional n)
  (interactive "p")
  (setq n (or n 1))
  (let* ((id (sangels-current-id))
         (cell (assoc id sangels-rate-alist)))
    (unless cell
      (setq cell (cons id (sangels-rate id)))
      (setq sangels-rate-alist (cons cell sangels-rate-alist)))
    (setcdr cell (+ (cdr cell) n))
    (save-excursion
      (let ((inhibit-read-only t))
        (beginning-of-line)
        (goto-char (next-single-property-change (point) 'sangels-rate))
        (delete-region (point)
                       (next-single-property-change (point) 'sangels-rate))
        (sangels-insert-rate id)))
    (sangels-rate-save)))

(defun sangels-rate-minus (&amp;optional n)
  (interactive "p")
  (setq n (or n -1))
  (sangels-rate-plus (- n)))

(defun sangels-post-command-hook ()
  (save-excursion
    (move-overlay
     sangels-highlight-overlay
     (progn
       (move-beginning-of-line 1)
       (point))
     (progn
       (move-end-of-line 1)
       (forward-line)
       (point))
     (current-buffer))))

(defun sangels-mode ()
  (interactive)
  (kill-all-local-variables)
  (use-local-map sangels-mode-map)
  (setq sangels-highlight-overlay (make-overlay 0 0))
  (overlay-put sangels-highlight-overlay 'face 'highlight)
  (overlay-put sangels-highlight-overlay 'evaporate t)
  (make-local-variable 'post-command-hook)
  (add-hook 'post-command-hook 'sangels-post-command-hook nil t)
  (setq major-mode 'sangels-mode)
  (setq mode-name "Sangels")
  (run-mode-hooks 'sangels-mode-hook)
  (set-buffer-modified-p nil)
  (setq buffer-read-only t))

(defun sangels (&amp;optional arg)
  (interactive "P")
  (when (or arg (not sangels-movies-dir))
    (setq sangels-movies-dir (read-directory-name "movies dir: ")))
  (sangels-rate-load)
  (switch-to-buffer (get-buffer-create sangels-buffer))
  (sangels-insert-movies)
  (sangels-mode))

(provide 'sangels)

2007-09-10

Gauche によるもう少し効率的なバージョン

(define str "Hello world")

(let ((a 0))
  (let1 b (with-input-from-string str
	    (lambda ()
	      (port-fold
	       (lambda (c b)
		 (if (eqv? #\o c) (inc! a))
		 (+ 1 b))
	       0
	       read-char)))
    (print a " " b)))

あるいはこう。

(use srfi-1)

(define (times* e n)
  (map (lambda _ (e)) (iota n)))

(define-macro (with-gensyms var . body)
  `(let ,(map (cut list <> '(gensym)) var)
     ,@body))

(define-macro (with-gensyms* var n . body)
  `(let ((,var (times* gensym ,n)))
     ,@body))

(define-macro (port-vfold proc seed reader)
  (with-gensyms
   (loop %proc v)
   (with-gensyms*
    pr (length seed)
    (with-gensyms*
     npr (length seed)
     `(let ((,%proc ,proc))
	(let ,loop ((,v (,reader)) ,@(map list pr seed))
	     (if (eof-object? ,v)
	       (values ,@pr)
	       (receive ,npr (,%proc ,v ,@pr)
		 (,loop (,reader) ,@npr)))))))))

(receive (a b)
    (with-input-from-string "Hello world"
      (lambda ()		    
	(port-vfold
	 (lambda (c a b)
	   (values
	    (if (eqv? #\o c) (+ a 1) a)
	    (+ 1 b)))
	 (0 0)
	 read-char)))
  (print a " " b))

文字列操作関数って高価じゃね?

2007-08-26

男性も読んでおられるかと思いますので、夫の立場の方にお願いです。社会での活動が厳しいことはお察ししていますが、妻は夫と会話をしたり、一緒に行動したりするのが好きなことを忘れないでくださいね。

第5回 夫婦関係に悩んだら|e-mama


こんなの大嘘だぜ。

 
アーカイブ ヘルプ
ログイン ユーザー登録
ようこそ ゲスト さん