約 1,913,482 件
https://w.atwiki.jp/avernum/pages/2003.html
種族・所属 ゲイザー 性別 不明 解説 Nociduasの実験場の片隅に巣食っていたゲイザー。 大地の裂け目から発生する魔力をものともしないNociduasには一目置いていたようで、知識や物資などをお互いに融通しあっていた。 Nociduas以外の人間に対しては決して好意はもっていなかったが、劣った生物と見なしている「足の生えた生き物」に干渉されるのは鬱陶しい、という程度で、積極的に攻撃しようというほどの敵意はなかったようだ。 登場作品・場所・役職等 Avernum6 Lair of Nociduas北側の段差上の部屋 ゲイザー 備考
https://w.atwiki.jp/emulator/pages/17.html
DC版で限界チャレで遊んでたのでちょっと思い入れあったりします( ^ω^) PhantasyStarOnline VIP@Wiki 【PSO】エミュレーターサーバー総合スレッド 9ﾒﾒﾀｧ 【PSO】エミュレーターサーバー総合スレッド 10ﾒﾒﾀｧ 【PSO】エミュレーターサーバー総合スレッド 11ﾒﾒﾀｧ 【PSO】エミュレーターサーバー総合スレッド ep12 SCHTHACK hosts 127.0.0.1 game01.us.segaonline.jp 127.0.0.1 patch01.us.segaonline.jp 127.0.0.1 psobb-ep4-db.segaonline.jp TOOL ttp //www.uploda.net/cgi/uploader3/index.php?dlpas_id=0000006360.zip pass@psobb 同梱のPsoBB.exeではなく、下のプログラムを使います ディレクトリPHANTASY STAR ONLINE Blue Burstを開いていると Runボタンが出てこないのでお気をつけください 解凍してpsobb2.exeをPsoBB.exeと同じところに置きます( ^ω^) ttp //www.planetpsu.net//forum/download2/psobb2.rar これにもpsobb2.exeがはいっています PsoBB No GG Loader ttp //www.freewebs.com/daco_65/downloads/PsoBBLoader.zip
https://w.atwiki.jp/doroboumama/pages/7261.html
ドルフィー女史 250 ：名無しの心子知らず：2011/05/31(火) 08 12 42.91 ID vxYNh9X+ 独身ですが、現在進行形の泥話。 15分前に家を出て、定期忘れた事に気付いて家に引き返したら部屋に人。 思わずぎゃあああ！と叫んだら泥が窓から逃走。 そしてベランダから落ちて救急車で運ばれて行った…。 Kの方が来て聴取やら何やらをしている。 部屋の物、かなり無くなってるなぁ。と他人事の様に思ってる。 SDよ、無事に帰ってきておくれよ…。 今日月末なのに、どうしてくれよう。はぁ。 251 ：名無しの心子知らず：2011/05/31(火) 08 20 56.76 ID JCL2Ua20 気になる！気になる、がママなのか？！ママなのかっ？！ 252 ：名無しの心子知らず：2011/05/31(火) 08 21 50.85 ID onLt3nRr ドルフィー？ 253 ：名無しの心子知らず：2011/05/31(火) 08 30 42.84 ID vxYNh9X+ 多分母親。 どっかのベランダで、子供がママー！ママー！って泣き叫んでるのが聞こえる。 ドルフィーいなくなってるよ…。こっちが泣きたい…。 254 ：名無しの心子知らず：2011/05/31(火) 08 39 25.36 ID FHHIx0yw 253 乙 書けるようなら続報ヨロ 255 ：名無しの心子知らず：2011/05/31(火) 08 44 56.26 ID Pymi4GsI 250 うへぇ……朝っぱらからお疲れ様。 今日ばっかりは定期忘れたのも怪我の功名だったかもね。 ＳＤの無事を祈りつつ、続報あればヨロ。 256 ：名無しの心子知らず：2011/05/31(火) 08 49 16.86 ID 9Rfap2/g ベランダ伝いに侵入したのかな…？ 実は前から少しずつ盗ってたとか 人形服は凝りだしたらﾌﾞﾗﾝﾄﾞ子供服くらいの値段はするから、けっこうな痛手よね 261 ：250：2011/05/31(火) 09 14 15.70 ID vxYNh9X+ 会社に電話したら、 「仕事の事は気にしないでいい。困った事があったらすぐ電話するように。」 と支店長が言ってくれました。有難い…。 通帳も無くなってた。 SDは一番お気に入りの子がいなくなってた。 清水の舞台から飛び降りたつもりで買ったバッグも無くなってる。 部屋のガラスも割れてる。 どうしたらいいんだ…。はぁ。 263 ：名無しの心子知らず：2011/05/31(火) 09 18 19.27 ID u5skAEk3 盗品はその辺に落ちてるとか警察が証拠品として回収したとかではなく 現在も行方不明中ってこと？ 泥は逃走中に転落して病院だよね。 何度かにわけて自分の部屋にでも運び込んでたのか？ 264 ：名無しの心子知らず：2011/05/31(火) 09 19 14.16 ID UaJmbDmZ 261 本当に乙です…。 まずは、無くなっている物をメモ。大丈夫とは思うけど、銀行にも連絡。 泥棒が逆切れしたり、その家族がゴネたりするかもだから、 弁護士を探した方がいいんじゃない？ 盗品の返還も、専門家がいた方がスムーズにいくんじゃないかな。 299 ：250：2011/05/31(火) 13 41 40.44 ID vxYNh9X+ とりあえず一時休憩。 もう疲れた。 被害総額が50万超＋通帳なので被害届を提出。 泥の住んでいる場所は2軒隣だった…。 ガラスは管理会社が7時迄に入れ替えをしてくれると連絡がありました。 あと部屋の掃除もクリーニング業者も一緒に来るみたい。 泥は骨にヒビが入ってるらしい。 だけどあれは「盗難ではなく、ただ借りようと思っただけ。」と言ってるみたいです。 弁護士は大学の先輩のツテを頼るか支店長にお願いするか思案中。 何せ両親共々既にこの世の人では無いのでこういう時大変です…。 300 ： 忍法帖【Lv=2,xxxPT】 【東電 69.8 %】 ：2011/05/31(火) 13 47 25.69 ID 3RlP7o8/ 299 乙、定期忘れて良かったね でもその泥ママ朝から泥って相当手慣れているんじゃ？ ガラス割って入るとか悪質すぎ。 304 ：名無しの心子知らず：2011/05/31(火) 14 19 50.56 ID +VsUJWbw 299乙 無断借用は泥棒だよｗその辺は警察に任せておｋ SDは大丈夫だった？ もしや以前からちょくちょく盗んでいたのではないかなって思うんだがどうだろう 305 ：名無しの心子知らず：2011/05/31(火) 14 22 42.92 ID EZNItT8U 299 これから大変だろうけど、体に気をつけて頑張って下さい。 しっかし借りるのに窓ガラス割って入るかよｗ 持ち主が来て慌ててベランダから飛び降りるかってのｗ 弁護士が入ったら連絡とかあるだろうから仕事のこともあるし支店長が良いような気もする。 平日に仕事抜けなきゃならないとかあっても配慮してもらえるでそ？ 311 ：250：2011/05/31(火) 14 56 35.39 ID vxYNh9X+ 引越ししたいのはやまやまなんですが、今住んでいる所は姉夫婦の物なんです。 姉夫婦が海外転勤になり、最低5年は帰ってこない。→他人に貸すのは気が引ける。 →独身の妹(私)に貸せばいい！と言った感じです。 ここに書いた事で姉夫婦に電話しなくてはいけないと思い立ちました。 電話してきます。 あとSDは期待しない方がいいみたいです…。 泥と一緒に3階から落ちて、下敷きになったっぽいので。 他の物はどうやら無事みたい。 一番大事な物がダメだと凹みますね…。 ガラス入れ替えとクリーニング業者が5時には来てくれる事になりました。 少し安心です。 312 ：名無しの心子知らず：2011/05/31(火) 14 58 01.82 ID DbtizQ6j ＞250 弁護士はやはり会社に依頼した方がいいでしょう。 若い女性一人だと向こうも舐めてかかろうとするかもしれないから。 250さんのバックに企業が控えてて睨み効かせてるんだと向こうにわからせて おいたほうがいいです。 314 ：名無しの心子知らず：2011/05/31(火) 15 14 26.61 ID Tr9LR13t 250さんおつ せめてヘッドに傷が無いか有償交換ができるタイプの子だったら良いんだけど。 それでも「自分の大切にしてた子」が帰ってくる訳じゃないからやりきれないよね。 できるだけ元に近い状態で人形が帰ってくるように祈ってるよ。 328 ：250 ◆erI3PeI.zQ：2011/05/31(火) 18 46 38.35 ID vxYNh9X+ トリちゃんと付いてるかな？ 本当に皆様有難うございます…。 一人だったら心細くて途方に暮れる所でした…。 とりあえず姉に電話をしたのですが、怒り狂って 「今から帰る！今から飛行機手配する！」とか言い出したので 産まれて半年の子供もいるのに何時間も飛行機に乗るのは無茶。 頼むから無理を言わないでと押し留めました。 こちらの状況を伝えて電話を切った数分後に義兄から電話が来ました。 「奥さんから聞いたよ。泥棒に入られたんだって？ 奥さんが今すぐ帰ると息巻いてたけど、今から飛行機押さえて僕が帰るからー。」 との事。 いやいやいやいや！海外勤務してる旦那さんに迷惑をかける訳には！ と固辞したのですが 「ほらー、色々手続きあるしー、僕一応手慣れてるし。 多分弁護士手配しなきゃダメだけど、後ろ楯は僕の会社の方が箔が付くでしょー？」 (義兄の会社は確かに有名企業)と言ってくれたので、有り難くお願いする事にしました。 先程ガラスが入れ替えられて(ちゃんと防犯ガラスでした)掃除が終わりました。 その後会社に電話したら、支店長と課長が来て話を話を聞きたいとの事なので、 今待っている所です。 一晩だけど、避難した方がいいのかなぁと考えてる所です。 それにしてもSD…。(つдT) 329 ：名無しの心子知らず：2011/05/31(火) 18 52 29.44 ID A6rFKoAg 328 乙。身の安全を最優先にして徹底的にやってくださいｗ 330 ：名無しの心子知らず：2011/05/31(火) 19 05 29.83 ID gQnUKb3d 250 乙です。 弁護士さん手配してもらえるようでよかったね。 ちゃんとSDの弁償してもらえるようだったら、購入価格じゃなくていくらかかっても (例えオクで買わせることになっても)、現品で弁償してもらうんだよー 限定の子だと定価でなんか手に入らないもんね。 331 ：名無しの心子知らず：2011/05/31(火) 19 07 06.81 ID JycBk9o9 328 乙です。 今夜は男の人が居る方がいいよね。 支店長達と話して避難するって決まったら一緒に家を出てもらったほうが良いよ。 356 ：250 ◆erI3PeI.zQ：2011/05/31(火) 22 31 20.89 ID vxYNh9X+ ホテルに避難して、食事してお風呂入ってきました。 やっと人心地ついた気がします。 支店長達はプリンを手土産に今日の事情をさらっと聞きに来ました。 (なにぶん警察沙汰なので。) すぐに義兄が帰国してくれる事と、弁護士が入る事、明日は一応会社に行く予定 だと伝えました。 避難した方がいいかと一応お伺いをたてると、避難した方が安全だろうと言うので、 ホテルに避難して来ました。 盗まれたドールは限定とかではないのですが、一番最初に家に迎えた子で 姉を巻き込み色々悩みに悩んだだけ思い入れが強いんですよ。 だから泥の下敷きになったのかと思うとやりきれない…。 今日は本当に有難うございました。 皆様の励ましで何とか乗りきれた感があります。 また何か進展がありましたら、ご報告致します。 おやすみなさい。 357 ：名無しの心子知らず：2011/05/31(火) 22 32 39.99 ID A6rFKoAg 356 乙。今日はゆっくり休んでね。 553 ：250 ◆erI3PeI.zQ：2011/06/02(木) 08 42 28.85 ID j/8Z3vMh おはようございます。 泥ママにSD盗まれた者です。 昨日は義兄が帰国し、弁護士さんと会い、泥旦那と泥ママ母親の襲撃に遭いました。 弁護士さんはとてもいい方で似た様な案件を取り扱った事があるとの事でした。 安心してお任せできそうです。 泥旦那は義兄が家に帰宅して、しばらくした頃にやって来たようです。 玄関先でいきなり土下座して、今回はほんの出来心。 頼むから被害届を取り下げて欲しいと上目遣いで頼んだそうですが、 義兄はにこやかにお断りします。弁護士からご連絡しますね、と一蹴(したらしい)。 私が帰宅した際に、泥ママ母親が部屋の前にいて 「今後の近所付き合いもあるし、被害届を取り下げる事は貴女にとっても いい事じゃないかしら？弁護士なんて大袈裟ね。」等と言ってきたので 「盗人猛々しいですね。」と言っておきました。 味方も増えたし、負けません！ 557 ：名無しの心子知らず：2011/06/02(木) 09 02 03.50 ID 3yQWcWoX 553 今後の近所づきあいってｗ 犯罪者が今後も人付き合いしていけると思ってるあたり 流石泥の製造元ですな 559 ：名無しの心子知らず：2011/06/02(木) 09 09 21.13 ID wjyH4VM5 553 やっぱり家族の襲撃あったねぇ…乙でした。 頼れる身内の方や弁護士さんがついてくれたようですし、一安心ですね。 ただ、相手はアタマのオカシイ人たちのようなので、常人には考え付かないような事を しでかすので、身の安全には注意してくださいね。 弁護士さんからも、いろいろ指示が出ているかと思います。 頑張ってください！ 560 ：名無しの心子知らず：2011/06/02(木) 09 11 31.30 ID f15F7JFZ 553 義兄さん早！ほんとにすぐ飛行機に飛び乗ったんですね。 弁護士も決まって良かった良かった。 ＞似た様な案件を取り扱った事がある 頼もしいやら、他にもこんな事件がマジであるのかと思うと鬱 ともあれ、お元気になられて良かった！ 居直り泥は怖そうですから、どうぞお気を付けて 751 ：250 ◆erI3PeI.zQ：2011/06/03(金) 08 15 51.42 ID FIWuEAXi おはようございます。 250です。 どうやら私達は泥達から訴えられるらしいです。 泥旦那が「ウチの奥さんをベランダから突き落とした！」と言い張っています。 もう好きにして下さい。と言った心境です。 そもそもゴム手袋までして、窓ガラスを割って土足で家を荒らしたのは どこのどなたでしたっけ？ と弁護士さんと義兄は呆れています。 突き落としたのなら泥ママの服に私の皮膚の組織残ってる筈 (どっちにしても向こうが勝手に落ちたから組織は残ってないと思う。) と弁護士さん 出るトコ出て、恥かかしちゃおうかー。そっちの方が面白そうだよねー。と義兄。 マンションの他の住民の方には、今の所変な目で見られたりはしていないので安心しています。 先は長そうですが、頑張ります。 あ、SDはやっぱりダメでした…。 でも私の身代わりになってくれたんだ、と考えるようにしてます。 他の報告者の方も無事に解決しますように。 （編集注：参考画像。SD＝スーパードルフィー） 続きはこちら→ドルフィー女史２ 次のお話→置物奥（281）
https://w.atwiki.jp/deepbluesaga/pages/12.html
人気商品一覧 @wikiのwikiモードでは #price_list(カテゴリ名) と入力することで、あるカテゴリの売れ筋商品のリストを表示することができます。 カテゴリには以下のキーワードがご利用できます。 キーワード 表示される内容 ps3 PlayStation3 ps2 PlayStation3 psp PSP wii Wii xbox XBOX nds Nintendo DS desctop-pc デスクトップパソコン note-pc ノートパソコン mp3player デジタルオーディオプレイヤー kaden 家電 aircon エアコン camera カメラ game-toy ゲーム・おもちゃ全般 all 指定無し 空白の場合はランダムな商品が表示されます。 ※このプラグインは価格比較サイト@PRICEのデータを利用しています。 たとえば、 #price_list(game-toy) と入力すると以下のように表示されます。 ゲーム・おもちゃ全般の売れ筋商品 #price_list ノートパソコンの売れ筋商品 #price_list 人気商品リスト #price_list
https://w.atwiki.jp/sicpstudygroup/pages/92.html
SICP naga Exercise 5.23 ;;; eval-dispatch に追加 (test (op cond?) (reg exp)) (branch (label ev-cond)) (test (op let?) (reg exp)) (branch (label ev-let)) (test (op let*?) (reg exp)) (branch (label ev-let*)) ;;; eval に追加 ev-cond (assign exp (op cond- if) (reg exp)) (goto (label eval-dispatch)) ev-let (assign exp (op let- combination) (reg exp)) (goto (label eval-dispatch)) ev-let* (assign exp (op let*- nested-lets) (reg exp)) (goto (label eval-dispatch)) ;; test programs (define (cond.test) (format "cond.test[greater] ~s~%cond.test[equal] ~s~%cond.test[2] ~s" (cond (( 3 2) greater) (( 3 2) less)) (cond (( 3 3) greater) (( 3 3) less) (else equal)) (cond ((assoc b ((a 1) (b 2))) = cadr) (else #f)) )) (define (let.test) (format "let.test[6] ~d~%let.test[35] ~d" (let ((x 2) (y 3)) (* x y)) (let ((x 2) (y 3)) (let ((x 7) (z (+ x y))) (* z x))) )) (define (nlet.test) (format "nlet.test[(6 1 3) (-5 -2)] ~s" (let loop ((numbers (3 -2 1 6 -5)) (nonneg ()) (neg ())) (cond ((null? numbers) (list nonneg neg)) (( = (car numbers) 0) (loop (cdr numbers) (cons (car numbers) nonneg) neg)) (( (car numbers) 0) (loop (cdr numbers) nonneg (cons (car numbers) neg))))) )) (define (let*.test) (format "let*test[70] ~d" (let ((x 2) (y 3)) (let* ((x 7) (z (+ x y))) (* z x))) )) ;;;;; EC-Eval input ;;(cond.test) ;;;;; EC-Eval value ;;cond.test[greater] greater ;;cond.test[equal] equal ;;cond.test[2] 2 ;;;;; EC-Eval input ;;(let.test) ;;;;; EC-Eval value ;;let.test[6] 6 ;;let.test[35] 35 ;;;;; EC-Eval input ;;(nlet.test) ;;;;; EC-Eval value ;;nlet.test[(6 1 3) (-5 -2)] ((6 1 3) (-5 -2)) ;;;;; EC-Eval input ;;(let*.test) ;;;;; EC-Eval value ;;let*test[70] 70 Exercise 5.24 ;;; argl を clauses のポインタに使用 ev-cond (save continue) (assign argl (op cond-clauses) (reg exp)) ev-cond-clauses (test (op null?) (reg argl)) (branch (label ev-cond-no-action)) (assign unev (op car) (reg argl)) (test (op cond-else-clause?) (reg unev)) (branch (label ev-cond-sequence)) (save argl) (save unev) (assign exp (op cond-predicate) (reg unev)) (assign continue (label ev-cond-ev-pred-done)) (goto (label eval-dispatch)) ev-cond-ev-pred-done (restore unev) (restore argl) (test (op true?) (reg val)) (branch (label ev-cond-sequence)) (assign argl (op cdr) (reg argl)) (goto (label ev-cond-clauses)) ev-cond-sequence (assign unev (op cond-actions) (reg unev)) (goto (label ev-sequence)) ev-cond-no-action (assign val (const #f)) (restore continue) (goto (reg continue)) ;;; test program (define (cond.test) (format "cond.test[greater] ~s~%cond.test[equal] ~s~%cond.test[2] ~s" (cond (( 3 2) greater) (( 3 2) less)) (cond (( 3 3) greater) (( 3 3) less) (else equal)) ;(cond ((assoc b ((a 1) (b 2))) = cadr) ; (else #f)) skip )) ;;;;; EC-Eval input ;;(cond.test) ;;;;; EC-Eval value ;;cond.test[greater] greater ;;cond.test[equal] equal ;;cond.test[2] skip Exercise 5.25 ;;; register Lazy を eceval に追加しその値が #t であれば遅延評価を行う。 ;;; eceval-operations に以下の手続きを追加 (define (delay-it exp env) (list thunk exp env)) (define (thunk? obj) (tagged-list? obj thunk)) (define (thunk-exp thunk) (cadr thunk)) (define (thunk-env thunk) (caddr thunk)) ;;; primitive / の変更 (test用 gaucheの/は0除算を許可しているので) (define (/ n d) (if (= d 0) (Error "division by 0") (with-module scheme (/ n d)))) ;;; ev-application の変更 ev-application (test (op eq?) (reg Lazy) (const #t)) ;ex5.25 (branch (label L-ev-application)) ;ex5.25 (save continue) (save env) ;;; 遅延評価用の ev-application ;; ex5.25- L-ev-application (save continue) (save env) (assign argl (op operands) (reg exp)) (save argl) (assign exp (op operator) (reg exp)) (assign continue (label ev-application-1)) (goto (label actual-value)) ev-application-1 (restore argl) (restore env) (assign proc (reg val)) (assign continue (label ev-appl-ret)) (goto (label apply)) ev-appl-ret (restore continue) (goto (reg continue)) ;; (apply proc argl env) apply ;; Procedure application L-apply-dispatch (test (op primitive-procedure?) (reg proc)) (branch (label L-primitive-apply)) (test (op compound-procedure?) (reg proc)) (branch (label L-compound-apply)) (goto (label unknown-procedure-type)) L-primitive-apply (save continue) (save proc) (assign continue (label primitive-apply-1)) (goto (label list-of-arg-values)) primitive-apply-1 (restore proc) (assign val (op apply-primitive-procedure) (reg proc) (reg val)) (test (op eq?) (reg exit) (reg val)) (branch (label done)) (restore continue) (goto (reg continue)) L-compound-apply (save proc) (assign continue (label compound-apply-1)) (goto (label list-of-delayed-args)) compound-apply-1 (restore proc) (assign unev (op procedure-parameters) (reg proc)) (assign env (op procedure-environment) (reg proc)) (assign env (op extend-environment) (reg unev) (reg val) (reg env)) (assign unev (op procedure-body) (reg proc)) (goto (label ev-sequence)) ;; (actual-value exp env) actual-value (save continue) (assign continue (label actual-value-1)) (goto (label eval-dispatch)) actual-value-1 (assign continue (label actual-value-2)) (goto (label force-it)) actual-value-2 (restore continue) (goto (reg continue)) ;; (force-it val) force-it (save continue) (test (op thunk?) (reg val)) (branch (label force-it-1)) (goto (label force-it-ret)) force-it-1 (assign exp (op thunk-exp) (reg val)) (assign env (op thunk-env) (reg val)) (assign continue (label force-it-ret)) (goto (label actual-value)) force-it-ret (restore continue) (goto (reg continue)) ;; (list-of-arg-values argl env) list-of-arg-values (test (op no-operands?) (reg argl)) (branch (label list-of-arg-values-nooperands-ret)) (save continue) (assign exp (op first-operand) (reg argl)) (assign argl (op rest-operands) (reg argl)) (save argl) (save env) (assign continue (label list-of-arg-values-1)) (goto (label actual-value)) list-of-arg-values-1 (restore env) (restore argl) (save val) (assign continue (label list-of-arg-values-2)) (goto (label list-of-arg-values)) list-of-arg-values-2 (restore unev) ; saved val !!! (assign val (op cons) (reg unev) (reg val)) (restore continue) (goto (reg continue)) list-of-arg-values-nooperands-ret (assign val (const ())) (goto (reg continue)) ;; (list-of-delayed-args argl env) list-of-delayed-args (test (op no-operands?) (reg argl)) (branch (label list-of-delayed-args-nooperands-ret)) (save continue) (assign exp (op first-operand) (reg argl)) (assign argl (op rest-operands) (reg argl)) (assign val (op delay-it) (reg exp) (reg env)) (save val) (assign continue (label list-of-delayed-args-1)) (goto (label list-of-delayed-args)) list-of-delayed-args-1 (restore unev) ; saved val !!! (assign val (op cons) (reg unev) (reg val)) (restore continue) (goto (reg continue)) list-of-delayed-args-nooperands-ret (assign val (const ())) (goto (reg continue)) ;; -ex5.25 ;;; ev-if の変更 ev-if (save exp) (save env) (save continue) (assign continue (label ev-if-decide)) (assign exp (op if-predicate) (reg exp)) (test (op eq?) (reg Lazy) (const #t)) ; ex5.25 (branch (label actual-value)) ; ex5.25 (goto (label eval-dispatch)) ;;gosh (start eceval) ;;;;; EC-Eval input ;;(define (try a b) ;; (if (= a 0) 1 b)) ;;;;; EC-Eval value ;;ok ;;;;; EC-Eval input ;;(try 0 (/ 1 0)) ;; ;;#!# Error division by 0 ;;done ;;gosh (reg! Lazy #t) - set-register-contents! の短縮形 ;;done ;;gosh (start eceval) ;;;;; EC-Eval input ;;(define (try a b) ;; (if (= a 0) 1 b)) ;;;;; EC-Eval value ;;ok ;;;;; EC-Eval input ;;(try 0 (/ 1 0)) ;;;;; EC-Eval value ;;1 Exercise 5.26 ;;;;; EC-Eval input ;;(fact-i 1) ;;(total-pushes = 64 maximum-depth = 10 current-depth = 0) ;;;;; EC-Eval value ;;1 ;;;;; EC-Eval input ;;(fact-i 2) ;;(total-pushes = 99 maximum-depth = 10 current-depth = 0) ;;;;; EC-Eval value ;;2 ;;;;; EC-Eval input ;;(fact-i 3) ;;(total-pushes = 134 maximum-depth = 10 current-depth = 0) ;;;;; EC-Eval value ;;6 ;;;;; EC-Eval input ;;(fact-i 4) ;;(total-pushes = 169 maximum-depth = 10 current-depth = 0) ;;;;; EC-Eval value ;;24 ;;;;; EC-Eval input ;;(fact-i 5) ;;(total-pushes = 204 maximum-depth = 10 current-depth = 0) ;;;;; EC-Eval value ;;120 ;;; a ;;; iter が呼ばれてから次の iter が呼ばれるまでに使用される stack ;;; の最大 depth ;;; b ;;; 29+35n Exercise 5.27 ;;; 1 2 3 4 5 10 ;;; Max Tot Max Tot Max Tot Max Tot Max Tot Max Tot ;;;Recursive 8 16 13 48 18 80 23 112 28 144 53 304 ;;;Iterrative 10 64 10 99 10 134 10 169 10 204 10 379 ;;;Recursive ;;; Maximum depth 8 + 5 * (n - 1) ;;; Number of pushes 16 + 32 * (n - 1) ;;;Iterative ;;; Maximum depth 10 ;;; Number of pushes 64 + 35 * (n - 1) Exercise 5.28 ;;; 1 2 3 4 5 10 ;;; Max Tot Max Tot Max Tot Max Tot Max Tot Max Tot ;;;Recursive 11 18 19 52 27 86 35 120 43 154 83 324 ;;;Iterrative 17 70 20 107 23 144 26 181 29 218 44 403 ;;;Recursive ;;; Maximum depth 11 + 8 * (n - 1) ;;; Number of pushes 18 + 34 * (n - 1) ;;;Iterative ;;; Maximum depth 17 + 3 * (n - 1) ;;; Number of pushes 70 + 37 * (n - 1) Exercise 5.29 ;;; 2 3 4 5 6 7 8 ;;; Max Tot Max Tot Max Tot Max Tot Max Tot Max Tot Max Tot ;;; 13 72 18 128 23 240 28 408 33 688 38 1136 43 1864 ;;; a. 13 + 5 * (n - 2) ;;; b. S(n) = S(n - 1) + S(n - 2) + 40 ;;; S(n) = 56 * Fib(n + 1) - 40 Exercise 5.30 ;;; a. ;;; eceval-operation に登録されている手続き extend-environment, lookup-variable-value ;;; set-variable-value, expand-clause で呼出される error を Errorsignal に置換える。 (define (Errorsignal . objs) (cons Errorsignal objs)) ;;; 次の3つの手続きをeceval-operations に登録 (define (Error? obj) (and (pair? obj) (eq? (car obj) Errorsignal))) (define (ErrorM errsig) (cdr errsig)) (define (ErrorL objs) (define (iter objs) (if (null? (cdr objs)) (user-print (car objs)) (begin (user-print (car objs)) (display " ") (iter (cdr objs))))) (newline) (display "#!# Error ") (iter objs)) ;;; eceval signal-errorを修正 signal-error (perform (op ErrorL) (reg val)) (goto (label read-eval-print-loop)) signal-errorp (assign val (op ErrorM) (reg val)) (goto (label signal-error)) ;;; eceval extend-environment, lookup-variable-value, set-variavle-value,cond- if ;;; を使用している所を以下の要領で修正。 ev-variable (assign val (op lookup-variable-value) (reg exp) (reg env)) (test (op Error?) (reg val)) (branch (label signal-errorp)) (goto (reg continue)) ;;;;; EC-Eval input ;;#(a b c) ;; ;;#!# Error Unknown-expression-type-error #(a b c) ;;;;; EC-Eval input ;;x ;; ;;#!# Error Unbound variable x ;;;;; EC-Eval input ;;; b ;;; primitive-procedures に登録する primitive の三番目の項目にエラーチェックリストを ;;; を追加する。car であれば、引数の数のチェックと引数が pair であることのチェックを (list car car `((,Eargc (,= (,length (,argv)) 1)) (,Epair))) ;;; のように 一つのチェックを (チェック手続き [必要であればそのパラメータ]) の形式で ;;; 要素として持つリストとして追加する。/ であれば、 (list / / `((,Enums) (,Ediv0))) ;;; となる。apply の前にこのチェックリストを使ってパラメータのチェックを行う。 ;;; primitive-p-parameter-check を eceval-operations に登録 (define PROC ()) (define ARGV ()) (define (argv) ARGV) (define (primitive-p-parameter-check proc argl) (if ( (length proc) 2) (begin (set! ARGV argl) (set! PROC (primitive-implementation proc)) (let check-loop ((checks (primitive-checks proc))) (if (null? checks) done (let ((r (eval (car checks) (interaction-environment)))) (if (Error? r) r (check-loop (cdr checks))))))))) (define (primitive-checks proc) (caddr proc)) (define (proc-name) (let loop ((plist primitive-procedures)) (cond ((null? plist) proc-name-fatal-error) ((eq? (cadar plist) PROC) (caar plist)) (else (loop (cdr plist)))))) (define (Eargc pred) (if (not pred) (Errorsignal "Number of arguments for" (proc-name) ", got" (length ARGV) "args."))) (define (Epair) (if (not (pair? (car ARGV))) (Errorsignal "Pair reqired for" (proc-name) ", but got" (car ARGV)))) (define (Enums) (let loop ((args ARGV)) (cond ((null? args) ok) ((not (number? (car args))) (Errorsignal "Number required for" (proc-name) ", but got" ARGV)) (else (loop (cdr args)))))) (define (Ediv0) (let loop ((args (cdr ARGV))) (cond ((null? args) ok) ((zero? (car args)) (Errorsignal "Division by 0, got" ARGV)) (else (loop (cdr args)))))) ;;; eceval primitive-apply 変更 primitive-apply (assign val (op primitive-p-parameter-check) (reg proc) (reg argl)) (test (op Error?) (reg val)) (branch (label signal-errorp)) (assign val (op apply-primitive-procedure) (reg proc) (reg argl)) ;;;;; EC-Eval input ;;(car 1 2) ;;#!# Error Number of arguments for car , got 2 args. ;;;;; EC-Eval input ;;(car 1) ;;#!# Error Pair reqired for car , got 1 ;;;;; EC-Eval input ;;(car (cons a b)) ;;(total-pushes = 9 maximum-depth = 8 current-depth = 0) ;;;;; EC-Eval value ;;a ;;;;; EC-Eval input ;;(/ 128 a) ;;#!# Error Number required for / , but got (128 a) ;;;;; EC-Eval input ;;(/ 128 0) ;;#!# Error Division by 0, got (128 0) ;;;;; EC-Eval input
https://w.atwiki.jp/whentheycry3-4/pages/178.html
須磨寺 霞（すまでら かすみ）斜陽した名門、須磨寺家の娘。右代宮霧江の実妹。姉の霧江を憎んでおり、坊主憎けりゃ袈裟までの論法で、縁寿も強く憎んでいる。自由奔放だった霧江とは逆に、体裁を重んじ、社会貢献にも強い意欲を持つ。しかしそれは、姉に対するコンプレックスからの自己顕示欲の表れでしかない。須磨寺家にはいくつかの派閥が対立しており、縁寿の持つ莫大な財産を誰が支配するかで、水面下での暗躍が繰り返されている。
https://w.atwiki.jp/2chgoukemijikobousi/pages/5.html
＝物質情報＝ 【物質名】 2C-E：2,5-dimethoxy-4-ethyl-phenethylamine 【摂取量目安】 経口摂取 弱：5-10mg 普：10-15mg 強（危険）：15-20mg ｽﾆｯﾌｨﾝｸﾞ 弱：1-3mg 普：3-7mg 強（危険）：6-10mg 【持続時間目安】 経口 3-5時間 ｽﾆｯﾌｨﾝｸﾞ 3-6時間 摂取量によっては12時間程度まで 【死亡事例の有無（分かる範囲で）】 【禁忌】 【参考リンク】 Erowid： ttp //www.erowid.org/chemicals/2ce/2ce.shtml ttp //www.erowid.org/library/books_online/pihkal/pihkal024.shtml ※摂取量や持続時間はあくまで目安です。体重・精神及び肉体的な向き不向きがあります。 酒類・他の薬との併用は重大な事故を起こす可能性があります。
https://w.atwiki.jp/dainamaevo/
DAINAMA-evony.wiki.com DAINAMAアライアンスの概要 NOTICE メンバー一覧ページに自己紹介の記入をよろしく！ INTRODUCTION Our alliance is conposed of University student [who has a promising future]. If you are faced with test or exam, we recommend you to stop studying and JOIN us. Right Now!! welcome NEET, welcome NAINAITEI!! We are sister of VIP,ELIXER and SUNRISE. 邦訳： 私たちは、将来を担う大学生の集まりよ！ もし試験や勉強をしているのなら、今すぐやめて、私たちの団に入りなさい！ 今すぐよ！！ べっっべっべべっべつにニートでも無い内定でもいいんだからっ！！！ ...
https://w.atwiki.jp/mekameka/pages/1339.html
伝説の勇者の伝説 -Legendary Saga- 角川書店 2010年2月18日 PSP ラノベ「伝説の勇者の伝説」が原作の、伝説の勇者の遺物を捜す、伝説の3DダンジョンRPG 主人公「ライナ」の一度見た魔法を自在に操る写輪眼「複写眼(アルファ・スティグマ)」を武器に、女剣士「フェリス」と共に冒険しよう
https://w.atwiki.jp/s1100172/pages/6.html