최종욱
가입: 2009년 9월 15일
올린 글: 84
|
 올려짐: 2009년11월30일 17:41 주제: 실습12 맵 테스트 |
 |
|
오늘 실습 맵 테스트를 할 때 다음처럼 입력하는 것이 편할 듯 하여서..
맵 내용은 적당히 알아서 고쳐서 테스트해보세요~_~
| 코드: | let height = 10;;
let width = 11;;
(* 왼쪽 위가 (0, 0), 오른쪽 아래 끝이 (width-1, height - 1)
notation of visualizer : (가로 좌표, 세로 좌표) *)
let start_pos = (0, 0);;
let end_pos = (width - 1, height - 1);;
(* size : height x width *)
let mapstr =
"......X...." ^
"...X..X...." ^
"..XX....X.." ^
"X..X......." ^
"XXXX...X..." ^
"..X..XXXX.." ^
"X.....X...." ^
"..XXXX..XX." ^
"...X...XX.." ^
".X...X....." ;;
let b = ref( LocMap.empty ) ;;
for i = 0 to (height-1) do
for j = 0 to (width-1) do
let ch = String.get mapstr (i*width+j) in
if ch = 'X' then b := LocMap.add (j, i) Wall !b
else b := LocMap.add (j, i) Plain !b
done
done
let _ = print_html_of_game start_pos end_pos !b
|
for문 써서 죄송합니다
_________________
Jongwook Choi
Seoul National University, School of Computer Science & Engineering |
|
FAQ
검색
멤버리스트
사용자 그룹
사용자 등록하기
개인 정보
비공개 메시지를 확인하려면 로그인하십시오
로그인
