Re: 分割文字パズル - しばっち

2025/11/23 (Sun) 07:40:10

https://news.mynavi.jp/article/20240305-2862130/
https://www.waraerujd.com/二字熟語

二字熟語でやってみた。



RANDOMIZE
LET YSIZE=300
LET XSIZE=YSIZE*2
LET NY=2
LET NX=NY*2
DIM M(XSIZE/NX,YSIZE/NY),IMG(NX,NY,XSIZE/NX,YSIZE/NY),R(NX*NY)
DIM A$(1000)
SET BITMAP SIZE XSIZE,YSIZE
SET WINDOW 0,XSIZE-1,YSIZE-1,0
SET DRAW MODE HIDDEN
SET TEXT HEIGHT MIN(XSIZE,YSIZE)*.8
SET TEXT JUSTIFY "CENTER","HALF"
DO
LET N=N+1
READ IF MISSING THEN EXIT DO:A$(N)
LOOP
LET C=INT(RND*N+1)
SET COLOR MODE "NATIVE"
PLOT TEXT ,AT XSIZE/2,YSIZE/2:A$(C)
FOR J=0 TO NY-1
FOR I=0 TO NX-1
ASK PIXEL ARRAY (I*XSIZE/NX+1,J*YSIZE/NY+1) M
FOR Y=1 TO YSIZE/NY
FOR X=1 TO XSIZE/NX
LET IMG(I+1,J+1,X,Y)=M(X,Y)
NEXT X
NEXT Y
NEXT I
NEXT J
CLEAR
FOR I=1 TO NX*NY
LET R(I)=I-1
NEXT I
FOR I=1 TO NX*NY
SWAP R(I),R(INT(RND*NX*NY+1))
NEXT I
FOR I=1 TO NX*NY
LET X1=MOD(R(I),NX)
LET Y1=INT(R(I)/NX)
LET XX=MOD(I-1,NX)
LET YY=INT((I-1)/NX)
FOR Y=1 TO YSIZE/NY
FOR X=1 TO XSIZE/NX
LET M(X,Y)=IMG(X1+1,Y1+1,X,Y)
NEXT X
NEXT Y
MAT PLOT CELLS, IN XX*XSIZE/NX+1,YY*YSIZE/NY+1;(XX+1)*XSIZE/NX,(YY+1)*YSIZE/NY:M
NEXT I
FOR I=1 TO NX-1
PLOT LINES:XSIZE/NX*I,0;XSIZE/NX*I,YSIZE
NEXT I
FOR I=1 TO NY-1
PLOT LINES:0,YSIZE/NY*I;XSIZE,YSIZE/NY*I
NEXT I
SET DRAW MODE EXPLICIT
INPUT PROMPT "この熟語は何ですか?":C$
IF C$(1:2)=A$(C) THEN
PRINT "正解です"
ELSE
PRINT "間違いです"
PRINT "正解は「";A$(C);"」です"
END IF
CLEAR
PLOT TEXT ,AT XSIZE/2,YSIZE/2:A$(C)
DATA "闊達","剛健","豪放","克己","志士","進歩","大器","大志","天稟","熱血"
DATA "熱烈","飛翔","不屈","伏竜","不敵","不撓","不敗","奮迅","無敵","躍如"
DATA "一心","威風","叡智","英雄","果断","気鋭","矜持","炯眼","軒昂","至誠"
DATA "琢磨","探究","調和","恬淡","闘魂","邁進","無我","友愛","勇士","磊落"
DATA "快走","剛球","好走","剛力","奮起","迅走","制覇","全力","団結","挑戦"
DATA "跳躍","闘志","独走","白球","疾風","必勝","猛者","勇猛","力泳","力走"
DATA "朝霧","稲妻","永遠","永劫","桜花","風花","極光","月華","紫苑","漆黒"
DATA "東雲","秋水","青雲","蒼穹","玉響","薄氷","翡翠","白夜","村雨","明月"
DATA "哀音","歌姫","謳歌","音韻","音曲","諧声","楽音","楽匠","楽聖","残響"
DATA "清音","旋律","奏楽","天楽","天籟","熱唱","万雷","妙音","遊楽","玲瓏"
DATA "侮辱","鬱憤","知足","喧嘩","臆病","快眠","奇特","冥利","漏洩","漏泄"
DATA "行脚","寵児","滑舌","突飛","余談","禁物","小用","早急","稽古","蹂躙"
DATA "投資","転落","旦那","主人","主婦","細君","愚民","改竄","幼稚","雪辱"
DATA "処刑","失速","消息","風流","愛敬","挨拶","曖昧","悪運","齷齪","圧巻"
DATA "阿呆","行脚","暗渠","暗殺","暗算","塩梅","畏敬","異色","椅子","遺体"
DATA "一応","一本","一流","違法","異例","異論","隠居","陰陽","迂闊","鬱憤"
DATA "饂飩","胡乱","蘊蓄","運命","英霊","益獣","餌食","縁側","縁起","遠足"
DATA "縁日","遠慮","横暴","悪寒","臆病","邂逅","外交","改竄","怪獣","外人"
DATA "海藻","戒名","快眠","瓦解","牡蠣","餓鬼","蝸牛","家畜","郭公","滑舌"
DATA "合点","家内","還元","漢詩","観賞","完治","完璧","顔面","官僚","季語"
DATA "気骨","犠牲","奇跡","鬼畜","吉報","奇特","鬼門","逆風","球界","休憩"
DATA "急死","鳩首","球種","休息","恐慌","兄弟","梟雄","玉露","巨乳","綺羅"
DATA "義理","綺麗","禁句","銀行","金策","謹製","禁物","金融","金利","空気"
DATA "苦学","愚妻","愚僧","愚息","愚痴","愚直","苦悩","工夫","愚民","訓誡"
DATA "計画","稽古","敬語","芸者","契約","結構","下戸","景色","化粧","血税"
DATA "外道","懸念","下品","喧嘩","見学","玄関","元気","謙虚","兼業","献金"
DATA "拳固","健康","健在","原罪","謙遜","検討","健闘","剣道","圏内","公害"
DATA "後宮","公休","控訴","後輩","交番","合法","公僕","高慢","公民","拷問"
DATA "互角","古希","国債","国字","告発","獄門","乞食","姑息","炬燵","滑稽"
DATA "骨董","孤独","語弊","御用","根気","混沌","蒟蒻","昆布","混浴","菜館"
DATA "細君","在庫","催促","財布","債務","在野","雑魚","座高","挫折","左遷"
DATA "坐禅","錯覚","早急","懺悔","参詣","山賊","三昧","三流","時価","刺客"
DATA "自覚","自虐","時給","死刑","試験","地獄","仕事","自粛","詩人","自信"
DATA "自制","時代","失速","実弾","失望","失礼","辞典","自負","始末","自慢"
DATA "滋味","社運","若干","借景","娑婆","終活","重鎮","柔道","焼売","蹂躙"
DATA "主義","珠玉","粛粛","縮図","粛清","熟年","熟慮","出世","主婦","寿命"
DATA "生姜","正月","将棋","将軍","情景","浄財","障子","消息","冗談","焼酎"
DATA "証人","消費","小品","醤油","小用","食物","処刑","書道","庶民","持論"
DATA "仁義","人権","人災","斟酌","心中","心臓","慎重","親展","心配","新聞"
DATA "人民","神話","杜撰","寸志","寸胴","寸評","静観","政局","精査","正座"
DATA "政策","歳暮","正論","赤飯","世間","舌禍","折檻","説教","節句","席巻"
DATA "石鹸","殺生","雪辱","接待","雪隠","刹那","切腹","節分","接吻","絶望"
DATA "是非","前科","選挙","線香","戦死","善処","扇子","先祖","戦争","先達"
DATA "洗脳","先輩","戦犯","煎餅","餞別","戦友","川柳","争点","双璧","即死"
DATA "粗茶","卒業","速攻","属国","素朴","蹲居","尊敬","忖度","代案","対価"
DATA "大学","大寒","退屈","体質","大衆","大臣","台風","大便","太陽","沢庵"
DATA "沢山","蛇足","駝鳥","獺祭","脱帽","脱法","七夕","達磨","短歌","断食"
DATA "男色","旦那","堪能","地球","遅刻","知人","地図","知性","馳走","知足"
DATA "知能","着着","茶道","中元","中流","寵児","長寿","超人","頂戴","提灯"
DATA "丁度","挑発","丁半","重宝","鎮圧","追求","痛快","亭主","定価","定食"
DATA "泥酔","定年","定番","溺愛","適当","鉄人","鉄棒","田楽","天災","天才"
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

