#lang racket
;;; 問題のデータベース
(define *db*
'((お酢に卵を殻ごといれると卵はどうなるでしょう?
(透明な卵になる #t)
(鏡のようになんでもうつる卵になる #f)
(卵が溶けてなくなる #f)
(卵が石のように堅くなる #f))
(しゃっくりはある調味料をなめると止まります。ある調味料とはなんでしょう?
(お酢 #f)
(砂糖 #t)
(醤油 #f)
(塩 #f))
(甘くて美味しい羊羹ですが、羊羹はもともとあるものを煮込んだスープのことでした。あるスープとはなんでしょう?
(牛の血 #f)
(牛乳 #f)
(羊の肉 #t)
(馬の肉 #f))
(おぼうさんが木魚をたたく意味はなんでしょう?
(お経にリズムをつけるため #f)
(亡くなった人が天国にいけるようにと祈るため #f)
(眠くならないようにするため #t)
(悪い霊を寄せ付けないため #f))
(「アホウドリ」の名前の由来はなんでしょう?
(アホーと鳴くから #f)
(人間にすぐつかまるから #t)
(アホみたいな顔をしているから #f)
(阿波踊りみたいに踊っているように飛ぶから #f))
(氷が長持ちする作り方はなんでしょう?
(塩をいれた水で氷を作る #f)
(沸騰したお湯をいれて氷を作る #t)
(砂糖をいれた水で氷を作る #f)
(お酢をいれた水で氷りを作る #f))
(有名な作曲家「ベートーベン」の癖はなんだったでしょう?
(目をパチパチさせる #f)
(爪をかじる #f)
(念入りに手を洗う #t)
(くしゃみをしたあとに、「大魔王」という #f))
(ドジョウは人間と同じようにあることをします。あることとはどれでしょう?
(あくび #f)
(おなら #t)
(まばたき #f)
(くしゃみ #f))
(豚のくるくる巻いてあるしっぽが、あるときは伸びてまっすぐになります。あるときとは、いつでしょう?
(走っている時 #f)
(ご飯を食べている時 #f)
(眠っている時 #t)
(おしっこをしている時 #f))
(ナメクジは塩で溶けますが、他にもある調味料で溶けます。ある調味料とはなんでしょう?
(醤油 #f)
(砂糖 #t)
(小麦粉 #f)
(片栗粉 #f))
(植物にも人間と同じようにあるものがあります。あるものとはなんでしょう?
(血液型 #t)
(脳みそ #f)
(心臓 #f)
(髪の毛 #f))
(四つ葉のクローバーはあるものに形が似ているから、見つけたら「幸福・幸せ」と言われています。ある物の形とはなんでしょう?
(風車 #f)
(十字架 #t)
(ハート #f)
(心臓 #f))
(飛行機の中で食べるように作られた野菜があります。その野菜はどれでしょう?
(ミニトマト #t)
(パプリカ #f)
(アボカド #f)
(ズッキーニ #f))
(大根おろしはあるすり方をすると、辛くなります。そのすり方とはなんでしょう?
(ゆっくりする #f)
(力を込めてする #f)
(力を弱めてする #f)
(早くする #t))
(日本で最初に販売されたアイスクリームの値段はいくらでしょう?
(800円 #f)
(3000円 #f)
(6000円 #f)
(8000円 #t))
(砂糖は昔あるものとして活用されていました。活用されていたものはなんでしょう?
(湿布 #f)
(頭痛薬 #f)
(風邪薬 #t)
(胃痛薬 #f))
(油性ペンで布に名前を書く時、あるものをかけると滲みません。あるものとはなんでしょう?
(石けん #f)
(ヘアースプレー #t)
(歯磨き粉 #f)
(シャンプー #f))
(臭い靴にお金を入れると臭いがなくなります。何円玉を入れるとよいでしょうか?
(1円玉 #f)
(10円玉 #t)
(50円玉 #f)
(500円玉 #f))
(腕時計はもともとはある人達の為に作られていました。ある人達とは誰でしょう?
(軍隊 #t)
(皇太子 #f)
(看護婦 #f)
(医者 #f))
(白くまの肌の色は何色でしょう?
(透明 #f)
(白 #f)
(肌色 #f)
(黒 #t))
(次の野菜の名前うち1つは日本語ではありません。それはどれでしょうか?
(シイタケ #f)
(レンコン #f)
(オクラ #t)
(ダイコン #f))
(平成の初期にブームとなった携帯型ゲーム機、ゲームボーイ。友達と対戦するためには本体とソフト以外にも欠かせないものがありましたが、それは何でしょうか?
(インターネット #f)
(携帯電話 #f)
(通信ケーブル #t)
(ファミコン #f))
(ギリシャでは日本語の「たべるな」という言葉が通じます。現地での意味は何でしょうか?
(日本語と同じ #f)
(デザート #f)
(学校給食 #f)
(大衆食堂 #t))
(たい焼きは、元々は鯛の形ではありませんでした。どんな形をしていたでしょうか?
(ウサギ #f)
(カメ #t)
(ヒヨコ #f)
(人形 #f))
(パンケーキの名前の由来は何でしょうか?
(パン屋の一番人気メニューだから #f)
(膨らみすぎてパンクするのに注意が必要だから #f)
(フライパンで調理するから #t)
(名前の理由に関する記録は残っていない #f))
(飛行機の操縦士と副操縦士は、食事の際に絶対に同じメニューを食べません。その理由は何でしょうか?
(単純に好みが違う #f)
(食材の減りの偏りを無くすため #f)
(特に理由は無い #f)
(食中毒対策 #t))
(肉の名前の隠語で、鹿は何と言うでしょうか?
(桜肉 #f)
(紅葉 #t)
(柏 #f)
(牡丹 #f))
(玉ねぎを切る時に涙が出にくくなるために必要な調理器具とは何でしょうか?
(切れ味のいい包丁 #t)
(綺麗なまな板 #f)
(竹串 #f)
(中華なべ #f))
(リンカーンは大統領になる前は何をしていたでしょうか?
(プロ野球選手 #f)
(猟師 #f)
(レスラー #t)
(タクシー運転手 #f))
(日曜日夕方の番組でお馴染みの笑点。笑点はテーマ曲が印象的ですが、この曲には実は歌詞があり笑点メンバーが歌っていました。しかし、今は歌われていない理由は何でしょうか?
(飽きたから #f)
(実はメンバーが歌詞をちゃんと覚えられない #f)
(メンバーのレコーディングのスケジュールが合わず音源化できていない #f)
(下手くそだったから #t))
(オーストラリアに生息している可愛い動物のコアラ。コアラの睡眠時間は1日に18時間以上でとても長いことで知られていますが、睡眠時間が長いのはいったいどうしてでしょうか?
(エネルギーの消費を抑えるために活動時間を少なくしている #f)
(主食のユーカリに含まれる毒を解毒するのに体力を使ってしまうから #t)
(天敵がいなくてのんびりした性格になったから #f)
(眠っているふりをしているだけで本当は起きている #f))
(ギネスブックにも記録されている「人が眠らずに起きていた時間」の最高記録は何時間でしょうか?
(48時間 #f)
(136時間 #f)
(264時間 #t)
(508時間 #f))
(幸せを運んでくれるという四つ葉のクローバー。これまでに見つかったクローバーのうち、一番たくさんの葉があったクローバーはいったい何枚だったでしょうか?
(12枚 #f)
(24枚 #f)
(38枚 #f)
(56枚 #t))
(次のお茶のうち、原材料が1つだけ違うものがあります。それはいったいどれでしょうか?
(緑茶 #f)
(烏龍茶 #f)
(麦茶 #t)
(紅茶 #f))
(自然界で確認されているキノコのうち、本当にあるキノコは次のうちどれでしょうか?
(真っ赤で悪魔の指のような形。触るだけでヤケドのような症状が出る毒キノコ。 #t)
(見た目は普通の茶色いキノコ。近くに寄るだけで幻覚症状が現れる。 #f)
(無数の針のようなトゲを持つキノコ。食べられそうになるとトゲを発射する。 #f)
(青紫色をした人の手ほどの大きさ。食べると爪が青く染まってしまうキノコ。 #f))
(世界最大の湖はユーラシア大陸のカスピ海です。カスピ海の大きさは次のうちどれに当てはまるでしょうか?
(北海道と同じぐらい #f)
(関東と関西を合わせた面積と同じぐらい #f)
(日本全土を合わせた面積と同じぐらい #t)
(日本全土の面積よりも大きい #f))
(これまでに正式にギネスに記録されている1人の女性による1回の出産で、無事に生まれた赤ちゃんの数は何人でしょうか?
(4人 #f)
(6人 #f)
(8人 #t)
(10人 #f))
(手紙を送る時に封筒などに貼り付ける切手。切手は舐めると甘味を感じますが、どれぐらいのカロリーを摂取することになるでしょうか?
(0キロカロリー #f)
(2キロカロリー #t)
(4キロカロリー #f)
(8キロカロリー #f))
(次のうち日本が世界で一番であるものはどれでしょうか?(※人口比率)
(自動販売機の数 #t)
(郵便ポストの数 #f)
(コンビニの数 #f)
(ガソリンスタンドの数 #f))
(動物園でも大人気のフラミンゴ。フラミンゴはオスもメスも赤い羽根をしています。なぜあのようなキレイな赤い羽根の色をしているでしょうか?
(繁殖のために自分をアピールしなければいけないから #f)
(太陽の光や熱を効率的に集めるため #f)
(食べるものに赤い色素が含まれているから #t)
(突然変異の個体が増えた #f))
(お菓子のアイスを食べた時に頭が痛くなる症状のことを、何と呼ぶでしょうか?
(冷感性頭痛 #f)
(一時的甘未頭痛 #f)
(アイスクリーム頭痛 #t)
(スイーツ性シック症状 #f))
(世界にたくさんある言語のうち、最も難しいと言われているのは次のうちどれでしょうか?
(日本語 #t)
(英語 #f)
(中国語 #f)
(フランス語 #f))
(アフリカ大陸にあるサハラ砂漠は世界最大の広大な砂漠です。サハラは日本語に訳すとどんな意味があるでしょうか?
(乾燥した #f)
(雨が降らない #f)
(砂漠 #t)
(太陽 #f))
(シンガポールに旅行に行く時に、国内に持ち込むと罪になってしまうお菓子は次のうちどれでしょうか?
(チョコレート #f)
(ポテトチップス #f)
(チューイングガム #t)
(ビスケットやクッキー #f))
(和食料理のお店や日本の家庭でよく使うカツオ節。カツオ節は「ある特徴」が世界で一番だと言われていますが、一体何でしょうか?
(世界で一番、香りが良い食べ物 #f)
(世界で一番、固い食べ物 #t)
(世界で一番、栄養価が高い食べ物 #f)
(世界で一番、作るのが難しい食べ物 #f))
(この世で最も怖いものとして、「地震・雷・火事・おやじ」という言葉があります。この「おやじ」とは何のことでしょうか?
(親父(お父さん) #f)
(おじや(雑炊) #f)
(じゃじゃ馬(またはおてんばな女の子). #f)
(おおやまじ(強い風) #t))
(大人気の韓国料理のチゲ鍋。ピリッとした辛さが美味しいチゲ鍋の「チゲ」は日本語でどんな意味になるでしょうか?
(なべ #t)
(辛い #f)
(唐辛子 #f)
(燃える #f))
(世界にはユニークな法律がたくさんあります。次のうち本当に作られた法律はどれでしょうか?
(ほうきで空を飛ぶのは禁止 #f)
(錬金術で作りだしたお金を使うのは禁止 #f)
(街中を早歩きして移動するのは禁止 #f)
(海のビーチで砂の城を作るのは禁止 #t))
(手術中に医師などが着る手術着は青や緑が一般的です。この色が選ばれている理由として、間違っているものは次のうちどれでしょうか?
(リラックス効果があるから #f)
(血がついた時の精神的な衝撃を緩和するため #f)
(価格が一番安いから #t)
(赤い色を見つめた後に他の場所を見て残像が残らないようにするため #f))
(カバは体の表面に汗のような分泌液が出ます。この分泌液は何色でしょうか?
(黒色 #f)
(無色透明 #f)
(黄色 #f)
(赤色 #t))
(日本人の血液型で一番多いのはA型です。では、世界的に見た場合に一番多いのは何型でしょうか?
(A型 #f)
(B型 #f)
(O型 #t)
(AB型 #f))
(コオロギの耳はどこにあるでしょうか?
(顔の横 #f)
(頭頂部 #f)
(お尻 #f)
(足 #t))
(「学ラン」の「ラン」とはなんでしょうか?
(花のラン #f)
(オランダ #t)
(ランダム #f)
(ランキング #f))
(かつて、地震はある生き物によって引き起こされると信じられていました。その生き物とはなんでしょうか?
(ナマズ #t)
(ゴリラ #f)
(ダチョウ #f)
(カマキリ #f))
(世界一高いティッシュボックス、その1箱の値段はいくらでしょうか?
(700円 #f)
(5000円 #f)
(1万円 #t)
(10万円 #f))
(カップ麺に入っている「かやく」を漢字で書くとどうなるでしょうか?
(火薬 #f)
(化薬 #f)
(加薬 #t)
(科薬 #f))
(牛乳を温めた時にできる膜の正体はなんでしょうか?
(タンパク質 #t)
(砂糖 #f)
(カルシウム #f)
(正体不明 #f))
(フルーツサンド発祥の国はどこでしょうか?
(日本 #t)
(アメリカ #f)
(フランス #f)
(イタリア #f))
(海上自衛隊は、毎週金曜日に必ずあるものを食べています。それはなんでしょうか?
(クリームシチュー #f)
(ハヤシライス #f)
(カレー #t)
(ハッシュドビーフ #f))
(「うわばみ」とは、どんな人のことでしょうか?
(大食いの人 #f)
(酒をたくさん飲む人 #t)
(よく寝る人 #f)
(よく喋る人 #f))
(「女の子だって暴れたい」というコンセプトのもとで始まった女の子向けの大人気アニメシリーズはなんでしょうか?
(プリキュア #t)
(セーラームーン #f)
(アイカツ #f)
(たまごっち #f))
(中学生からの人気が最も高い部活はなんでしょうか?
(テニス #t)
(バスケットボール #f)
(卓球 #f)
(陸上 #f))
(塾に通っている中学生の割合はどのくらいでしょうか?
(約10% #f)
(約30% #f)
(約50% #t)
(約70% #f))
(大人気漫画「鬼滅の刃」にて、藤の花は鬼にも有効な毒として描かれています。では、現実の藤の花の毒はどの程度の強さでしょうか?
(人間には一切効かない #f)
(摂りすぎると眩暈や吐き気がする #t)
(少量でも人間の命に関わる #f)
(毒は一切ない #f))
(「中二病」という言葉を初めて使ったのは、ある芸能人です。それは誰でしょうか?
(タモリ #f)
(伊集院光 #t)
(久本雅美 #f)
(黒柳徹子 #f))
(現在発売されている漫画雑誌の中で、最も長く続いているものはどれでしょうか?
(週刊少年ジャンプ #f)
(週刊少年マガジン #f)
(りぼん #f)
(なかよし #t))
(大人気漫画「ワンピース」に登場するキャラクター「サンジ」は当初は違う名前になる予定だったそうです。予定ではどんな名前だったでしょうか?
(メンマ #f)
(チャーシュー #f)
(ニタマゴ #f)
(ナルト #t))
(国民的アニメ「サザエさん」には、意外にも原作には登場していないキャラクターが多く登場しています。次のうち、原作にも登場した人物は誰でしょうか?
(伊佐坂先生 #t)
(花沢さん #f)
(サブちゃん #f)
(アナゴさん #t))
(NHKのマスコットキャラクター「どーもくん」は、ウサギのキャラクターの家に居候しています。そのウサギの名前はなんでしょうか?
(うさお #f)
(うさみ #f)
(うさじい #t)
(うさばあ #f))
(東京ディズニーリゾートには、全部でいくつの隠れミッキーがあるでしょうか?
(3個 #f)
(77個 #f)
(300個 #f)
(総数は分からない #t))
(床に落とした食べ物でも「すぐに拾えば大丈夫」というような意味で「3秒ルール」という言葉を使う人がいます。実際には落ちて何秒までなら拾って食べても大丈夫でしょうか?
(1秒 #f)
(5秒 #f)
(10秒 #f)
(落とした時点でアウト #t))
(お茶漬けの素に入っている「あられ」には、何の意味があるでしょうか?
(湿気予防のため #t)
(食感が良いから #f)
(香りが良いから #f)
(色合いのため #f))
(「シルバー人材センター」など、高齢者を表す色というイメージがある「銀(シルバー)」。高齢者を指す言葉として定着した由来は何でしょうか?
(銀座 #f)
(優先席 #t)
(銀歯 #f)
(白髪 #f))
(金色の折り紙は、銀色の折り紙にある色を塗ることで作られます。その色はなんでしょうか?
(黒色 #f)
(白色 #f)
(オレンジ色 #t)
(緑色 #f))
(ある高級ブランドがサッカーボールを作ったことがあります。どのブランドでしょうか?
(ルイヴィトン #t)
(エルメス #f)
(プラダ #f)
(ロレックス #f))
(ことわざの「急がば回れ」の語源となったのはどこでしょうか?
(富士山 #f)
(鳥取砂丘 #f)
(清水寺 #f)
(琵琶湖 #t))
(「地震、雷、火事、親父」と怖いものを順に並べた言葉があります。この「親父」は元々自然災害を表していたという説がありますが、それは一体何でしょうか?
(津波 #f)
(台風 #t)
(火山の噴火 #f)
(雪崩 #f))
(かぐや姫の原作である「竹取物語」の作者は誰でしょうか?
(紫式部 #f)
(清少納言 #f)
(聖徳太子 #f)
(作者不明 #t))
(江戸時代には、身分が高い女性があることをしてしまった際に、「私がやりました」と身代わりになる人がいました。何の身代わりだったでしょうか?
(食い逃げ #f)
(つまみ食い #f)
(おなら #t)
(個人情報の流出 #f))
(靴の一種、「ローファー」には英語でどんな意味があるでしょうか?
(怠け者 #t)
(働き者 #f)
(親不孝者 #f)
(幸せ者 #f))
(日本では飛鳥時代から平安時代頃にかけて「蘇」という乳製品が作られていました。現在で言えば何に近い物でしょうか?
(チーズ #t)
(ヨーグルト #f)
(ミルクココア #f)
(生クリーム #f))
(海上で事件や事故が起こった時、海上保安庁に通報する番号はどれでしょうか?
(104 #f)
(118 #t)
(177 #f)
(189 #f))
(カーペットの掃除などに使われる「コロコロ」を開発した会社であるニトムズは、コロコロの発売以前、粘着テープの力である虫を捕まえる道具を発売しました。その虫とは一体なんでしょうか?
(ゴキブリ #t)
(ハエ #f)
(蚊 #f)
(ムカデ #f))
(日本で人気のファーストフードのとあるメニューは、ドイツでは「ポメス」と呼ばれます。そのファーストフードとは一体なんでしょうか?
(ハンバーガー #f)
(チキンナゲット #f)
(フライドポテト #t)
(アイスクリーム #f))
(炊飯器の保温機能は最大でだいたい何時間くらいが限度でしょうか?
(12時間 #f)
(24時間 #t)
(36時間 #f)
(48時間 #t))
(お寿司屋さんでは、醤油のことをある色の名前で呼びます。何と呼ぶでしょうか?
(アカ #f)
(ミドリ #f)
(ムラサキ #t)
(クロ #f))
(ペットボトルに水を入れた物を猫除けにしている方がいますが、実際の効果はどうでしょうか?
(猫の品種によって違う #f)
(子猫だけには効く #f)
(全ての猫に効く #f)
(全く効かない #t))
(選挙運動スタッフにはおやつ代(茶菓料)が支給されます。その金額はいくらまででしょうか?
(200円 #f)
(500円 #t)
(1000円 #f)
(5000円 #f))
(選挙の投票用紙にはある特徴があります。それは一体なんでしょうか?
(折り曲げても勝手に開く #t)
(燃やせない #f)
(鉛筆以外では字が書けない #f)
(高級な紙が使われている #f))
(ラー油の「ラー」とはどんな意味でしょうか?
(辛い #t)
(香ばしい #f)
(赤い #f)
(美味しい #f))
(次のうち、俳句の季語として認定されていないものはどれ?
(サザン #f)
(チューブ #t)
(ユーミン #f)
(山下達郎 #f))
(母の日に贈る花で有名な「カーネーション」。さて、黄色のカーネーションの花言葉は次のうちどれ?
(家族愛 #f)
(感謝 #f)
(嫉妬 #f)
(軽蔑 #t))
(日常的に「マジ?」って言葉がよく使われますが、その「マジ」という言葉は、一体いつからあったでしょう?
(江戸時代 #t)
(明治時代 #f)
(昭和 #f)
(平成 #f))
(次のうち、実際に北海道に存在する川はどれ?
(イトオシイ川 #f)
(クルオシイ川 #f)
(ヤリキレナイ川 #t)
(チョウシデナイ川 #f))
(天空の城ラピュタの敵役として登場するムスカ大佐。さて、彼の年齢はいくつでしょう?
(28歳 #t)
(32歳 #f)
(58歳 #f)
(62歳 #f))
(サザエさんの、マスオさんの会社仲間のアナゴさんの年齢は?
(28歳 #t)
(32歳 #f)
(58歳 #f)
(62歳 #f))
(ドラゴンボールのべジータは何cmでしょう?
(159cm #f)
(164cm #t)
(179cm #f)
(184cm #f))
(巨人の星の星一徹がやる「ちゃぶ台返し」。彼はアニメの中で何回ちゃぶ台をひっくり返したでしょう?
(1回 #t)
(5回 #f)
(10回 #f)
(15回 #f))
(「ウォーリーを探せ」でお馴染みのウォーリー。彼の肩書きとされているのは、次のうちどれ?
(コックさん #f)
(バックパッカー #f)
(脱獄した囚人 #t)
(コメディアン #f))
(世界で最も歌われている曲は次のうちどれ?
(ハッピーバースデートゥーユー #t)
(きらきら星 #f)
(ジングルベル #f)
(アメージンググレイス #f))
(ラクダのこぶには何が詰まっている?
(脂肪 #t)
(水 #f)
(血液 #f)
(骨 #f))
(アブラカタブラの意外な意味とは?
(いただきます #f)
(ごちそうさまでした #f)
(悪霊退散 #f)
(花粉症退治 #t))
))
;;; 問題のシャッフル
(define (shuffle7 lst)
(foldl (lambda (proc x)
(proc (map (match-lambda ((cons first rest)
(cons first (proc rest))))
x))) lst (make-list 7 shuffle)))
;;; ユーティリティ
(define enumerate
(case-lambda
((iterable start)
(map cons (range start (+ start (length iterable))) iterable))
((iterable) (enumerate iterable 0))))
(define (digit-value char)
(string->number (list->string `(,char))))
;;; World 構造体
(struct world (phase quiz alist table acc) #:transparent)
;;; Read
(define (input env)
(match-let (((world p q a t acc) env))
(unless p
(begin0
(digit-value (read-char))
(read-char)))))
;;; Eval
(define (interp x env)
(match-let (((world p q alist table acc) env))
(world (not p)
(if p
(caar table)
q)
(if p
(enumerate (cdar table) 1)
alist)
((if p
cdr
identity) table)
((if p
identity
(lambda (v)
(cons (third (assv x alist)) v))) acc)
)))
;;; Print
(define (print env)
(let ((table '((#t . #\○) (#f . #\✕))))
(match-let (((world p
q
`((,n1 ,s1 ,f1) (,n2 ,s2 ,f2) (,n3 ,s3 ,f3) (,n4 ,s4 ,f4))
t acc) env))
(display (if p
(cdr (assv (car acc) table))
(format "~a~%~%~a. ~a~%~a. ~a~%~a. ~a~%~a. ~a~%" q n1 s1 n2 s2 n3 s3 n4 s4)))
(newline)
env)))
;;; REPL 初期ヴァージョン
;(define repl
; (case-lambda
; (() (repl 10))
; ((n) (let loop ((w (world #t #f #f (take (shuffle7 *db*) n) '())))
; (match-let (((world p q a table acc) w))
; (if (and p (null? table))
; (display (format "~a問中~a問正解~%"
; n
; (loop (print (interp (input w) w)))))))))
;;; REPL 完成版
(define repl
(case-lambda
(() (repl 10))
((n) (let loop ((w (world #t #f #f (take (shuffle7 *db*) n) '())))
(match-let (((world p q a table acc) w))
(if (and p (null? table))
(display (format "~a問中~a問正解~%"
n
(with-handlers ((exn:fail:contract?
(lambda (e)
(displayln "1〜4を入力してください")
(loop w))))
(loop (print (interp (input w) w))))))))))
(repl)