結果

問題 No.89 どんどんドーナツどーんといこう！
コンテスト
ユーザー まんしmaNNshi
提出日時 2025-04-11 22:18:21
言語 Common Lisp
(sbcl 2.5.0)
結果
AC  
実行時間 9 ms / 5,000 ms
コード長 338 bytes
コンパイル時間 310 ms
コンパイル使用メモリ 35,124 KB
実行使用メモリ 25,764 KB
最終ジャッジ日時 2025-04-11 22:18:22
合計ジャッジ時間 1,102 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge4
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 2
other AC * 9
権限があれば一括ダウンロードができます
コンパイルメッセージ
; compiling file "/home/judge/data/code/Main.lisp" (written 11 APR 2025 10:18:20 PM):

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

ソースコード

diff # 

(defvar c)
(defvar rin)
(defvar rout)
(defvar temp)
(setq c (parse-integer (read-line)))
(setq temp (read-from-string (concatenate 'string "(" (read-line) ")")))
(setq rin (nth 0 temp))
(setq rout (nth 1 temp))

(defvar han)
(setq han (/ (- rout rin) 2))
(format t "~f~%" (* han han 3.1415926535 (* 2 3.1415926535 (/ (+ rout rin) 2)) c))
0