作者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);
--
Ａ男：
抱歉！我们原先提出的方案是22Ｋ，我们无法接受18Ｋ这样的委托！
Ｂ男：我们会找到更好的机会，走吧！(四男一起离开，留下错愕的官员)
Ｃ男：都没人想过，或许更低薪资的方案，反而能替自己找到更好的工作！
Ｄ男：你说的没错，来！让我们兄弟齐心，一起开创新的台湾工人史！
～Johnny Worker～ 「
Keep Working！」
<2010 囧尼‧工人 第一部完 待续> ψlaechan
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 59.126.145.135 (台湾)
※ 文章网址: https://webptt.com/cn.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