pascal 17290번 Crazy_aRcade_Good (백준)
var r,c,d,e,i,j:int64; a,b:array[1..10] of int64; s:string;beginreadln(r,c); d:=99;for i:=1 to 10 do begin a[i]:=0; b[i]:=0; end;for i:=1 to 10 do beginreadln(s); for j:=1 to 10 do begin if s[j]='o' then begin a[i]:=1; b[j]:=1; end; end;end;for i:=1 to 10 do for j:=1 to 10 do if (a[i]=0) and (b[j]=0) then begin e := abs(r-i)+abs(c-j); if d>e then d:=e; end;write(d);end. 풀이 : 기하학 0. (r,c) 좌표를 ..
Pascal/BAEKJOON
2025. 1. 11. 21:41
공지사항
최근에 올라온 글
최근에 달린 댓글
- Total
- Today
- Yesterday
링크
TAG
- 최소 스패닝 트리
- DP
- 누적 합
- 세그먼트 트리
- 정렬
- C언어
- java
- Krustal
- 1835
- C++
- 최대공약수
- 백준
- DFS
- Segment Tree
- 그리디
- 플로이드
- union
- 스택
- 1835번
- find
- PASCAL
- 브루트포스
- 덱
- 기하학
- 누적합
- 그래프
- XOR
- Lazy Propagation
- BFS
- 오프라인 쿼리
| 일 | 월 | 화 | 수 | 목 | 금 | 토 |
|---|---|---|---|---|---|---|
| 1 | 2 | 3 | ||||
| 4 | 5 | 6 | 7 | 8 | 9 | 10 |
| 11 | 12 | 13 | 14 | 15 | 16 | 17 |
| 18 | 19 | 20 | 21 | 22 | 23 | 24 |
| 25 | 26 | 27 | 28 | 29 | 30 | 31 |
글 보관함