2023/02/08 Applyと+
![](https://blogimg.goo.ne.jp/user_image/51/fc/92898728643107cf9dd1d33b677b6bd1.png)
予定通りドキュメントでApplyを見てみる。Procには引数も含まれているはずなので、0以上使える「v」が気になるかなぁ・・
![](https://blogimg.goo.ne.jp/user_image/6c/75/2142b7e6c16278c9e8db0b954dd36e4e.png)
+の時もこのSortでもproc lstだしなぁ
![](https://blogimg.goo.ne.jp/user_image/6b/84/ca3d5498053578b1618f27f375759a77.png)
もっと例が無いかな?とWEBをウロウロ。ん?このaddの定義・・組み込みの+ってどういう定義なんだ?と気になる(本来の目的とズレてるが)
![](https://blogimg.goo.ne.jp/user_image/33/e7/ece1399d09a88d114a7bda68f42d3cad.jpg)
面白半分でChatGPTで質問してみる。
結果・・いや、この方法は反則だろ
![](https://blogimg.goo.ne.jp/user_image/3c/8d/c7b51084fac468b081d114ef6b516c7f.jpg)
Apply使わずに・・と頼むと。とことん楽をしようとして来るなぁ
![](https://blogimg.goo.ne.jp/user_image/5b/66/d85b9adad593634d25223db93175a0bf.jpg)
高階関数禁止で! おっ!?
(define (+ . args)
(define (iter result args)
(if (null? args)
result
(iter (+ result (car args)) (cdr args))))
(if (null? args)
0
(iter 0 args)))
↑これだーっ!いや、ChatGPTやりますねぇ!
![](https://blogimg.goo.ne.jp/user_image/37/d0/e928224c65559c729d3c26db544f417f.jpg)
![](https://blogimg.goo.ne.jp/user_image/76/80/a8692ffe7d4b47da87fa0a399af59a69.jpg)
![](https://blogimg.goo.ne.jp/user_image/33/eb/3082601d19386f56c8f55999ec63301b.jpg)
解説は「すでに知ってる人」なら意味がわかる感じかなぁ・・
今回の使い方はかなり有益だと思いました。ちょっと明日はChatGPTで例文なんかも生成できるかやってみるか・・
2023/02/07
その1 Racketドキュメントの読み方を読む
![](https://blogimg.goo.ne.jp/user_image/7a/54/fe143dc1e0eda10efad94f0e6d2a31ca.png)
Cametanさんに教えてもらってRacketのNotationを読む。ここに読み方が書かれてたのか〜。DeepLに手伝ってもらう
![](https://blogimg.goo.ne.jp/user_image/30/db/a312be648bc9d36b1876a8d189c61c4c.png)
正規表現っぽい書き方なんすね。あと、|ですけどORの意味なんですね。なんか謎のツリー構造だと思って敬遠してました
![](https://blogimg.goo.ne.jp/user_image/23/60/0adb2ea728b908edcf5254058b0f384e.png)
なるほどなるほどand/c any/cの/cって何だよと思ってましたけど、メタ的にand anyと読み変えていい感じかな
![](https://blogimg.goo.ne.jp/user_image/02/bc/7293a11fad1bf7244a067f2f23fdb296.png)
引数有りなしの場合には上下に並べて書かれてるわけか
![](https://blogimg.goo.ne.jp/user_image/22/49/8049bef20e865851af99f9431d173edc.png)
とりあえずNotationは読み終わったのでReferenceで気になる項目を実際に読んで見るか・・・
![](https://blogimg.goo.ne.jp/user_image/2e/83/06dd25c549ddcfca5cb9c4ebe46bfb8c.png)
Structが最初に見つかったので(確かに実際にプログラム書く時って構造を考えますし、そういう関係で最初に説明されてるのかも?)・・
継承でのスロット名って親構造体の名前を使うのか・・把握しておくの大変じゃないかなぁ
![](https://blogimg.goo.ne.jp/user_image/57/fa/03c4d2dc903273083b712bd8f0894572.png)
オプションの面白そうなのを見ていく。この#:sealedは使えそう(いつか他人と共同作業することがあれば)
![](https://blogimg.goo.ne.jp/user_image/11/32/5f112495c6b3cc8a582140db65fe4b01.png)
エラー表示の際に望むシンボル?文字列?で期待されてる型を示唆するオプション。なんの意味があるのか?エラーの補足に使えたりするんだろうか
![](https://blogimg.goo.ne.jp/user_image/1f/95/7fc1ab47a798d192d0475752887db58e.png)
デフォルト値を設定しておく#:autoは便利そう
![](https://blogimg.goo.ne.jp/user_image/5c/d8/b53f28c382f385b41bbe6a0a25b83a7f.png)
おおっ!?構造体の中にProcedureを埋め込めるのか!これは面白そうじゃないかな
![](https://blogimg.goo.ne.jp/user_image/7d/ba/5b2aec47172a7ca57adcde70c337bc2a.png)
![](https://blogimg.goo.ne.jp/user_image/08/95/8d8c3a26731f8b9472584afe9c5c10a2.png)
StructとDefine-structの違い。あ〜なるほど、ナウシカ作りはじめの頃にこれで混乱してたな。なんで残ってるのかは知らないけど自分の中ではStructに統一しておこう。
という感じでしばらく読み進めていこうかな、と思いました
その2 Apply
![](https://blogimg.goo.ne.jp/user_image/5c/d0/9a923cc5d0531817ef18176b481b3b31.png)
同じくCametanさんからのアドバイスでApply。見抜かれている!Applyについて全く理解が及んでないことに!いや、そーなんですよ!なんか使いどころが分かってないんですよね〜。「()を外す」ってのはハッとする説明でした。
明日はApplyをドキュメントで読んで、色々と試してみたいと思います。ありがとうございます(^o^)
2023/02/06 なんかRacketドキュメントを読んでいく
![](https://blogimg.goo.ne.jp/user_image/29/cb/174431833aa947af9fd6caccab00d03b.png)
Hashの一件でドキュメント読解力の必要を感じたので、そのままドキュメントを読んでみた。パラパラ見てるとHash-mapという関数が。名前からして便利そうな気がするので動かしてみるか・・と思ったが例文が無い。けど似た名前のHash-map/copyは例文があったので参考にして挙動を確認する。ふんふん、キーもバリューも同時にいじって多値として返せるわけか
![](https://blogimg.goo.ne.jp/user_image/65/dc/9a1d61d172bb882894ba16432177a8a6.png)
ところが同じように書いてもHash-mapの方は動かない。うーん・・と、ようやくここで謎の暗号みたいな書き方の書式みたいなのを比較して読み解く努力を始める。あ、返り値が多値じゃなくて、リストで返るということか・・。いや、ハッシュでバラバラになってるので値だけ返されても・・使いみちあんのかね、コレ
![](https://blogimg.goo.ne.jp/user_image/28/79/c333c987acbb0cfd069f70dda18184e6.png)
あ、キーを使うことも出来るのか。じゃあまぁキーと値を出力するのとかに使えるか・・(Hash形式、中身が見れないし)。
とまあ、こういう感じでイジっていて段々と面白くなってきた。こうなったら最初から見ていって、気になる関数とかは兎に角動くまでイジって自分で例文を書こうかなぁ・・という気分になってきた
![](https://blogimg.goo.ne.jp/user_image/42/4b/20e14dc27f96d00e5f04e3322b9d1edd.png)
ドキュメントの最初を改めて見てみると、WEBアプリまで作る事が出来るのか・・と驚く。全部だとキリがないので、とりあえずRacket/baseの部分だけでも例文を書きながら読解してみるかなぁ・・検索して出てこないってことはやる値打ちがあるんだろうし
![](https://blogimg.goo.ne.jp/user_image/55/61/5058b10582510e7d6df6beadf7771920.png)
手始めにRacketの作法みたいなところから読み始めてみる。
そうしたところ、最初のコメントアウト関連で早くもちょっと感動する。#;ってメチャクチャ便利やん!関数のコメントアウト#||#でやっててすごく大変だったんで!
![](https://blogimg.goo.ne.jp/user_image/1f/d9/c35e260500b2983b8d824a11e8e3d988.png)
関数内の束縛もLetだとインデントが深くなるので出来ればDefineで・・とか、そーゆー風に考えるのか〜とか
という訳で、今後の予定は二転三転してるけど・・平日はドキュメント読解と動く例文作成、宿直でDD&Dって事でRacket漬けで行こうと思ったりなんかして?
※本日のCametanさんの記事を読む前の状態です
2023/02/05 ハッシュ、Cametanさんに教えていただく
例によって・・ありがとうございます!
![](https://blogimg.goo.ne.jp/user_image/3d/ea/0c6cf24b8962941de6d618ac7f50ebff.png)
なるほど、そもそもmake-hashって連想リストからハッシュを作る関数だったのか・・そんな事ドキュメントにあったっけ?
![](https://blogimg.goo.ne.jp/user_image/71/35/7882ff839fb55398fa26d2e2549784b7.png)
あ、もしかしてAssocsってのが連想リストの事なのか?確かにAssocは連想リストに関係しそうだけども・・・一度ドキュメントの読み方をキッチり勉強するべきだなぁ(今更(^_^;)
![](https://blogimg.goo.ne.jp/user_image/7f/de/51711817c29c317d873c67956455dbbd.jpg)
ところで全然突然なんだけど、ふと思い立って最近話題のAIチャット、ChatGPTで解決できるかどうか実験してみました。噂通り「シレっと嘘をつく」ってのは真実!
![](https://blogimg.goo.ne.jp/user_image/21/9d/5e38ec62fee0b9f0c426f4df15cde847.jpg)
ついでにAD&Dのキャラメイキングについて聞いてみた。ふんふん・・ザックリしてて使い物にならないので・・
![](https://blogimg.goo.ne.jp/user_image/58/bf/cd64f1c82dc18e625a5c46c50c9cbd0c.jpg)
「もっと詳しく」と求めたが全然。詳しくない
![](https://blogimg.goo.ne.jp/user_image/4e/a7/a0248cd2a01e035c463174bc9f960475.jpg)
![](https://blogimg.goo.ne.jp/user_image/7a/f4/b1972e2dff84c7ebca1427bd45f0ecbf.jpg)
![](https://blogimg.goo.ne.jp/user_image/4f/1c/5baf5a7054dd2f4e9bd575410d8e5e11.jpg)
じゃあ試しに一人作ってくれとリクエスト。冒頭の「はい」にどっしりとした自信を感じたのだが・・ふざけんナw。
AIつってもまだまだだな!
やりとり自体は人間っぽいんだけど、手の抜き方が超人的だな
2023/02/04 ハッシュ表を使ってアイテムを表示したいので調査
ラピュタゲームブックで手持ちアイテム一覧を表示する機能があるんだけど、そこでアイテムに画像をつけたら雰囲気が出るかなと思ったわけです。
で、折角なのでまだ使ったことが無い概念「ハッシュ表」を(無理やり)使ってみようかなと。
※画像を表示したいだけならアイテムを連想リストじゃなくて構造体で作ってればイイだけの話なんだけど今から書き直すのは手間過ぎるし!
例によってRaketのドキュメンは意味不明だったのでCametanさんのブログを参考にさせてもらいましたm(_ _)m
![](https://blogimg.goo.ne.jp/user_image/2f/fc/ef03221f07cc8a75830c90740235d1df.png)
ちなみにこういう記述を発見。構造体にしなくてもAssocで参照してN番目(画像が入ってるトコロ)を呼べばいいのか・・ま、今回は置いといて!
![](https://blogimg.goo.ne.jp/user_image/44/b9/a7d20957cc28de2ac34f7258518417a6.png)
ほうほう・・。
ハッシュって言ってもドットリスト形式で管理されてるのか・・。
![](https://blogimg.goo.ne.jp/user_image/1f/b5/220e075dcbf3559e14c3454ba8c0ada5.png)
で、いざhash-setして行こうと思ったんだけど面倒だな〜Map使えたらなぁ〜・・という気分になったので実験としてアイテム数を絞ってEquipリストと
![](https://blogimg.goo.ne.jp/user_image/10/74/b6af3448ec68d352095eed483f613dfc.png)
順番を合わせたアイテム画像のリストを用意して
![](https://blogimg.goo.ne.jp/user_image/77/59/73d28911507c259a3f52a85ff690352d.png)
ハッシュテーブルを定義してMapでドン!
![](https://blogimg.goo.ne.jp/user_image/29/98/663b5182713f377e19c477fa6673f4f4.png)
行けた!ちょっと感動した。あれ?ドットリストじゃないけど・・
![](https://blogimg.goo.ne.jp/user_image/79/7f/681ee4ece32f963c1d77c7d7ad2675a6.png)
じゃあRefって見よう!と思ったがキーが見つからないという。んなアホな!
![](https://blogimg.goo.ne.jp/user_image/6c/e0/241101d8b90be03ff296380984bfa61c.png)
もしかしてMapでやったから()多すぎ問題の時と一緒で入れ子になってRef出来ないのか?と思って単品で実験。が、同じ・・
![](https://blogimg.goo.ne.jp/user_image/28/bf/4d5fb1249269af7baf177490f4c96386.png)
hash-ref-keyじゃないと駄目なのか?と思ったが関係なし
![](https://blogimg.goo.ne.jp/user_image/62/55/d44d7db0a65a4837fe2253a7ce30eecc.png)
得意の総当り方式で実験、make-hashして破壊的変更のset!であればうまく動くと判明。うーん、でも破壊的だしなぁ・・
![](https://blogimg.goo.ne.jp/user_image/75/4f/422f99f77700f2bc0a21cc813a9d2e35.png)
うまく行った方式でMapを実行。ちゃんとhash-refで参照できている。
む?返り値が最初の(hash)の時と違ってる。うーん・・という事は・・(hash)で作られていたのは連想リストだったのか!?ドットリストだったし?
謎は残るがとりあえずこれでアイテム一覧表示関数を改造してみますか
2023/02/02 Mapで()が多すぎ問題の謎が解けた
![](https://blogimg.goo.ne.jp/user_image/03/b6/926ffc2f44c763454b374dfc2f0bf260.png)
前回、なんとなく動いてたけどCarを使わないと()が多すぎてたアイテムゲット関数。引数を複数取れるのを目指してたけど実際にやってみると
![](https://blogimg.goo.ne.jp/user_image/6b/eb/026d616f9d38d6d9e447fabd388c48ee.png)
おゴーッ!ちょっと考えたけど、Argの要素ごとにEquipにAlist-consしてるんだもの、なるほど・・こうなるわな・・。
![](https://blogimg.goo.ne.jp/user_image/12/da/ae6aa6f0dc6fdbeed3952dfce4cefb8c.png)
こういう結果が欲しい。再帰だったら出来るのにMapで出来ないハズが?と色々とやったけど思いつかない。そんなハズは・・と、一旦寝て宿直からの帰りの自転車で気づく。
ハッ!Consと言えば・・Fold!
![](https://blogimg.goo.ne.jp/user_image/4a/a4/c77bcd782110874207e06d59eb58e354.png)
来たー!なるほどそういう事か〜・・しかしコレではっきりしたな。やっぱり高階関数の理解が曖昧だったということがw
2023/01/30 Match系
宿直明け、なんかまだやる気がみなぎってたので帰宅後にそのままプログラミング再開。
必要な関数をダラダラと作ってたんだけど、戦闘時の選択肢表示の部分でまた自力では書けないことが判明する。match-letをmapして・・という例のアレ。
ということでちょっと基本からやってみる
![](https://blogimg.goo.ne.jp/user_image/41/8f/5eea3772f1a50f3332ef9b14d80af89b.png)
ふんふん・・一番シンプルな形から。なるほどMapだとdisplayが余計だった。for-eachだったら数字だけになりそうかな
![](https://blogimg.goo.ne.jp/user_image/20/51/44b83da5b2579c47f4c91030d16223be.png)
ふんふん、特定の型にマッチしたものを読み込んで束縛して、同じ()の中で変数を使った式を作れるわけだな
![](https://blogimg.goo.ne.jp/user_image/61/75/26c06bec2425040854aad3d9997ae3b7.png)
Enumerateを使って、コレがほしい形だな。ところでMatch-lambdaとMatch-letって具体的にはどう違うんだろう・・?と気になって
![](https://blogimg.goo.ne.jp/user_image/22/94/7e5108fb272746da207e50d8630a2521.png)
Match-letを使って同じ出力をするのにはどうするかを考える。通常のリストから開始して・・
![](https://blogimg.goo.ne.jp/user_image/64/e8/d54ff3f97333d03663bf953ecb47b7d4.png)
単発で出力できるようにして・・
![](https://blogimg.goo.ne.jp/user_image/51/ce/3eab92d473d2bdb055978ad95a45f26a.png)
これで同じ出力、こうなるワケか〜。なるほどMatch-letの場合はリストが自動で取り込まれて、Match-letの場合は自分でLambdaを使って取り込んでやらないといけないだけで同じことやってるな?
うーん、自分ではコレでかなりスッキリした!
2023/01/26 返ってきたBig-bang
先日気になったBig-bangからの返り値問題。ドキュメントを見てみると・・
![](https://blogimg.goo.ne.jp/user_image/63/0b/b14af5b7a9b35be810e83837bd9b7593.png)
最後のReturns this last worldってのが気になるなぁ・・返ってくるんでないかい?
![](https://blogimg.goo.ne.jp/user_image/2d/2a/c07ea8c38c24b674569632ce97b24724.png)
Stopの名を冠するHandler(?)にはもう一つある。うーん、こっちはなんで構造体なんだ? 説明を読むと・・Big-bang実行中に特定のw状態になったら強制的に終了できるような条件を設定できるということかな?知らんけど
![](https://blogimg.goo.ne.jp/user_image/1e/af/777fe617fbcbab4c3a187d48a0c44b25.png)
気になったのがこの図で、明らかに複数のWorldを行き来できるように見えますよね?
早速検証!と思ったのですが・・その検証用のWorldを用意するのが面倒なんだな〜・・ということでGithubにあったRoRのコードで一番シンプルなのをお借りしてくる。
![](https://blogimg.goo.ne.jp/user_image/1f/93/6abc63c4b4a5775bd37713ab1ad6d14d.png)
数当てゲームの実行結果。むっ!?リスナーにinterval構造体の最終結果が返ってるじゃないか!今までちゃんとBig-bangで遊んでなかったので気づかなかった〜
![](https://blogimg.goo.ne.jp/user_image/15/15/d7324d9db053468165630f723d552b28.png)
ふんふん、ここのが返ってきてる訳だな
![](https://blogimg.goo.ne.jp/user_image/19/65/de8d6a31138f129b29ff3035d2d855cc.png)
という訳で関数型言語っぽく処理したところ・・出来るじゃな〜い!
うおお・・これでCLIとGUIを自由に行き来できる多数の世界(World)を持つプログラムが作れることが確定した!まさにUniverseの誕生だ〜(^o^)
はっ!?もしかしてライブラリ名がUniverseってそういう意味でつけられていたのか?
ラピュタはもうオールCLIで行くって決めてしまったので、この仕組みはなんちゃってAD&Dで活用していこう。あ、なんちゃってAD&Dって言ってたけどややこしいし烏滸がましいので
名付けて「Disadvanced D&D」、DD&Dって名称で行くからよろPく!
2023/01/24
その1 Big-bangって終了時に値を返すことが出来るのか?
AD&Dの戦闘部分だけならRacketのUniverseでGUI化出来そうだな?とか考えていたのですが、ここで閃く。あれ?Big-bangって終了時に値を返したり関数を呼び出すことが出来るのか?
もし可能ならばCLIでADV部分、戦闘に入ったらGUIを呼び出し終了したらCLIに戻るとか、そもそも複数のGUIを連鎖させることが出来たらキーマップ問題なんて簡単に解決できるではないか!と。時間作ってドキュメント読んでみよう。
その2 その他Racket化出来そうなもの
![](https://blogimg.goo.ne.jp/user_image/5e/06/837b85157162fd99296dd46f33325661.jpg)
GURPSシステムを使って・・とか考えてたんですけど、古雑誌の付録データを漁っていて、まんまズバリでGURPSを用いたゲームブックなんてものがありました
![](https://blogimg.goo.ne.jp/user_image/31/3a/6b138341488d280f3912b75b3b9bdde4.jpg)
という事は間違いなく可能ですよね。スキルに関してはゲームごとに特定の物に絞り込めればシナリオに簡単に入れられるし・・ありだな!実はシナリオ集なんかも結構持ってるんですよ
![](https://blogimg.goo.ne.jp/user_image/6d/58/f467d78ee809c5722a91884b862829d1.jpg)
そしてこちら、山本弘さんがデザインしたトランプを使ったゲーム「四人のキング」。プレイしたこと無いんですけど、確かトランプのスートと数字をマップに見立ててシャッフルして配置することでローグライクなゲームになってたような?
![](https://blogimg.goo.ne.jp/user_image/6b/69/656ce53d8c6ee235a1fd5c47c65b3088.jpg)
システムはマジでナウシカとかラピュタと似たようなものなので、こちらはマップの処理の勉強が出来そうナリ。
という感じでやりたい事は広がるんですけどねぇ〜(^_^;)
2023/01/23 AD&Dの再現を考えてみる
![](https://blogimg.goo.ne.jp/user_image/19/2b/4c2cf1a98be9730908c8d8435a3f6ad5.png)
PoRのプレイを進めたのでルールに従ってRacketでどうやって再現するかの続きをちょっと考えてみる。まず、キャラクターの要素が少なすぎたのでステータス画面を見ながら足していく。多いなぁ・・・
![](https://blogimg.goo.ne.jp/user_image/7e/dd/1a1f96977b2652d6ea04c7b7159f3ef7.png)
ステータスの中の「THAC0」と言う命中判定用らしき項目があるのだが・・うーん、AC0の相手に対して命中する時の目安・・・?なんだそりゃ?と思ってネットで見たら不評だったのかすでに公式で撤廃されてる模様。
さて・・どうしたものか・・折角だから判定とかは洗練されてる新しい版に沿ったものにするのも良いし?
いや、別にAD&Dに拘らなくてももっとシンプルなルールを取り入れても良いんだよなぁ・・シンプルと言えばGURPS?
![](https://blogimg.goo.ne.jp/user_image/09/5e/366445ebb72bef8600d1358c13ae9d1b.png)
TRPGをプレイしたことは一度も無いくせにルールブックは10冊位持っていた僕は当然抑えているのでありました。
![](https://blogimg.goo.ne.jp/user_image/5a/ca/d2e4c9f746b6e9ce877c7c171adc4b7c.png)
確か判定は6面サイコロだけで出来たような?
あ、でも・・今後レベルアップの処理とかを考えるとやっぱりAD&Dに沿ったほうが良いか・・AD&Dのルールブックは持ってないのでネットで調べることになりそうかな。
で、ここで懐かしいゲーム関係のスキャンデータを見てしまったのが運のツキ・・ついつい懐かしくて色々と漁ってしまって夜が更けてしまったのであった。
でも、ゲームブック用の汎用戦闘システムとしてGURPSでルールを書き換えるのはありかも知れないな?