異なる文字探しパズル - しばっち

2025/11/02 (Sun) 08:17:12

実行すると下記のようなファイルを書き出します。
この中には異なる文字が含まれています。
("階"及び"柴"がそれぞれに含まれています)

https://machigai-sagashi.com/all_list/
https://news.mynavi.jp/article/20241121-3054324/
https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1299402027
https://kyozaisupport.com/niteirukanji0201/



偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕
偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕
偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕
偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕
偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕
偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕
偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕
偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕
偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕
偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕
偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕
偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕
偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕
偕階偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕
偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕
偕偕偕偕偕偕偕偕偕偕階偕偕偕偕偕偕偕偕偕
偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕
偕偕偕偕偕偕偕偕偕偕階偕偕偕偕偕偕偕偕偕
偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕
偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕偕

紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫
紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫
紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫
紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫
紫紫紫紫紫紫紫紫紫柴紫紫紫紫紫紫紫紫紫紫
紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫
紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫
紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫
紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫
紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫
紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫
紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫
紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫
紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫
紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫
紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫
紫紫紫紫柴紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫
紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫
紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫
紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫紫


RANDOMIZE
LET ROW=20 ! 行
LET COL=20 ! 列
DIM M$(COL,ROW),A$(650),B$(650)
DIM T$(COL,ROW)
DO
LET N=N+1
READ IF MISSING THEN EXIT DO:A$(N),B$(N)
LOOP
OPEN #1:NAME "文字探し問題.txt"
OPEN #2:NAME "文字探し答え.txt"
ERASE #1
ERASE #2
FOR K=1 TO 5 ! 問題数
LET L=INT(RND*(N-1)+1)
IF RND<.5 THEN SWAP A$(L),B$(L)
MAT M$=(A$(L))& NUL$
MAT T$=M$
LET P=INT(RND*3+1) ! 異なる文字数
FOR I=1 TO P
LET X=INT(RND*COL+1)
LET Y=INT(RND*ROW+1)
LET M$(X,Y)=B$(L)
LET T$(X,Y)=" "
NEXT I
FOR Y=1 TO ROW
FOR X=1 TO COL
PRINT #1:M$(X,Y);
NEXT X
PRINT #1
NEXT Y
PRINT #1
FOR Y=1 TO ROW
FOR X=1 TO COL
PRINT #2 : T$(X,Y);
NEXT X
PRINT #2
NEXT Y
PRINT #2
NEXT K
CLOSE #1
CLOSE #2
DATA "浦","捕"
DATA "輸","愉"
DATA "輪","輸"
DATA "快","決"
DATA "薬","楽"
DATA "唯","維"
DATA "飴","治"
DATA "惟","進"
DATA "緒","渚"
DATA "氣","気"
DATA "埼","崎"
DATA "紅","江"
DATA "供","洪"
DATA "胆","担"
DATA "拍","伯"
DATA "泊","栢"
DATA "愛","受"
DATA "乱","礼"
DATA "位","泣"
DATA "待","侍"
DATA "淡","談"
DATA "間","聞"
DATA "偉","違"
DATA "紫","柴"
DATA "階","楷"
DATA "格","路"
DATA "津","律"
DATA "風","鳳"
DATA "待","持"
DATA "柱","注"
DATA "住","駐"
DATA "金","全"
DATA "汲","級"
DATA "階","偕"
DATA "度","席"
DATA "森","林"
DATA "苦","古"
DATA "始","治"
DATA "誰","唯"
DATA "海","侮"
DATA "情","清"
DATA "万","方"
DATA "鳥","烏"
DATA "失","矢"
DATA "王","玉"
DATA "軸","油"
DATA "埼","崎"
DATA "田","由"
DATA "未","末"
DATA "折","近"
DATA "見","貝"
DATA "貝","具"
DATA "大","犬"
DATA "水","氷"
DATA "職","織"
DATA "天","夫"
DATA "大","太"
DATA "里","黒"
DATA "時","侍"
DATA "百","白"
DATA "超","招"
DATA "力","刀"
DATA "供","洪"
DATA "彼","波"
DATA "河","何"
DATA "括","活"
DATA "理","埋"
DATA "自","目"
DATA "週","調"
DATA "丸","九"
DATA "士","土"
DATA "建","健"
DATA "小","少"
DATA "私","仏"
DATA "括","活"
DATA "変","恋"
DATA "迫","泊"
DATA "休","体"
DATA "決","快"
DATA "木","本"
DATA "連","錬"
DATA "返","坂"
DATA "黙","點"
DATA "頂","頃"
DATA "項","頃"
DATA "頂","項"
DATA "雲","雪"
DATA "零","雰"
DATA "雑","難"
DATA "離","難"
DATA "雑","離"
DATA "陳","陣"
DATA "開","閉"
DATA "釘","針"
DATA "険","倹"
DATA "都","部"
DATA "追","迫"
DATA "遺","遣"
DATA "輸","輪"
DATA "車","東"
DATA "販","敗"
DATA "責","貴"
DATA "貝","具"
DATA "売","買"
DATA "貿","賀"
DATA "賃","貸"
DATA "貨","貸"
DATA "賃","貨"
DATA "輸","輪"
DATA "諸","緒"
DATA "誠","試"
DATA "診","珍"
DATA "議","儀"
DATA "説","設"
DATA "詳","評"
DATA "複","復"
DATA "衝","衛"
DATA "藉","籍"
DATA "般","船"
DATA "與","興"
DATA "考","老"
DATA "続","読"
DATA "紀","記"
DATA "績","続"
DATA "織","職"
DATA "職","識"
DATA "織","識"
DATA "綱","鋼"
DATA "網","鋼"
DATA "綱","網"
DATA "緑","縁"
DATA "終","絡"
DATA "給","絡"
DATA "終","給"
DATA "紛","粉"
DATA "薄","簿"
DATA "端","瑞"
DATA "祝","視"
DATA "社","祉"
DATA "石","右"
DATA "知","和"
DATA "短","矩"
DATA "盲","育"
DATA "衆","象"
DATA "白","自"
DATA "當","常"
DATA "田","出"
DATA "田","由"
DATA "王","玉"
DATA "爪","瓜"
DATA "活","治"
DATA "水","永"
DATA "氷","永"
DATA "水","氷"
DATA "氏","民"
DATA "比","北"
DATA "欧","歌"
DATA "梢","稍"
DATA "栽","裁"
DATA "松","杉"
DATA "東","束"
DATA "村","林"
DATA "末","未"
DATA "木","本"
DATA "木","水"
DATA "書","畫"
DATA "普","晋"
DATA "旬","句"
DATA "旦","且"
DATA "日","月"
DATA "施","旋"
DATA "旅","族"
DATA "放","故"
DATA "収","牧"
DATA "改","政"
DATA "攻","政"
DATA "改","攻"
DATA "友","反"
DATA "接","按"
DATA "捐","損"
DATA "拾","捨"
DATA "技","枝"
DATA "挟","狭"
DATA "抱","拘"
DATA "析","折"
DATA "手","年"
DATA "戴","載"
DATA "憶","臆"
DATA "快","怏"
DATA "思","恩"
DATA "悩","脳"
DATA "感","惑"
DATA "恕","怒"
DATA "態","熊"
DATA "心","必"
DATA "弔","吊"
DATA "幻","幼"
DATA "平","半"
DATA "巴","巳"
DATA "己","巴"
DATA "対","討"
DATA "客","容"
DATA "寒","塞"
DATA "蓄","畜"
DATA "審","番"
DATA "官","宮"
DATA "宇","字"
DATA "孤","狐"
DATA "存","有"
DATA "娘","狼"
DATA "姓","性"
DATA "妨","防"
DATA "失","矢"
DATA "太","大"
DATA "奪","奮"
DATA "堅","竪"
DATA "貧","貪"
DATA "宣","宜"
DATA "埋","理"
DATA "基","墓"
DATA "壌","壊"
DATA "城","域"
DATA "土","士"
DATA "国","団"
DATA "因","困"
DATA "合","令"
DATA "左","在"
DATA "子","干"
DATA "叉","又"
DATA "厄","危"
DATA "卯","卵"
DATA "千","于"
DATA "干","于"
DATA "千","干"
DATA "午","牛"
DATA "幣","弊"
DATA "助","肋"
DATA "制","判"
DATA "刊","刑"
DATA "到","倒"
DATA "別","列"
DATA "滅","減"
DATA "回","同"
DATA "両","雨"
DATA "全","金"
DATA "兎","免"
DATA "児","見"
DATA "做","倣"
DATA "池","他"
DATA "地","池"
DATA "他","地"
DATA "傅","博"
DATA "侵","浸"
DATA "侮","悔"
DATA "仲","伸"
DATA "侍","待"
DATA "便","使"
DATA "伴","件"
DATA "代","伐"
DATA "任","仕"
DATA "今","令"
DATA "人","入"
DATA "亨","亭"
DATA "世","冊"
DATA "上","土"
DATA "糸","系"
DATA "炎","災"
DATA "隋","惰"
DATA "祝","呪"
DATA "遂","逐"
DATA "字","学"
DATA "科","料"
DATA "加","如"
DATA "万","方"
DATA "織","職"
DATA "掘","堀"
DATA "己","巳"
DATA "斥","斤"
DATA "凜","凛"
DATA "占","古"
DATA "沈","枕"
DATA "仄","灰"
DATA "鳥","島"
DATA "似","以"
DATA "比","此"
DATA "柴","紫"
DATA "犬","大"
DATA "苫","苦"
DATA "咋","昨"
DATA "尤","犬"
DATA "廉","康"
DATA "惜","借"
DATA "巨","臣"
DATA "衝","衡"
DATA "荻","萩"
DATA "休","体"
DATA "五","伍"
DATA "哲","誓"
DATA "敞","敝"
DATA "昂","昴"
DATA "易","昜"
DATA "皙","晢"
DATA "日","曰"
DATA "酒","洒"
DATA "冽","洌"
DATA "凅","涸"
DATA "浙","淅"
DATA "准","淮"
DATA "疽","疸"
DATA "晴","睛"
DATA "乗","秉"
DATA "春","舂"
DATA "茶","荼"
DATA "薛","薜"
DATA "卲","邵"
DATA "陜","陝"
DATA "塵","麈"
DATA "候","侯"
DATA "苦","若"
DATA "搏","摶"
DATA "擧","舉"
DATA "見","貝"
DATA "競","兢"
DATA "胃","冑"
DATA "券","劵"
DATA "壺","壼"
DATA "夂","夊"
DATA "子","孑"
DATA "徒","徙"
DATA "忽","怱"
DATA "眠","眼"
DATA "舁","昇"
DATA "撒","撤"
DATA "夭","天"
DATA "抔","杯"
DATA "妺","妹"
DATA "匆","勿"
DATA "治","冶"
DATA "季","李"
DATA "詑","詫"
DATA "名","各"
DATA "師","帥"
DATA "拆","折"
DATA "延","廷"
DATA "先","失"
DATA "力","刀"
DATA "主","王"
DATA "積","績"
DATA "紛","粉"
DATA "枝","技"
DATA "検","倹"
DATA "険","倹"
DATA "桂","佳"
DATA "徐","除"
DATA "掘","堀"
DATA "提","堤"
DATA "挟","狭"
DATA "侠","狭"
DATA "側","測"
DATA "侵","浸"
DATA "諸","緒"
DATA "識","織"
DATA "職","幟"
DATA "朗","郎"
DATA "壁","璧"
DATA "菅","管"
DATA "薄","簿"
DATA "盤","磐"
DATA "烈","裂"
DATA "熊","態"
DATA "弊","幣"
DATA "秦","泰"
DATA "栽","裁"
DATA "歴","暦"
DATA "候","侯"
DATA "塵","麈"
DATA "壺","壼"
DATA "酒","洒"
DATA "萩","荻"
DATA "昨","咋"
DATA "擧","舉"
DATA "競","兢"
DATA "徒","徙"
DATA "春","舂"
DATA "胃","冑"
DATA "茶","荼"
DATA "乗","秉"
DATA "易","昜"
DATA "券","劵"
DATA "治","冶"
DATA "凅","涸"
DATA "准","淮"
DATA "剌","刺"
DATA "卲","邵"
DATA "昂","昴"
DATA "冉","再"
DATA "妺","妹"
DATA "師","帥"
DATA "忽","怱"
DATA "拆","折"
DATA "抔","杯"
DATA "延","廷"
DATA "搏","摶"
DATA "撒","撤"
DATA "敞","敝"
DATA "皙","晢"
DATA "晴","睛"
DATA "匆","勿"
DATA "季","李"
DATA "冽","洌"
DATA "浙","淅"
DATA "疽","疸"
DATA "祇","祗"
DATA "夭","天"
DATA "舁","昇"
DATA "苫","苦"
DATA "薛","薜"
DATA "詑","詫"
DATA "陜","陝"
DATA "待","持"
DATA "牛","午"
DATA "午","千"
DATA "間","問"
DATA "先","失"
DATA "体","休"
DATA "苦","若"
DATA "全","金"
DATA "左","在"
DATA "鳥","島"
DATA "酒","洒"
DATA "考","老"
DATA "旅","族"
DATA "名","各"
DATA "天","夫"
DATA "王","玉"
DATA "熊","態"
DATA "料","科"
DATA "体","休"
DATA "少","小"
DATA "上","止"
DATA "刀","力"
DATA "親","新"
DATA "広","公"
DATA "海","毎"
DATA "合","会"
DATA "万","方"
DATA "文","交"
DATA "自","白"
DATA "車","東"
DATA "手","毛"
DATA "谷","答"
DATA "工","土"
DATA "池","地"
DATA "雪","雲"
DATA "太","大"
DATA "間","聞"
DATA "理","里"
DATA "交","父"
DATA "回","同"
DATA "細","組"
DATA "顔","頭"
DATA "毎","母"
DATA "亞","亜"
DATA "違","緯"
DATA "異","胃"
DATA "帷","惟"
DATA "飯","仮"
DATA "異","胃"
DATA "飴","治"
DATA "緯","違"
DATA "衣","依"
DATA "位","泣"
DATA "維","進"
DATA "椅","埼"
DATA "卯","卵"
DATA "胡","湖"
DATA "雄","雌"
DATA "緒","渚"
DATA "珂","何"
DATA "河","何"
DATA "禍","渦"
DATA "柯","珂"
DATA "嘩","樺"
DATA "暇","蝦"
DATA "禍","過"
DATA "紀","記"
DATA "祈","近"
DATA "紀","起"
DATA "騎","崎"
DATA "記","紀"
DATA "碕","埼"
DATA "碕","騎"
DATA "伎","枝"
DATA "几","凡"
DATA "飢","机"
DATA "徽","微"
DATA "棄","葉"
DATA "揮","輝"
DATA "季","委"
DATA "岐","枝"
DATA "躯","駆"
DATA "孔","礼"
DATA "駒","狗"
DATA "涸","個"
DATA "枯","鈷"
DATA "壷","壺"
DATA "湖","瑚"
DATA "顧","願"
DATA "糊","湖"
DATA "股","没"
DATA "詐","酢"
DATA "紗","砂"
DATA "叉","又"
DATA "嵯","瑳"
DATA "些","柴"
DATA "柿","姉"
DATA "飼","詞"
DATA "肢","枝"
DATA "詞","嗣"
DATA "師","柿"
DATA "弛","池"
DATA "匙","題"
DATA "孜","攻"
DATA "祖","租"
DATA "疎","速"
DATA "狙","姐"
DATA "措","借"
DATA "阻","租"
DATA "岨","粗"
DATA "阻","組"
DATA "疏","流"
DATA "祖","租"
DATA "狙","阻"
DATA "他","池"
DATA "詫","侘"
DATA "蛇","侘"
DATA "乳","礼"
DATA "津","律"
DATA "吐","杜"
DATA "賭","堵"
DATA "丹","舟"
DATA "濡","儒"
DATA "刃","刀"
DATA "把","杷"
DATA "被","彼"
DATA "桧","絵"
DATA "燈","橙"
DATA "灯","釘"
DATA "誹","俳"
DATA "披","彼"
DATA "妃","記"
DATA "夫","天"
DATA "訃","赴"
DATA "冨","富"
DATA "鋪","舗"
DATA "捕","穂"
DATA "摩","魔"
DATA "視","観"
DATA "摸","模"
DATA "冶","治"
DATA "哉","裁"
DATA "債","漬"
DATA "愉","輸"
DATA "楡","喩"
DATA "畑","佃"
DATA "輿","興"
DATA "把","杷"
DATA "鰆","椿"
DATA "鯨","涼"
DATA "鯉","理"
DATA "鯛","調"
DATA "植","値"
DATA "梅","海"
DATA "柏","拍"
DATA "柿","肺"
DATA "桐","銅"
DATA "橙","澄"
DATA "杷","肥"
DATA "桧","絵"
DATA "杜","仕"
DATA "梧","語"
END
---------------------------------------------------------------------
下記ではhtmlファイルを書き出します。

