- board=: 0=?@$&8
graphic=: {&'.*'
guard=: 0,.~0,.0,~0,]
scr=: (1 1,:3 3)+/@,;._3 guard
hint=: scr{.@":@[`('*'"_)@.]&>]
다음은 실행예:
- (graphic,:hint) b=.board 5 6
.....*
...***
......
......
......
00124*
001***
001232
000000
000000
만약 매 글자 사이에 공백을 넣는 것이 중요하다면...
- ,"2 ,&' '"0 (graphic,:hint) b
. . . . . *
. . . * * *
. . . . . .
. . . . . .
. . . . . .
0 0 1 2 4 *
0 0 1 * * *
0 0 1 2 3 2
0 0 0 0 0 0
0 0 0 0 0 0