約 2,982,074 件
https://w.atwiki.jp/hitorikakurenbo/pages/872.html
前ページ 2008年7月6日千 ◆ExGQrDul2E 119スレ目52 ：千 ◆ExGQrDul2E ：2008/07/06(日) 03 38 17 ID U54eer0o0 41 おー おっす！ 今丁度実証中 この季節やるのは暑さとの戦いかもしれん・・・・ 59 ：本当にあった怖い名無し：2008/07/06(日) 03 39 16 ID 3+IZsR4BO 千氏とたぬき氏は大丈夫か？ 携帯で見れない人はﾓﾊﾞｼﾞﾗ使うといいよ。66 ：千 ◆ExGQrDul2E ：2008/07/06(日) 03 47 03 ID U54eer0o0 たぶん気のせいだけど 鼻息みたいな音 「ふしゅー」 68 ：本当にあった怖い名無し：2008/07/06(日) 03 47 41 ID KA3/WgUA0 その「ふしゅー」は断続的？継続的？ 70 ：本当にあった怖い名無し：2008/07/06(日) 03 48 17 ID XEpJyjY+O 何の音だろww71 ：千 ◆ExGQrDul2E ：2008/07/06(日) 03 48 38 ID U54eer0o0 68 １回だけです 気のせいさー 74 ：本当にあった怖い名無し：2008/07/06(日) 03 49 40 ID KA3/WgUA0 今までの統計からすると、始めて１時間が勝負ぽ。76 ：千 ◆ExGQrDul2E ：2008/07/06(日) 03 51 22 ID U54eer0o0 73 たねきさん暑くないですか？86 ：千 ◆ExGQrDul2E ：2008/07/06(日) 03 55 06 ID RgVMX1AxO あちー クローゼットの中の様子 http //imepita.jp/20080706/133290 http //imepita.jp/20080706/134170 http //imepita.jp/20080706/13376087 ：たぬき ◆rrJRgt9bYk ：2008/07/06(日) 03 55 06 ID Hz3nXijf0 納戸じゃないや、押し入れですね。91 ：千 ◆ExGQrDul2E ：2008/07/06(日) 03 56 25 ID U54eer0o0 87 同じく汗びっちょりっす もっかい風呂はいらんと駄目っぽいな 93 ：本当にあった怖い名無し：2008/07/06(日) 03 57 05 ID ciD507gI0 86 究極の引篭もり状態ですねｗ 夏でなければ快適そうですらある。 なんか臨場感でてます(；´∀｀)98 ：千 ◆ExGQrDul2E ：2008/07/06(日) 03 59 16 ID U54eer0o0 93 ですーｗ 何が楽しくてクローゼットの中にー いまだ異常なし テレビが消えることもなく 99 ：本当にあった怖い名無し：2008/07/06(日) 03 59 25 ID m/wg2kqH0 とりあえず 86を全て明るく補正したが変化無し 普通に物置の中の写真でした 100 ：本当にあった怖い名無し：2008/07/06(日) 03 59 41 ID KA3/WgUA0 そろそろ１時間になりますな。 107 ：本当にあった怖い名無し：2008/07/06(日) 04 00 54 ID u9TiPorqO 86 三枚目何か嫌だ、何でかな？ｗｗ109 ：千 ◆ExGQrDul2E ：2008/07/06(日) 04 01 49 ID U54eer0o0 107 もっかいそっちの方撮って見ますか？ 112 ：本当にあった怖い名無し：2008/07/06(日) 04 01 58 ID VDr2rGGg0 86 3枚目なんか写ってる 119 ：本当にあった怖い名無し：2008/07/06(日) 04 03 35 ID u9TiPorqO 109 うーん、何か写ってるとかじゃないからなぁ(´･ω･｀) いちおお願いできますか？120 ：千 ◆ExGQrDul2E ：2008/07/06(日) 04 03 39 ID U54eer0o0 3枚目たぶんPCの光の屈折でそうなってるっぽい 123 ：本当にあった怖い名無し：2008/07/06(日) 04 04 37 ID Ff0lhFoU0 じゃあ今のとこ何も異常はないということですか 125 ：本当にあった怖い名無し：2008/07/06(日) 04 04 50 ID aNf8DZBn0 86 一応３枚目補正してみたよ 127 ：本当にあった怖い名無し：2008/07/06(日) 04 04 59 ID m/wg2kqH0 ttp //www.uploda.org/uporg1526127.jpg.html あまりにも写ってる発言が多いため明るくしたのをうｐ どうみても光の反射だと思われ 129 ：本当にあった怖い名無し：2008/07/06(日) 04 05 42 ID aNf8DZBn0 張り忘れ 125 http //imepita.jp/20080706/146280 139 ：本当にあった怖い名無し：2008/07/06(日) 04 08 47 ID KA3/WgUA0 １時間経過したわけですが。140 ：千 ◆ExGQrDul2E ：2008/07/06(日) 04 08 51 ID RgVMX1AxO クローゼットの中の様子２ http //imepita.jp/20080706/147770 http //imepita.jp/20080706/148140 http //imepita.jp/20080706/148340163 ：千 ◆ExGQrDul2E ：2008/07/06(日) 04 13 33 ID U54eer0o0 149.150 ですｗ テレビ撮ったけど 異常なし171 ：千 ◆ExGQrDul2E ：2008/07/06(日) 04 16 05 ID U54eer0o0 めっさ平和だぞなんかｗｗｗ 小鳥が鳴きはじめてるしｗ213 ：千 ◆ExGQrDul2E ：2008/07/06(日) 04 26 22 ID U54eer0o0 あれたぬきさん大丈夫かな・・・222 ：千 ◆ExGQrDul2E ：2008/07/06(日) 04 28 45 ID U54eer0o0 なんでやってる本人達は落ち着いてるのに 周りのｈ（ｒｙ 229 ：本当にあった怖い名無し：2008/07/06(日) 04 30 14 ID KA3/WgUA0 225ずっと同じ姿勢でいるとそうなるよ。 時々伸びしたり、体勢変えるといい。 230 ：本当にあった怖い名無し：2008/07/06(日) 04 30 17 ID SkPK0saa0 225 肩が重いって言うか肩こった・・・シップはらねば・・・ 231 ：本当にあった怖い名無し：2008/07/06(日) 04 30 35 ID m/wg2kqH0 勇者が無事 →安心する そして術失敗or来なかった 周りが危険 →自業自得 怖い話で集まった霊が居ると思われる 232 ：本当にあった怖い名無し：2008/07/06(日) 04 30 57 ID sqnB+nVQ0 福島も明るいよー 鳥がチュンチュン鳴いてる233 ：千 ◆ExGQrDul2E ：2008/07/06(日) 04 31 09 ID U54eer0o0 そろそろ1時間半経過ですが 以前何もないのです 気配なども感じません 235 ：本当にあった怖い名無し：2008/07/06(日) 04 31 27 ID gHdpPMybO 周りからの集団ヒス…？ｗ 237 ：本当にあった怖い名無し：2008/07/06(日) 04 31 46 ID m/wg2kqH0 233 塩水口に入れて散策って手もあるよ 危険ではあるが246 ：千 ◆ExGQrDul2E ：2008/07/06(日) 04 33 22 ID U54eer0o0 228 流石です 何時になったらやめようかやめ時がわからんｗ 制限時間は2時間だが はてどうしたものか252 ：千 ◆ExGQrDul2E ：2008/07/06(日) 04 35 07 ID U54eer0o0 237 なるほどー 40分なたら ちょっと様子でも見るかなー ってかおわらしちゃうかもですが 皆さんいいですの？ 253 ：本当にあった怖い名無し：2008/07/06(日) 04 35 09 ID u9TiPorqO たぬき………さん？257 ：千 ◆ExGQrDul2E ：2008/07/06(日) 04 35 47 ID U54eer0o0 253 たぬきさん反応ないですね・・・・ 263 ：本当にあった怖い名無し：2008/07/06(日) 04 37 03 ID L2/XW3Ga0 とりあえず千さんはもうやめていいと思いますよ？ 一応限度は２時間だし・・・271 ：千 ◆ExGQrDul2E ：2008/07/06(日) 04 38 23 ID U54eer0o0 263 了解ー 終わらせてきますー 284 ：本当にあった怖い名無し：2008/07/06(日) 04 40 49 ID eQ9o6fhY0 271 千氏、乙でした 299 ：本当にあった怖い名無し：2008/07/06(日) 04 43 19 ID Hz3nXijf0 千さん おつかれさまです。無事のようでなによりです。 なにかあった、と訊かれると、何もなかった、 と答えるべきかもしれませんが、 少なくとも、何かしら（目の錯覚なりなんなり） 自分にはあったのだと思います……。 ちょい恐いんで、終わらせたいのですが、もう明るいですよね？ いちおう青白いっぽいのですが、出るのがメチャ恐いっす；320 ：千 ◆ExGQrDul2E ：2008/07/06(日) 04 49 03 ID U54eer0o0 おつですー 終わらせてきました ｱﾀﾏｲﾀｲ 写真少し撮ったのでうｐしますー しばしお待ちをー 323 ：本当にあった怖い名無し：2008/07/06(日) 04 49 31 ID L2/XW3Ga0 320 千さんおつかれさまでした 326 ：本当にあった怖い名無し：2008/07/06(日) 04 49 57 ID SkPK0saa0 千氏オツです！ 327 ：本当にあった怖い名無し：2008/07/06(日) 04 50 09 ID aNf8DZBn0 320 お疲れ様～ 328 ：本当にあった怖い名無し：2008/07/06(日) 04 50 18 ID KA3/WgUA0 千氏お疲れ様です。 写真の方騒がれてるみたいですがｗ 332 ：本当にあった怖い名無し：2008/07/06(日) 04 50 40 ID u9TiPorqO 320 千さんお疲れさまです(´･ω･｀)無事でなにより 333 ：本当にあった怖い名無し：2008/07/06(日) 04 50 41 ID j7EkEnV20 千氏乙！ 334 ：本当にあった怖い名無し：2008/07/06(日) 04 50 43 ID 3GXR4hXVO 310の人気に嫉妬 335 ：本当にあった怖い名無し：2008/07/06(日) 04 50 45 ID 3+IZsR4BO 320 千氏ご苦労様でした。 酸欠大丈夫？337 ：千 ◆ExGQrDul2E ：2008/07/06(日) 04 51 07 ID U54eer0o0 311 ちょｗｗ おっさんに見える 涙出てきた； 結構鮮明にわかりますね・・・ 338 ：本当にあった怖い名無し：2008/07/06(日) 04 51 15 ID XEpJyjY+O 千さんお疲れ様( -^*)/ 339 ：本当にあった怖い名無し：2008/07/06(日) 04 51 19 ID m/wg2kqH0 千氏お疲れ様でした 340 ：本当にあった怖い名無し：2008/07/06(日) 04 51 19 ID U2aolpEiO 千氏乙！ 342 ：本当にあった怖い名無し：2008/07/06(日) 04 51 30 ID 9WHIdNEj0 千氏乙でした！！ 343 ：本当にあった怖い名無し：2008/07/06(日) 04 51 31 ID jlQBxHDa0 千氏おつかれさま＾＾ こんなはっきり見えるとなんか信じられない・・・ 346 ：本当にあった怖い名無し：2008/07/06(日) 04 52 27 ID gHdpPMybO 千氏激しく乙です。 ゆっくり休んで下さい。 311 笑う子供に見える零感な自分が憎いぜ… 349 ：本当にあった怖い名無し：2008/07/06(日) 04 52 50 ID kTKR8qy30 千氏、たぬき氏オツカレさまー 353 ：本当にあった怖い名無し：2008/07/06(日) 04 53 15 ID xsT9vg+5O 千氏お疲れ様。 おまいテンプレ見たって嘘だったろｗｗｗｗｗゆっくり休めよ 354 ：本当にあった怖い名無し：2008/07/06(日) 04 53 23 ID /am0pumg0 両勇者おつ！とりあえず何もなくてなによりだ364 ：千 ◆ExGQrDul2E ：2008/07/06(日) 04 56 04 ID RgVMX1AxO 終わったー 様子 http //imepita.jp/20080706/170950 http //imepita.jp/20080706/175800 http //imepita.jp/20080706/176100 http //imepita.jp/20080706/176590 367 ：本当にあった怖い名無し：2008/07/06(日) 04 58 16 ID 84spGhmx0 千氏、たぬき氏乙でした！369 ：千 ◆ExGQrDul2E ：2008/07/06(日) 04 59 26 ID U54eer0o0 353 え？なんでそのように思ったんですカー？374 ：千 ◆ExGQrDul2E ：2008/07/06(日) 05 00 31 ID U54eer0o0 たぬきさんお疲れ様でしたー やっぱり息苦しいですね 狭くて息苦しくて 暗くて目もやられる気がするし 出るとき少し怖かった 376 ：本当にあった怖い名無し：2008/07/06(日) 05 01 31 ID gHdpPMybO 369 私の勝ちって4回言いそうになったからでは？379 ：千 ◆ExGQrDul2E ：2008/07/06(日) 05 04 02 ID U54eer0o0 376 それ俺じゃないっすｗ393 ：千 ◆ExGQrDul2E ：2008/07/06(日) 05 10 17 ID RgVMX1AxO 375 たぶんお酒の瓶かも 明るい写真 大体同じ角度から http //imepita.jp/20080706/184370397 ：千 ◆ExGQrDul2E ：2008/07/06(日) 05 11 40 ID U54eer0o0 って俺写ってるｗｗｗｗｗｗｗｗｗ 俺テラばかすｗ 402 ：本当にあった怖い名無し：2008/07/06(日) 05 13 24 ID ENHkSiJT0 あ、ねえ 鏡に映ってる千さんの足、右足なくない？ つづく クリックしてください ↓2008年7月6日千 ◆ExGQrDul2Eその３
https://w.atwiki.jp/hamasta/pages/40.html
Can t locate Template.pm in @INC 参照： http //mocamoca.biz/blog/2008/04/perlhtmltemplate.html perl でCPANから HTML Templateをインストールしようとしたら エラーメッセージ libstdc++6が不足？ Synapticパッケージマネージャで libstdc++6 と libstdc++6-4.2-dev をインストールしたらエラーが出なくなった CPANに接続エラーになるときはCPAN SHELLから o conf init でデフォルト接続サーバーを日本国内のものに変更すること /usr/lib/perl/5.8/CORE/perl.h 420 24 error sys/types.h No such file or directory /usr/lib/perl/5.8/CORE/perl.h 451 19 error ctype.h No such file or directory /usr/lib/perl/5.8/CORE/perl.h 463 23 error locale.h No such file or directory /usr/lib/perl/5.8/CORE/perl.h 480 20 error setjmp.h No such file or directory /usr/lib/perl/5.8/CORE/perl.h 486 26 error sys/param.h No such file or directory /usr/lib/perl/5.8/CORE/perl.h 491 23 error stdlib.h No such file or directory /usr/lib/perl/5.8/CORE/perl.h 496 23 error unistd.h No such file or directory /usr/lib/perl/5.8/CORE/perl.h 776 23 error string.h No such file or directory /usr/lib/perl/5.8/CORE/perl.h 925 27 error netinet/in.h No such file or directory /usr/lib/perl/5.8/CORE/perl.h 929 26 error arpa/inet.h No such file or directory /usr/lib/perl/5.8/CORE/perl.h 939 25 error sys/stat.h No such file or directory /usr/lib/perl/5.8/CORE/perl.h 961 21 error time.h No such file or directory /usr/lib/perl/5.8/CORE/perl.h 968 25 error sys/time.h No such file or directory /usr/lib/perl/5.8/CORE/perl.h 975 27 error sys/times.h No such file or directory /usr/lib/perl/5.8/CORE/perl.h 982 19 error errno.h No such file or directory /usr/lib/perl/5.8/CORE/perl.h 997 25 error sys/socket.h No such file or directory /usr/lib/perl/5.8/CORE/perl.h 1024 21 error netdb.h No such file or directory /usr/lib/perl/5.8/CORE/perl.h 1127 24 error sys/ioctl.h No such file or directory /usr/lib/perl/5.8/CORE/perl.h 1156 23 error dirent.h No such file or directory In file included from /usr/lib/gcc/i486-linux-gnu/4.1.3/include/syslimits.h 7, from /usr/lib/gcc/i486-linux-gnu/4.1.3/include/limits.h 11, from /usr/lib/perl/5.8/CORE/perl.h 1510, from Stash.xs 40 /usr/lib/gcc/i486-linux-gnu/4.1.3/include/limits.h 122 61 error limits.h No such file or directory In file included from /usr/lib/perl/5.8/CORE/perl.h 2120, from Stash.xs 40 /usr/lib/perl/5.8/CORE/handy.h 136 25 error inttypes.h No such file or directory In file included from /usr/lib/perl/5.8/CORE/perl.h 2284, from Stash.xs 40 /usr/lib/perl/5.8/CORE/unixish.h 106 21 error signal.h No such file or directory In file included from Stash.xs 40 /usr/lib/perl/5.8/CORE/perl.h 2421 33 error pthread.h No such file or directory In file included from Stash.xs 40 /usr/lib/perl/5.8/CORE/perl.h 2423 error expected = , , , ; , asm or __attribute__ before perl_os_thread hr CPANのDBD Pgがインストールできない DBD Pg object version undef does not match bootstrap parameter install DBD Pg でうまくいった hr HTML Template 1022行目？でエラー HTML Templateのバージョンを2.9から2.8に下げたら回避できた サーバーにインストールされているPerlのバージョンによっては HTML Templateと相性が悪いらしい。
https://w.atwiki.jp/keisks/pages/214.html
perlを使ったことがないのですが、必要に迫られることも多々あるので、その都度referenceをストックしていきます。 qr http //d.hatena.ne.jp/perlcodesample/20080419/1208607357 last, next, redo http //www5b.biglobe.ne.jp/~sgi/perl/framec/pl406.html#pl4064 push http //www.perlplus.jp/func/array/index1.html
https://w.atwiki.jp/remotenipple99/pages/10.html
#!/usr/bin/perl use strict; my $data = ; my $error = 0; my $level = 0; my $DATA_PATH = /home/nao/zip_test/test ; my @indent; $error = showList($DATA_PATH, \$data, \@indent, $level, $error); #print $data; #print "error=$error\n\n"; ###HTML### my $html_top= HTML ; html head script src="jquery.js" /script SCRIPT language="JavaScript" !-- function treeMenu(tName) { tMenu = document.getElementById(tName).style; if(tMenu.display == none ) tMenu.display = "block"; else tMenu.display = "none"; } /SCRIPT /head body HTML ###HTML### my $html_bottom= HTML ; /body /html HTML #出力 print $html_top; print $data; print $html_bottom; my $uct=0; #ユーニークナンバー sub showList{ my ($path, $data, $indent, $lv, $error) =@_; $path=~s|/$||; $lv++;#階層のカウント return -20 if(!opendir(DIR, $path)); my @dir = readdir(DIR); close(DIR); @dir = sort{ $a cmp $b }@dir; @dir = grep{ $_!~/^\.?\./; }@dir; my $ct = 0;#現在フォルダ内のファイル数をカウント my $last = scalar(@dir); my $ind=join( , @$indent);#表示用のインデント foreach my $file (@dir){ $ct++; $uct++; next if($file=~/^\.?\./); my $newpath =$path. / .$file; my $id = $uct. _ .$lv; #ファイルがディレクトリの時の処理 if(-d $newpath){ #ブロック div 作成 #トップ階層時 if($lv ==1){ $$data.= " a href=\"javascript treeMenu(\ $id\ );\" "; $$data.= "D $file --$lv"; $$data.= " /a br \n"; push(@$indent, );#次行分のインデントを記録 #ループの途中(├) }elsif($ct != $last){ $$data.= $ind."├"; $$data.= " a href=\"javascript treeMenu(\ $id\ );\" "; $$data.= " D $file --$lv"; $$data.= " /a br \n"; push(@$indent, │ ); #ループラスト(└) }else{ $$data.= $ind."└"; $$data.= " a href=\"javascript treeMenu(\ $id\ );\" "; $$data.= " D $file --$lv"; $$data.= " /a br \n"; push(@$indent, ); } $$data.= " div id=\"$id\" style=\"display none;\" \n"; $error = showList($newpath, $data, $indent, $lv, $error); #再帰処理上昇 pop(@indent);#インデントのディクリメント $$data.=" /div \n"; #ファイルの時の処理 }elsif(-e $newpath){ if($lv ==1){ $$data.=" a href=\"#\" $file --$lv /a br \n"; }elsif($ct != $last){ $$data.= $ind."├ a href=\"#\" $file --$lv /a br \n"; }else{ $$data.= $ind."└ a href=\"#\" $file --$lv /a br \n"; } #エラー }else{ return -30; } } return 0; } define でエクスポート use base Exporter ; use vars qw(@EXPORT); use lib qw(/export/webdata/config/atf/common/atf_lib); require jcode.pl ; BEGIN { @EXPORT = qw(＄XXX ＄ＸＸＸＸ); eval "use vars qw(".join( , @EXPORT).")"; } データベースエラーマスク if($ENV{ SERVER_NAME } =~ /^(teto|pata)\./){ # * 開発環境用 * $DB_SOURCE = dbi Oracle ; $DB_USER = ID ; $DB_PASSWD = PASS ; $ENV{ NLS_LANG } = JAPANESE_JAPAN.JA16EUC ; $ENV{ ORACLE_HOME } = XXXX; $ENV{ ORACLE_SID } = orac ; $ENV{ LD_LIBRARY_PATH } = XXXXX ; } else{ # * ST・本番環境用 * $DB_SOURCE = dbi Oracle fwdb9 ; $DB_USER = ID ; $DB_PASSWD = PASS ; $ENV{ NLS_LANG } = JAPANESE_JAPAN.JA16EUC ; $ENV{ ORACLE_HOME } = XXXX ; $ENV{ ORACLE_SID } = XXXXX ; $ENV{ LD_LIBRARY_PATH } = XXXXXXX ; } 正規表現 改行スキップ s=~s/^\s?$// Ｃ参考ページ http //www.geocities.co.jp/SiliconValley-Sunnyvale/6128/perl/index.html http //www9.plala.or.jp/sgwr-t/c/ http //www.geocities.jp/ky_webid/c/ 参考サイト：http //tdweb.cssa.chs.nihon-u.ac.jp/ds/ds06.html int main(int argc, const char *argv[]) { int status; int i; /* 処理開始メッセージ */ fprintf(stdout, "%s %u [START] %s %s %u\n", mname, (unsigned int)getpid(), uni_date(), uni_time(), (unsigned int)getppid()); for ( i = 0 ; i argc ; ++i ) { fprintf(stdout, "%s%c", argv[i], ((i+1 argc)? \n )); } stdio.h stdlib.h typedef struct LIST{ char *filename; struct LIST *next; struct LIST *pre; }RESULT_LIST; void AddList(RESULT_LIST **HEAD, RESULT_LIST **END, char *line); int main(int arg, char **argv){ FILE *FP; char line[256]; RESULT_LIST *HEAD = (RESULT_LIST *)malloc(sizeof(RESULT_LIST)); RESULT_LIST *END = (RESULT_LIST *)malloc(sizeof(RESULT_LIST)); HEAD = NULL; END = NULL; if ((FP = fopen(argv[1], "r")) == NULL) { printf("file open error!!"); exit(1); } while(fgets(line, 256, FP)!=NULL){ AddList( HEAD, END, line); } fclose(FP); RESULT_LIST *P[10]; int i=0; while(HEAD != NULL){ P[i] = HEAD; printf("%s self=%d next=%d pre=%d\n", HEAD- filename, HEAD, HEAD- next, HEAD- pre); END = HEAD; HEAD = HEAD- next; free(END); i++; } free(HEAD); int ct; for(ct = 0; ct i; ct++){ printf("%d\n", P[i]); } } void AddList(RESULT_LIST **HEAD, RESULT_LIST **END, char *line){ RESULT_LIST *head = *HEAD; RESULT_LIST *end = *END; char *newline = (char *)malloc(sizeof(char) * strlen(line)); //アドレス重複防止処理 strcpy(newline, line); RESULT_LIST *new_node = (RESULT_LIST *)malloc(sizeof(RESULT_LIST)); new_node- filename = newline; new_node- pre = NULL; new_node- next = NULL; if(*HEAD == NULL){ *HEAD = new_node; *END = new_node; }else{ end- next = new_node; new_node- pre = end; *END = new_node; } }
https://w.atwiki.jp/collection/pages/523.html
前ページ 2008年7月6日千 ◆ExGQrDul2E 119スレ目52 ：千 ◆ExGQrDul2E ：2008/07/06(日) 03 38 17 ID U54eer0o0 41 おー おっす！ 今丁度実証中 この季節やるのは暑さとの戦いかもしれん・・・・ 59 ：本当にあった怖い名無し：2008/07/06(日) 03 39 16 ID 3+IZsR4BO 千氏とたぬき氏は大丈夫か？ 携帯で見れない人はﾓﾊﾞｼﾞﾗ使うといいよ。66 ：千 ◆ExGQrDul2E ：2008/07/06(日) 03 47 03 ID U54eer0o0 たぶん気のせいだけど 鼻息みたいな音 「ふしゅー」 68 ：本当にあった怖い名無し：2008/07/06(日) 03 47 41 ID KA3/WgUA0 その「ふしゅー」は断続的？継続的？ 70 ：本当にあった怖い名無し：2008/07/06(日) 03 48 17 ID XEpJyjY+O 何の音だろww71 ：千 ◆ExGQrDul2E ：2008/07/06(日) 03 48 38 ID U54eer0o0 68 １回だけです 気のせいさー 74 ：本当にあった怖い名無し：2008/07/06(日) 03 49 40 ID KA3/WgUA0 今までの統計からすると、始めて１時間が勝負ぽ。76 ：千 ◆ExGQrDul2E ：2008/07/06(日) 03 51 22 ID U54eer0o0 73 たねきさん暑くないですか？86 ：千 ◆ExGQrDul2E ：2008/07/06(日) 03 55 06 ID RgVMX1AxO あちー クローゼットの中の様子 http //imepita.jp/20080706/133290 http //imepita.jp/20080706/134170 http //imepita.jp/20080706/13376087 ：たぬき ◆rrJRgt9bYk ：2008/07/06(日) 03 55 06 ID Hz3nXijf0 納戸じゃないや、押し入れですね。91 ：千 ◆ExGQrDul2E ：2008/07/06(日) 03 56 25 ID U54eer0o0 87 同じく汗びっちょりっす もっかい風呂はいらんと駄目っぽいな 93 ：本当にあった怖い名無し：2008/07/06(日) 03 57 05 ID ciD507gI0 86 究極の引篭もり状態ですねｗ 夏でなければ快適そうですらある。 なんか臨場感でてます(；´∀｀)98 ：千 ◆ExGQrDul2E ：2008/07/06(日) 03 59 16 ID U54eer0o0 93 ですーｗ 何が楽しくてクローゼットの中にー いまだ異常なし テレビが消えることもなく 99 ：本当にあった怖い名無し：2008/07/06(日) 03 59 25 ID m/wg2kqH0 とりあえず 86を全て明るく補正したが変化無し 普通に物置の中の写真でした 100 ：本当にあった怖い名無し：2008/07/06(日) 03 59 41 ID KA3/WgUA0 そろそろ１時間になりますな。 107 ：本当にあった怖い名無し：2008/07/06(日) 04 00 54 ID u9TiPorqO 86 三枚目何か嫌だ、何でかな？ｗｗ109 ：千 ◆ExGQrDul2E ：2008/07/06(日) 04 01 49 ID U54eer0o0 107 もっかいそっちの方撮って見ますか？ 112 ：本当にあった怖い名無し：2008/07/06(日) 04 01 58 ID VDr2rGGg0 86 3枚目なんか写ってる 119 ：本当にあった怖い名無し：2008/07/06(日) 04 03 35 ID u9TiPorqO 109 うーん、何か写ってるとかじゃないからなぁ(´･ω･｀) いちおお願いできますか？120 ：千 ◆ExGQrDul2E ：2008/07/06(日) 04 03 39 ID U54eer0o0 3枚目たぶんPCの光の屈折でそうなってるっぽい 123 ：本当にあった怖い名無し：2008/07/06(日) 04 04 37 ID Ff0lhFoU0 じゃあ今のとこ何も異常はないということですか 125 ：本当にあった怖い名無し：2008/07/06(日) 04 04 50 ID aNf8DZBn0 86 一応３枚目補正してみたよ 127 ：本当にあった怖い名無し：2008/07/06(日) 04 04 59 ID m/wg2kqH0 ttp //www.uploda.org/uporg1526127.jpg.html あまりにも写ってる発言が多いため明るくしたのをうｐ どうみても光の反射だと思われ 129 ：本当にあった怖い名無し：2008/07/06(日) 04 05 42 ID aNf8DZBn0 張り忘れ 125 http //imepita.jp/20080706/146280 139 ：本当にあった怖い名無し：2008/07/06(日) 04 08 47 ID KA3/WgUA0 １時間経過したわけですが。140 ：千 ◆ExGQrDul2E ：2008/07/06(日) 04 08 51 ID RgVMX1AxO クローゼットの中の様子２ http //imepita.jp/20080706/147770 http //imepita.jp/20080706/148140 http //imepita.jp/20080706/148340163 ：千 ◆ExGQrDul2E ：2008/07/06(日) 04 13 33 ID U54eer0o0 149.150 ですｗ テレビ撮ったけど 異常なし171 ：千 ◆ExGQrDul2E ：2008/07/06(日) 04 16 05 ID U54eer0o0 めっさ平和だぞなんかｗｗｗ 小鳥が鳴きはじめてるしｗ213 ：千 ◆ExGQrDul2E ：2008/07/06(日) 04 26 22 ID U54eer0o0 あれたぬきさん大丈夫かな・・・222 ：千 ◆ExGQrDul2E ：2008/07/06(日) 04 28 45 ID U54eer0o0 なんでやってる本人達は落ち着いてるのに 周りのｈ（ｒｙ 229 ：本当にあった怖い名無し：2008/07/06(日) 04 30 14 ID KA3/WgUA0 225ずっと同じ姿勢でいるとそうなるよ。 時々伸びしたり、体勢変えるといい。 230 ：本当にあった怖い名無し：2008/07/06(日) 04 30 17 ID SkPK0saa0 225 肩が重いって言うか肩こった・・・シップはらねば・・・ 231 ：本当にあった怖い名無し：2008/07/06(日) 04 30 35 ID m/wg2kqH0 勇者が無事 →安心する そして術失敗or来なかった 周りが危険 →自業自得 怖い話で集まった霊が居ると思われる 232 ：本当にあった怖い名無し：2008/07/06(日) 04 30 57 ID sqnB+nVQ0 福島も明るいよー 鳥がチュンチュン鳴いてる233 ：千 ◆ExGQrDul2E ：2008/07/06(日) 04 31 09 ID U54eer0o0 そろそろ1時間半経過ですが 以前何もないのです 気配なども感じません 235 ：本当にあった怖い名無し：2008/07/06(日) 04 31 27 ID gHdpPMybO 周りからの集団ヒス…？ｗ 237 ：本当にあった怖い名無し：2008/07/06(日) 04 31 46 ID m/wg2kqH0 233 塩水口に入れて散策って手もあるよ 危険ではあるが246 ：千 ◆ExGQrDul2E ：2008/07/06(日) 04 33 22 ID U54eer0o0 228 流石です 何時になったらやめようかやめ時がわからんｗ 制限時間は2時間だが はてどうしたものか252 ：千 ◆ExGQrDul2E ：2008/07/06(日) 04 35 07 ID U54eer0o0 237 なるほどー 40分なたら ちょっと様子でも見るかなー ってかおわらしちゃうかもですが 皆さんいいですの？ 253 ：本当にあった怖い名無し：2008/07/06(日) 04 35 09 ID u9TiPorqO たぬき………さん？257 ：千 ◆ExGQrDul2E ：2008/07/06(日) 04 35 47 ID U54eer0o0 253 たぬきさん反応ないですね・・・・ 263 ：本当にあった怖い名無し：2008/07/06(日) 04 37 03 ID L2/XW3Ga0 とりあえず千さんはもうやめていいと思いますよ？ 一応限度は２時間だし・・・271 ：千 ◆ExGQrDul2E ：2008/07/06(日) 04 38 23 ID U54eer0o0 263 了解ー 終わらせてきますー 284 ：本当にあった怖い名無し：2008/07/06(日) 04 40 49 ID eQ9o6fhY0 271 千氏、乙でした 299 ：本当にあった怖い名無し：2008/07/06(日) 04 43 19 ID Hz3nXijf0 千さん おつかれさまです。無事のようでなによりです。 なにかあった、と訊かれると、何もなかった、 と答えるべきかもしれませんが、 少なくとも、何かしら（目の錯覚なりなんなり） 自分にはあったのだと思います……。 ちょい恐いんで、終わらせたいのですが、もう明るいですよね？ いちおう青白いっぽいのですが、出るのがメチャ恐いっす；320 ：千 ◆ExGQrDul2E ：2008/07/06(日) 04 49 03 ID U54eer0o0 おつですー 終わらせてきました ｱﾀﾏｲﾀｲ 写真少し撮ったのでうｐしますー しばしお待ちをー 323 ：本当にあった怖い名無し：2008/07/06(日) 04 49 31 ID L2/XW3Ga0 320 千さんおつかれさまでした 326 ：本当にあった怖い名無し：2008/07/06(日) 04 49 57 ID SkPK0saa0 千氏オツです！ 327 ：本当にあった怖い名無し：2008/07/06(日) 04 50 09 ID aNf8DZBn0 320 お疲れ様～ 328 ：本当にあった怖い名無し：2008/07/06(日) 04 50 18 ID KA3/WgUA0 千氏お疲れ様です。 写真の方騒がれてるみたいですがｗ 332 ：本当にあった怖い名無し：2008/07/06(日) 04 50 40 ID u9TiPorqO 320 千さんお疲れさまです(´･ω･｀)無事でなにより 333 ：本当にあった怖い名無し：2008/07/06(日) 04 50 41 ID j7EkEnV20 千氏乙！ 334 ：本当にあった怖い名無し：2008/07/06(日) 04 50 43 ID 3GXR4hXVO 310の人気に嫉妬 335 ：本当にあった怖い名無し：2008/07/06(日) 04 50 45 ID 3+IZsR4BO 320 千氏ご苦労様でした。 酸欠大丈夫？337 ：千 ◆ExGQrDul2E ：2008/07/06(日) 04 51 07 ID U54eer0o0 311 ちょｗｗ おっさんに見える 涙出てきた； 結構鮮明にわかりますね・・・ 338 ：本当にあった怖い名無し：2008/07/06(日) 04 51 15 ID XEpJyjY+O 千さんお疲れ様( -^*)/ 339 ：本当にあった怖い名無し：2008/07/06(日) 04 51 19 ID m/wg2kqH0 千氏お疲れ様でした 340 ：本当にあった怖い名無し：2008/07/06(日) 04 51 19 ID U2aolpEiO 千氏乙！ 342 ：本当にあった怖い名無し：2008/07/06(日) 04 51 30 ID 9WHIdNEj0 千氏乙でした！！ 343 ：本当にあった怖い名無し：2008/07/06(日) 04 51 31 ID jlQBxHDa0 千氏おつかれさま＾＾ こんなはっきり見えるとなんか信じられない・・・ 346 ：本当にあった怖い名無し：2008/07/06(日) 04 52 27 ID gHdpPMybO 千氏激しく乙です。 ゆっくり休んで下さい。 311 笑う子供に見える零感な自分が憎いぜ… 349 ：本当にあった怖い名無し：2008/07/06(日) 04 52 50 ID kTKR8qy30 千氏、たぬき氏オツカレさまー 353 ：本当にあった怖い名無し：2008/07/06(日) 04 53 15 ID xsT9vg+5O 千氏お疲れ様。 おまいテンプレ見たって嘘だったろｗｗｗｗｗゆっくり休めよ 354 ：本当にあった怖い名無し：2008/07/06(日) 04 53 23 ID /am0pumg0 両勇者おつ！とりあえず何もなくてなによりだ364 ：千 ◆ExGQrDul2E ：2008/07/06(日) 04 56 04 ID RgVMX1AxO 終わったー 様子 http //imepita.jp/20080706/170950 http //imepita.jp/20080706/175800 http //imepita.jp/20080706/176100 http //imepita.jp/20080706/176590 367 ：本当にあった怖い名無し：2008/07/06(日) 04 58 16 ID 84spGhmx0 千氏、たぬき氏乙でした！369 ：千 ◆ExGQrDul2E ：2008/07/06(日) 04 59 26 ID U54eer0o0 353 え？なんでそのように思ったんですカー？374 ：千 ◆ExGQrDul2E ：2008/07/06(日) 05 00 31 ID U54eer0o0 たぬきさんお疲れ様でしたー やっぱり息苦しいですね 狭くて息苦しくて 暗くて目もやられる気がするし 出るとき少し怖かった 376 ：本当にあった怖い名無し：2008/07/06(日) 05 01 31 ID gHdpPMybO 369 私の勝ちって4回言いそうになったからでは？379 ：千 ◆ExGQrDul2E ：2008/07/06(日) 05 04 02 ID U54eer0o0 376 それ俺じゃないっすｗ393 ：千 ◆ExGQrDul2E ：2008/07/06(日) 05 10 17 ID RgVMX1AxO 375 たぶんお酒の瓶かも 明るい写真 大体同じ角度から http //imepita.jp/20080706/184370397 ：千 ◆ExGQrDul2E ：2008/07/06(日) 05 11 40 ID U54eer0o0 って俺写ってるｗｗｗｗｗｗｗｗｗ 俺テラばかすｗ 402 ：本当にあった怖い名無し：2008/07/06(日) 05 13 24 ID ENHkSiJT0 あ、ねえ 鏡に映ってる千さんの足、右足なくない？ つづく クリックしてください ↓2008年7月6日千 ◆ExGQrDul2Eその３
https://w.atwiki.jp/gcui/pages/24.html
regperm.exe レジストリキーの権限を変更する WinNT/2000用 http //homepages.cae.wisc.edu/~micro/regperm/regperm.zip http //homepages.cae.wisc.edu/~micro/index.html REGPERM [\\電子計算機] /K レジストリキー /A 使用者 権限 /D 使用者 権限 /R /I /F /S /E /C /Q /? 引数 \\電子計算機 権限を変更する遠隔機の名前 /K ﾚｼﾞｽﾄﾘｷｰ 権限を適用するキー名。 遠隔機に接続するなら、HKEY_LOCAL_MACHINE、HKEY_CURRENT_USER とそれら以下の副キーのみ指定して下さい。 もし、キー名に空白が含まれているなら""で囲って下さい。 /S ﾚｼﾞｽﾄﾘｷｰのDACLを指定した値に変更する。他の使用者は削除(既定) /E レジストリキーのDACLを編集する /A X Y 使用者/団体 Xに、Yの権限を付与する /D X Y 使用者/団体 Xに、Yの権限を剥奪する /R 全ての副キーのDACLも対象にする /I このキーの継承を有効にする。 /F 副キーにも継承を強制する /C 回復可能なエラーが出ても続行する /Q 静かな形態、コンソール出力を表示しない /? このヘルプを表示する /info Regpermの情報を表示する 権限 Q - 値の参照 L - Linkの作成 W - 値の書込 D - 削除 C - 副キーの作成 S - 安全情報の読込 E - 副キーの列挙 A - DACLの書込 N - 変更の通知 O - 権限の書込 R - 読み込み(QENSと同じ) F - 完全なアクセス(QWCENLDSAOと同じ) 意見 使用者、団体の権限を指定する時、このプログラムは一語で使用者/団体名を 仮定します。名前に空白があれば、""で囲まなければなりません。 団体名の例 Administrators, Everyone, Power Users, etc... are valid although it is possible in WinNT to create a local user account with the name matching that of an existing group. In this case, the user account masks the group account, leading to possibly undesired results. コマンドラインの引数は、後で指定されたものが優先されます。
https://w.atwiki.jp/kakimemo/pages/567.html
サービス一覧 エス語 翻訳 http //ja45.ilovetranslation.com/ Unikoda konvertilo http //komputeko.net/konvertilo.htm OCR http //www.i2ocr.com/free-online-esperanto-ocr konvertilo http //www.komputeko.net/konvertilo.htm WEB辞書 http //esperanto.mond.jp/index.html#espvortaroj 翻訳 http //ja45.ilovetranslation.com/ ラジオチェリーゾエデューカ http //youtu.be/Z-jH55jxTjk RO_pdf http //www.jei.or.jp/cgi-bin/protekto/protekto.cgi http //www.jei.or.jp/cgi-bin/protekto/enigi.cgi salutvorto kakiya_isao pasvorto 20111230 頭上符変換 http //www.esperanto.se/x-al-unikodo.html AMEBRIETO http //amebrieto.jimdo.com/ amebrieto2012 vinilkosmo http //www.ipernity.com/blog/vinilkosmo http //muzaiko.info/ 動画 http //www.youtube.com/watch?v=SrOG5OI-hjU 辞書html http //www.jei.or.jp/komputilo/pejvo/index.html yatu_domo http //www.geocities.jp/yatu_domo/litrezervo10.htm 辞書引き http //vortaro.ermitejo.com/ nabeta http //onlineesperanto.nabeta.tk/ dictionary http //www.daws.jp/dictionary/ Wikizamplo http //eo.wikizemplo.wikia.com/wiki/Ĉefpaĝo トラちゃんの部屋 http //esperanto.wakatono.jp/ Malferma Esperanta Komunumo. http //esperanto.wikia.com/wiki/%C4%88efpa%C4%9Do エスペラントの部屋 http //homepage1.nifty.com/esperlando/jp/ ‐Rハバーノ http //www.ameriko.org/eo/rhc ‐kakiya2010 http //kakiya2010.jimdo.com/ 掲示板 MPCチケット http //8241.teacup.com/kuusekizero/bbs 末広会掲示板 http //8503.teacup.com/suehiro/bbs. 気まま会掲示板 http //ppp.atbbs.jp/kimama/ 大鳥小 http //8240.teacup.com/ootori25/bbs twitter cx- ĉ http //twitter.com/ シーバス http //www.seabass-ltd.com/ 耳 音楽検索 http //www.tunecrawl.com/ Bach http //www.cyberbass.com/Major_Works/Bach_J_S/bach_js_b_minor_mass.htm shoutcast_player http //www.shoutcast.com/shoutcast_player?stationid=3671 Genre=Piano ContentFlag=1 shoutcast http //www.shoutcast.com/radio/Classical ‐ブッフビンダー ピアノ http //www.buchbinder.net/ ottava http //ottava.jp/live/player.php http //ottava.jp/ xiph http //dir.xiph.org/ aol http //music.aol.com/ Happy Classic- http //www.shoutcast.com/sbin/shoutcast-playlist.pls?rn=121342 file=filename.pls ｵｯﾄｰﾊﾞﾛｯｸ http //www.shoutcast.com/sbin/shoutcast-playlist.pls?rn=4786 file=filename.pls http //www.shoutcast.com/sbin/shoutcast-playlist.pls?rn=692 file=filename.pls http //www.shoutcast.com/sbin/shoutcast-playlist.pls?rn=9077 file=filename.pls http //www.shoutcast.com/sbin/shoutcast-playlist.pls?rn=398390 file=filename.pls http //www.shoutcast.com/sbin/shoutcast-playlist.pls?rn=7857 file=filename.pls http //www.shoutcast.com/sbin/shoutcast-playlist.pls?rn=1668 file=filename.pls publicradio http //publicradiofan.com/ http //publicradiofan.com/cgibin/whatson.pl?when=now type=music http //pri.kts-af.net/redir/index.pls?esid=244afe988b58ef110531fc873992af0b url_no=1 client_id=7 uid=68efed4d03ec7e45fd3978262c107180 clicksrc=xml Podcast polskieradio http //www.polskieradio.pl/podcast/39/podcast.xml ingvokasto http //feeds.feedburner.com/lingvokasto メモ http //mogi2fruits.net PC・スマホ・WEBサービスなどIT関連情報ほか、ビジネス書を中心とした書評、経営するラーメン屋のことも書いていこうかと模索中。 http //juggly.cn/ 国内・海外のAndroid（アンドロイド）スマートフォン・タブレットに関するニュースや情報、AndroidアプリのレビューやWEBサービスの活用、Android端末の紹介などをお届けする個人運営ブログ。 clptest http //clptest.jimdo.com/ kakiya2010 http //kakiya2010.jimdo.com/ lattesa http //www.lattesa.co.jp/ 時計のスクリーッンセーバー http //shirtmullet.com/flip/ DSTT http //gmasav9.livedoor.biz/archives/65316567.html http //www.geocities.jp/daihukucho/index.html カレンダー作成 http //sheet.zoho.com/open.do?docid=449228000000014001 MPC http //www.kaneko-oodougu.com/hiradai.htm http //www.lattesa.co.jp/blog.php?id=14 XP高速化 http //www.yukawanet.com/sunday/2008/12/windows.html GMDesk http //www.robertnyman.com/gmdesk/ http //www.oshiete-kun.net/archives/2008/02/quick_media_converter.html http //www.lifehacker.jp/2008/08/dexpose2mac_expose.html http //my.yahoo.co.jp/ http //68766319.at.webry.info/ http //www.printing.ne.jp/ 練習予定? はてなアンテナ PICASAウェッブアルバム-- http //picasaweb.google.com/home 写真集 Gグループ-- http //groups.google.com/group/bokuryomg?hl=ja Google Docs Spreadsheets-- http //docs.google.com/ かきやぶろぐ - http //d.hatena.ne.jp/isw/ インターネットラジオ-- http //www5a.biglobe.ne.jp/~k-horn/ipradio01.html my hatena http //www.hatena.ne.jp/my Libura http //libura.com/ 青春18切符 http //www.jorudan.co.jp/norikae/cgi/nori.cgi?S=1 pg=1 one.ubuntu https //one.ubuntu.com/files/#path=/My%20Files sugarsync https //kakiyaisao.sugarsync.com/home jimdo http //kakiya2010.jimdo.com zumodrive http //www.zumodrive.com/ LiveCD http //simosnet.com/livecdroom/index.html 本牧商店街 http //www.honmoku-street.com/ 横浜タウン情報 http //www.yokohama-town-navi.jp/ 3600R http //www.aterm.jp/wimax/support/wm3600r/part.html SkyDesk https //portal.skydesk.jp/index.do#url/%2F%2Fmail.skydesk.jp%2Fmail%2Fhome.do%3Ftop%3Dfalse Win google https //www.google.com/search?sugexp=chrome,mod=10 sourceid=chrome ie=UTF-8 q=Windows+8%E2%80%83TIPS 読む 安保徹ホームページ http //toru-abo.com/# y-asakawa http //www.y-asakawa.com/index.html 巨石巡礼 http //home.s01.itscom.net/sahara/stone/ 英国の有史以前の巨石 http //blogs.yahoo.co.jp/kodaiiseki2000/folder/1669211.html ９/１１トリック http //homepage.mac.com/ehara_gen/jealous_gay/muck_raker.html チェコ旅行記 http //www.geocities.jp/ceskamesta/ チェコ地図 http //mapy.atlas.cz/#x=-732481@y=-1046679@cs=1@sidx=8@pg=1@pl=@app=0@sbar=c 二階堂ドットコム http //www.nikaidou.com/ ぬぬぬ http //interceptor.blog13.fc2.com/ ４つの目で世の中を考える http //310inkyo.jugem.jp/ http //maglog.jp/shinsousagurou/Article603995.html マスコミが報道しない事実 http //plaza.rakuten.co.jp/31sakura/ 目 squidtv http //watch.squidtv.net/ ‐ＤＶＤの映像データを抽出 http //www.geocities.jp/cdt06170/3gp/howtodvd.html イカ天TV http //ikaten.squidtv.net/ 国会TV http //www.shugiintv.go.jp/jp/ .
https://w.atwiki.jp/tar0_puzzle/pages/32.html
Chapter 2.1 名前 Exercise 2.1 (define (make-rat n d) (define (cons-rat n d) (let ((g (gcd n d))) (cons (/ n g) (/ d g)))) (if ( (* n d) 0) (cons-rat (- (abs n)) (abs d)) (cons-rat (abs n) (abs d)))) Exercise 2.2 (define (average x y) (/ (+ x y) 2)) (define (make-segment p q) (cons p q)) (define (start-segment seg) (car seg)) (define (end-segment seg) (cdr seg)) (define (make-point x y) (cons x y)) (define (x-point p) (car p)) (define (y-point p) (cdr p)) (define (midpoint-segment s) (let ((p (start-segment s)) (q (end-segment s))) (make-point (average (x-point p) (x-point q)) (average (y-point p) (y-point q))))) Exercise 2.3 Exercise 2.4 ; cons,car,cdrを手続きで表現する (define (cons2 x y) (lambda (m) (m x y))) (define (car2 z) (z (lambda (a d) a))) (define (cdr2 z) (z (lambda (a d) d))) Exercise 2.5 非負整数のペアをで表現する (define (count-factor factor num cnt) (if (= (remainder num factor) 0) (count-factor factor (/ num factor) (+ cnt 1)) cnt)) (define (cons3 a b) (if (and ( a 0) ( b 0)) (* (expt 2 a) (expt 3 b)) 0)) (define (car3 z) (count-factor 2 z 0)) (define (cdr3 z) (count-factor 3 z 0)) Exercise 2.6 (define zero (lambda (f) (lambda (x) x))) (define (succ n) (lambda (f) (lambda (x) (f ((n f) x))))) ; (succ zero) ; (lambda (f) (lambda (x) (f ((zero f) x)))) ; (lambda (f) (lambda (x) (f ((lambda (x) x) x)))) (define one (lambda (f) (lambda (x) (f x)))) ; (succ one) ; (lambda (f) (lambda (x) (f ((one f) x)))) ; (lambda (f) (lambda (x) (f ((lambda (x) (f x)) x)))) (define two (lambda (f) (lambda (x) (f (f x))))) ; PLUS = λm n f x. m f (n f x) (define (plus m n) (lambda (f) (lambda (x) ((m f) ((n f) x))))) ; ついで, Church数から普通の整数に変換 (define (church-to-number n) (define (inc x) (+ x 1)) ((n inc) 0)) Church numeral ラムダ計算 0 = λfx.x == λf.(λx.x) 1 = λfx.fx 2 = λfx.f(fx) succ = λnfx.f((n f) x) nとは, fを受け取ってfをn回適用する手続き Exercise 2.7 (define (l-b i) (min (car i) (cdr i))) (define (u-b i) (max (car i) (cdr i))) ;(car i) (cdr i)の関係が保証されているとするなら (define (lower-bound i) (car i)) (define (upper-bound i) (cdr i)) Exercise 2.8 (define (sub-interval x y) (add-interval x (make-interval (* -1 (upper-bound y)) (* -1 (lower-bound y))))) Exercise 2.9 (define (width x) (/ (- (upper-bound x) (lower-bound x)) 2)) 和差 x1 = [l1,u1], x2 = [l2,u2] width(x1)+width(x2) = (u1-l1)/2 + (u2-l2)/2 x1 + x2 = [l1+l2,u1+u2] width(x1+x2)={(u1+u2)-(l1+l2)}/2=(u1-l1)/2 + (u2-l2)/2 x1 - x2 = [l1-u2,u1-l2] width(x1-x2)={(u1-l2)-(l1-u2)}/2=(u1-l1)/2 + (u2-l2)/2 積商 x1 = [6,8], x2 = [1,2] width(x1)=1, width(x2)=1/2 x1 * x2 = [6,16] width(x1 * x2) = (16-6)/2 = 5 width(x1) * width(x2) = 1/2 x1 / x2 = [3,8] width(x1 / x2) = (8-3)/2 = 5/2 width(x1) / width(x2) = 2 Exercise 2.10 (define (div-interval x y) (define span (and ( = (lower-bound y) 0) ( = 0 (upper-bound y)))) (if span (error "perhaps division by zero") (mul-interval x (make-interval (/ 1.0 (upper-bound y)) (/ 1.0 (lower-bound y)))))) Exercise 2.11 Exercise 2.12 ; intervalをcenterと誤差(percent)で定義する ; (define (make-center-percent c per) (let ((err (/ (* c per) 100.0))) (make-interval (- c err) (+ c err)))) (define (center i) (/ (+ (upper-bound i) (lower-bound i)) 2)) (define (width i) (/ (- (upper-bound i) (lower-bound i)) 2)) (define (percent i) (/ (* 100.0 (width i)) (center i))) Exercise 2.13 演算結果はそれぞれ次のものと同値 ;par1 (make-interval (/ (* (lower-bound r1) (lower-bound r2)) (+ (upper-bound r1) (upper-bound r2))) (/ (* (upper-bound r1) (upper-bound r2)) (+ (lower-bound r1) (lower-bound r2)))) ;par2 (make-interval (/ (* (lower-bound r1) (lower-bound r2)) (+ (lower-bound r1) (lower-bound r2))) (/ (* (upper-bound r1) (upper-bound r2)) (+ (upper-bound r1) (upper-bound r2)))) Exercise 2.14
https://w.atwiki.jp/isys/pages/6.html
perl5.8のメモ データの受け取りは CGI.pmでできるらしい $cgi = new CGI; #formデータのキー名一覧を取得(この前は間違ってました) @in = $cgi- param(); 送られてくるフォームデータはブラウザによって文字コードが違う…… スクリプトと同じ文字コードに変換しないと参照すらまともにできない Encodeを使って内部utf8形式に変換する use Encode use Encode Guess qw/shiftjis euc-jp 7bit-jis utf-8/; binmode (STDOUT," utf8"); #フォームデータの文字コードを解析します $enc = Encode Guess- guess($form_data); if(!ref($enc)){ #解析失敗 }else{ #解析に成功したので変換する $str = $enc- decode($form_data); } エンコードを指定してファイルを読み込む #shiftjis形式で保存されたログファイルを内部UTF-8 #に自動変換して読み込みます open(IN, " encoding(shiftjis)", "data.log");
https://w.atwiki.jp/duchida/pages/30.html
CPANの起動コマンド perl -MCPAN -e shell find `perl -e print "@INC" ` -name *.pm -print perl -MXML RSS -e