BASICの宿題はお前にまかせた

[458 デフォルトの名無しさん 2010/07/25(日) 17:30:38]

>>459
使用言語：J

f=:dyad define
c=.'*'
c,.(c,(((x, y)-2)$'_'),c),.c
)

4 f 7
*******
*_____*
*_____*
*******