作者laechan (揮淚斬馬雲)
看板mud_sanc
標題[閒聊] 隕石術
時間Tue Aug 8 19:47:55 2023
假設 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);
--
A男:
抱歉!我們原先提出的方案是22K,我們無法接受18K這樣的委託!
B男:我們會找到更好的機會,走吧!(四男一起離開,留下錯愕的官員)
C男:都沒人想過,或許更低薪資的方案,反而能替自己找到更好的工作!
D男:你說的沒錯,來!讓我們兄弟齊心,一起開創新的台灣工人史!
~Johnny Worker~ 「
Keep Working!」
<2010 囧尼‧工人 第一部完 待續> ψlaechan
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 59.126.145.135 (臺灣)
※ 文章網址: https://webptt.com/m.aspx?n=bbs/mud_sanc/M.1691495278.A.9F6.html
※ 編輯: laechan (59.126.145.135 臺灣), 08/09/2023 14:02:21
1F:→ laechan : 程式可 work 08/09 17:47