上記からDATA文をコピペしてください。


RANDOMIZE
LET ROW=20
LET COL=20
DIM M$(COL,ROW),A$(650),B$(650)
DO
LET N=N+1
READ IF MISSING THEN EXIT DO:A$(N),B$(N)
LOOP
OPEN #1:NAME "文字探し問題.html"
OPEN #2:NAME "文字探し答え.html"
ERASE #1
ERASE #2
PRINT #1:"<!DOCTYPE html>"
PRINT #1:" <html>"
PRINT #1:" <body>"
PRINT #1:" <div align=center>"
PRINT #1:" <h1>問題</h1>"
PRINT #1:" </div>"

PRINT #2:"<!DOCTYPE html>"
PRINT #2:" <html>"
PRINT #2:" <body>"
PRINT #2:" <div align=center>"
PRINT #2:" <h1>解答</h1>"
PRINT #2:" </div>"
FOR K=1 TO 5
PRINT #1:" <table align=center>"
PRINT #2:" <table align=center>"
LET L=INT(RND*(N-1)+1)
IF RND<.5 THEN SWAP A$(L),B$(L)
MAT M$=(A$(L))& NUL$
LET P=INT(RND*3+1)
FOR I=1 TO P
LET X=INT(RND*COL+1)
LET Y=INT(RND*ROW+1)
LET M$(X,Y)=B$(L)
NEXT I
FOR Y=1 TO ROW
PRINT #1:"<tr>"
FOR X=1 TO COL
PRINT #1:"<td>";M$(X,Y);"</td>";
NEXT X
PRINT #1
PRINT #1:"</tr>"
NEXT Y

FOR Y=1 TO ROW
PRINT #2:"<tr>"
FOR X=1 TO COL
IF M$(X,Y)=B$(L) THEN
PRINT #2:"<td><font color=#ff0000>";M$(X,Y);"</font></td>"
ELSE
PRINT #2:"<td>";M$(X,Y);"</td>";
END IF
NEXT X
PRINT #2
PRINT #2:"</tr>"
NEXT Y
PRINT #1:" </table>"
PRINT #1:"<br>"
PRINT #2:" </table>"
PRINT #2:"<br>"
NEXT K
PRINT #1:" </body>"
PRINT #1:" </html>"
PRINT #2:" </body>"
PRINT #2:" </html>"
CLOSE #1
CLOSE #2
DATA "浦","捕"
DATA "輸","愉"
DATA "輪","輸"
DATA "快","決"
END