結果
問題 | No.870 無敵囲い |
ユーザー |
|
提出日時 | 2019-08-30 21:53:39 |
言語 | Scheme (Gauche-0.9.15) |
結果 |
AC
|
実行時間 | 25 ms / 300 ms |
コード長 | 1,109 bytes |
コンパイル時間 | 23 ms |
コンパイル使用メモリ | 5,120 KB |
実行使用メモリ | 16,000 KB |
最終ジャッジ日時 | 2024-06-29 06:17:53 |
合計ジャッジ時間 | 1,971 ms |
ジャッジサーバーID (参考情報) |
judge2 / judge4 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 |
other | AC * 18 |
ソースコード
(define (read-list n)(cond [(zero? n) '()][else (let* ([x1 (read)][y1 (read)][x2 (read)][y2 (read)])(cons (list x1 y1 x2 y2) (read-list (- n 1))))]))(define (solve ll)(let loop ([xa 2][ya 8][xb 3][yb 9][xc 7][yc 9][ll ll])(cond [(null? ll) (if (and (= xa 5) (= ya 8) (= xb 4) (= yb 8) (= xc 6) (= yc 8)) "YES" "NO")][else (let ([x1 (car (car ll))][y1 (cadr (car ll))][x2 (caddr (car ll))][y2 (cadddr (car ll))])(cond [(and (= x1 xa) (= y1 ya)) (loop x2 y2 xb yb xc yc (cdr ll))][(and (= x1 xb) (= y1 yb)) (loop xa ya x2 y2 xc yc (cdr ll))][(and (= x1 xc) (= y1 yc)) (loop xa ya xb yb x2 y2 (cdr ll))][else (loop xa ya xb yb xc yc (cdr ll))]))])))(define (main args)(let* ([n (read)][ll (read-list n)])(print (solve ll)))0)