結果

問題 No.2790 Athena 3
ユーザー Lisp_Coder
提出日時 2024-06-22 17:05:25
言語 Common Lisp
(sbcl 2.5.0)
結果
AC  
実行時間 11 ms / 2,000 ms
コード長 1,037 bytes
コンパイル時間 488 ms
コンパイル使用メモリ 37,352 KB
実行使用メモリ 31,892 KB
最終ジャッジ日時 2024-06-22 17:05:26
合計ジャッジ時間 1,510 ms
ジャッジサーバーID
(参考情報)
judge5 / judge2
このコードへのチャレンジ
(要ログイン)
ファイルパターン 結果
sample AC * 3
other AC * 14
権限があれば一括ダウンロードができます
コンパイルメッセージ
; compiling file "/home/judge/data/code/Main.lisp" (written 22 JUN 2024 05:05:24 PM):

; wrote /home/judge/data/code/Main.fasl
; compilation finished in 0:00:00.077

ソースコード

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

(defun read-points ()
(list (read) (read) (read) (read) (read) (read)))
(defun calculate-area (x1 y1 x2 y2 x3 y3)
(/ (abs (- (+ (* x1 (- y2 y3)) (* x2 (- y3 y1)) (* x3 (- y1 y2))))) 2.0))
(defun max-triangle-area (points)
(let* ((x1 (nth 0 points))
(y1 (nth 1 points))
(x2 (nth 2 points))
(y2 (nth 3 points))
(x3 (nth 4 points))
(y3 (nth 5 points))
(deltas '((1 0) (-1 0) (0 1) (0 -1)))
(max-area 0.0))
(dolist (d1 deltas)
(dolist (d2 deltas)
(dolist (d3 deltas)
(let* ((new-x1 (+ x1 (car d1)))
(new-y1 (+ y1 (cadr d1)))
(new-x2 (+ x2 (car d2)))
(new-y2 (+ y2 (cadr d2)))
(new-x3 (+ x3 (car d3)))
(new-y3 (+ y3 (cadr d3)))
(area (calculate-area new-x1 new-y1 new-x2 new-y2 new-x3 new-y3)))
(setf max-area (max max-area area))))))
max-area))
(let ((points (read-points)))
(format t "~f~%" (max-triangle-area points)))
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
0