サンプル画像の正解は「返事」です

Re: 分割文字パズル - しばっち

2025/11/23 (Sun) 07:41:22

3字熟語のパズルです。

https://sanji-jukugo.com/index/page/15/
https://記事作成代行.jp/idiom-three-words/


RANDOMIZE
LET YSIZE=300
LET XSIZE=YSIZE*3
LET NY=2
LET NX=NY*3
DIM M(XSIZE/NX,YSIZE/NY),IMG(NX,NY,XSIZE/NX,YSIZE/NY),R(NX*NY)
DIM A$(1000)
SET BITMAP SIZE XSIZE,YSIZE
SET WINDOW 0,XSIZE-1,YSIZE-1,0
SET DRAW MODE HIDDEN
SET TEXT HEIGHT MIN(XSIZE,YSIZE)*.8
SET TEXT JUSTIFY "CENTER","HALF"
DO
LET N=N+1
READ IF MISSING THEN EXIT DO:A$(N)
LOOP
LET C=INT(RND*N+1)
SET COLOR MODE "NATIVE"
PLOT TEXT ,AT XSIZE/2,YSIZE/2:A$(C)
FOR J=0 TO NY-1
FOR I=0 TO NX-1
ASK PIXEL ARRAY (I*XSIZE/NX+1,J*YSIZE/NY+1) M
FOR Y=1 TO YSIZE/NY
FOR X=1 TO XSIZE/NX
LET IMG(I+1,J+1,X,Y)=M(X,Y)
NEXT X
NEXT Y
NEXT I
NEXT J
CLEAR
FOR I=1 TO NX*NY
LET R(I)=I-1
NEXT I
FOR I=1 TO NX*NY
SWAP R(I),R(INT(RND*NX*NY+1))
NEXT I
FOR I=1 TO NX*NY
LET X1=MOD(R(I),NX)
LET Y1=INT(R(I)/NX)
LET XX=MOD(I-1,NX)
LET YY=INT((I-1)/NX)
FOR Y=1 TO YSIZE/NY
FOR X=1 TO XSIZE/NX
LET M(X,Y)=IMG(X1+1,Y1+1,X,Y)
NEXT X
NEXT Y
MAT PLOT CELLS, IN XX*XSIZE/NX+1,YY*YSIZE/NY+1;(XX+1)*XSIZE/NX,(YY+1)*YSIZE/NY:M
NEXT I
FOR I=1 TO NX-1
PLOT LINES:XSIZE/NX*I,0;XSIZE/NX*I,YSIZE
NEXT I
FOR I=1 TO NY-1
PLOT LINES:0,YSIZE/NY*I;XSIZE,YSIZE/NY*I
NEXT I
SET DRAW MODE EXPLICIT
INPUT PROMPT "この熟語は何ですか?":C$
IF C$(1:3)=A$(C) THEN
PRINT "正解です"
ELSE
PRINT "間違いです"
PRINT "正解は「";A$(C);"」です"
END IF
CLEAR
PLOT TEXT ,AT XSIZE/2,YSIZE/2:A$(C)
DATA "合言葉","相弟子","青海原","青写真","青写真","青二才","商三年","秋日和","悪趣味","悪循環"
DATA "悪太郎","浅知恵","朝月夜","朝寝坊","阿修羅","値千金","天邪鬼","雨模様","現人神","暗暗裏"
DATA "暗剣殺","安本丹","安楽死","意気地","意固地","居心地","居酒屋","偉丈夫","為政者","居丈高"
DATA "異端児","韋駄天","一見識","一七日","一人物","一大事","一段落","一人前","一目散","一角獣"
DATA "一家言","一茎草","一周忌","一隻眼","一張羅","一丁字","一辺倒","一本気","居留守","十六女"
DATA "岩清水","慇懃講","雨安居","魚河岸","氏素性","歌物語","内弁慶","有頂天","裏千家","運鈍根"
DATA "似而非","絵空事","江戸前","演繹法","円熟味","燕尾服","閻魔帳","往生際","横断幕","大御所"
DATA "大雑把","大時代","大晦日","幼馴染","御釈迦","御題目","御陀仏","御転婆","音沙汰","未通女"
DATA "朧月夜","表看板","表沙汰","親分肌","折紙付","快気祝","怪奇炎","怪文書","案山子","陰日向"
DATA "影武者","風見鶏","河川敷","片意地","金釘流","金壺眼","金槌頭","過不及","過保護","紙芝居"
DATA "紙一重","空威張","空元気","皮算用","間一髪","閑古鳥","感無量","街路樹","我楽多","生一本"
DATA "乞巧奠","稀覯本","気丈夫","既知数","几帳面","木賃宿","既得権","着道楽","急先鋒","求道者"
DATA "橋頭保","綺羅星","桐一葉","麒麟児","金糸雀","近似値","金字塔","禁足地","口悪説","口綺麗"
DATA "口喧嘩","口呼吸","口拍子","口真似","口忠実","口約束","位盗人","玄人跣","形而上","外連味"
DATA "下剋上","下手人","月桂冠","月旦評","下手物","下馬評","原動力","小意気","恋女房","紅一点"
DATA "考現学","好好爺","硬骨漢","高姿勢","好事家","小気味","古古米","心得顔","小細工","腰巾着"
DATA "金輪際","語彙力","強力犯","御新造","後日談","御破算","御利益","破落戸","最高潮","歳時記"
DATA "早乙女","山茶花","匙加減","殺風景","茶飯事","五月雨","猿芝居","猿真似","三箇日","三周忌"
DATA "三枚目","三隣亡","志願者","試金石","獅子吼","七福神","四天王","注連縄","仕舞屋","斜陽族"
DATA "集大成","守銭奴","修羅場","松竹梅","正念場","食用花","白装束","白無垢","新機軸","蜃気楼"
DATA "真骨頂","新天地","審美眼","直談判","自堕落","地団駄","自然薯","重要視","上首尾","常緑樹"
DATA "序破急","神通力","素寒貧","数奇屋","助太刀","素頓狂","素浪人","正攻法","星条旗","正比例"
DATA "成文法","成文律","赤裸裸","世間体","雪月花","瀬戸際","蝉時雨","先覚者","千秋楽","先入観"
DATA "千人針","千羽鶴","千里眼","善後策","前哨戦","禅問答","総本山","走馬灯","即戦力","素封家"
DATA "空上戸","俗世間","太極拳","太鼓判","太平楽","手弱女","高飛車","多趣味","多数決","立往生"
DATA "棚牡丹","玉虫色","短日月","短兵急","蒲公英","大往生","大黒柱","醍醐味","第三者","大上段"
DATA "大大的","大団円","駄洒落","断末魔","知情意","地動説","千鳥足","致命傷","茶番劇","長期戦"
DATA "長広舌","長大息","超特急","張本人","猪口才","珍無類","追体験","付焼刃","辻説法","美人局"
DATA "低姿勢","手一合","鉄面皮","天地人","天動説","天王山","出来秋","出来心","出来高","出鱈目"
DATA "出不精","桃源郷","逃避行","唐変木","登竜門","得意顔","頓珍漢","土地勘","突拍子","屯田兵"
DATA "度外視","独擅場","道産子","土性骨","土壇場","泥仕合","丼勘定","内視鏡","長羽織","長丁場"
DATA "夏木立","浪花節","生意気","生半可","生兵法","生返事","並大抵","南無三","新嘗祭","二刀流"
DATA "二枚舌","二枚目","如夜叉","抜小路","微温湯","熱帯夜","涅槃吹","能天気","野放図","白眼視"
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