結果

問題 No.870 無敵囲い
ユーザー ducktail
提出日時 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
権限があれば一括ダウンロードができます

ソースコード

diff #
プレゼンテーションモードにする

(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)
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
0