[閒聊] 隕石術

看板mud_sanc (Sanctuary - 聖殿)作者laechan (揮淚斬馬雲)時間1年前 (2023/08/08 19:47)推噓0(0推 0噓 1→)

留言1則, 1人參與討論串1/1

假設 pic = 隕石, 在 m x n 的大小內, 我希望亂數塞三顆隕石。 mixed pics=explode(read_file(__DIR__+"meteor"),"\n"); mixed pos=({}); mixed canvas=({}); int a,b,i,j,m=40,n=23,ps,p; string pic; ps=sizeof(pics); for(i=0;i<n;i++) { canvas+=({({})}); for(j=0;j<m*2;j=j+2) canvas[i]+=({"　"}); } // 起始位置 a=random(m); b=random(n); p=0; for(i=b;i<b+ps;i++) { if(i>=n) break; for(j=a*2;j<a*2+strlen(pics[p]);j=j+2) { if(j>=m*2) break; canvas[i][j]=pics[p][(j-a*2)/2]; } p++; if(p>=ps) break; } pic=""; for(i=0;i<n;i++) for(j=0;j<m;j++) pic+=canvas[i][j]; write(pic); -- Ａ男：抱歉！我們原先提出的方案是22Ｋ，我們無法接受18Ｋ這樣的委託！Ｂ男：我們會找到更好的機會，走吧！(四男一起離開，留下錯愕的官員) Ｃ男：都沒人想過，或許更低薪資的方案，反而能替自己找到更好的工作！Ｄ男：你說的沒錯，來！讓我們兄弟齊心，一起開創新的台灣工人史！　　～Johnny Worker～　「Keep Working！」 <2010 囧尼‧工人　第一部完　待續> ψlaechan -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 59.126.145.135 (臺灣) ※ 文章網址: https://www.ptt.cc/bbs/mud_sanc/M.1691495278.A.9F6.html ※ 編輯: laechan (59.126.145.135 臺灣), 08/09/2023 14:02:21