結果

問題 No.3031 （物理学）長距離相互作用
ユーザー keidenkeiden
提出日時 2024-09-23 15:20:46
言語 Scheme
(Gauche-0.9.14)
結果
AC  
実行時間 63 ms / 10,000 ms
コード長 469 bytes
コンパイル時間 441 ms
コンパイル使用メモリ 6,940 KB
実行使用メモリ 16,256 KB
最終ジャッジ日時 2024-09-23 15:25:01
合計ジャッジ時間 5,959 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge4
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 40 ms
16,000 KB
testcase_01 AC 25 ms
16,000 KB
testcase_02 AC 25 ms
16,128 KB
testcase_03 AC 24 ms
16,000 KB
testcase_04 AC 25 ms
16,128 KB
testcase_05 AC 24 ms
16,256 KB
testcase_06 AC 24 ms
16,000 KB
testcase_07 AC 63 ms
16,128 KB
testcase_08 AC 24 ms
16,128 KB
testcase_09 AC 25 ms
16,128 KB
testcase_10 AC 25 ms
15,872 KB
権限があれば一括ダウンロードができます

ソースコード

diff # 

(define (calc a000 a001 a010 a011 a100 a101 a110 a111)
  (let
    (
      (Coulomb-Energy-NaCl 1.747565)
      (Coulomb-Energy-CsCl 1.762675)
    )
    (- 0 (/ (* Coulomb-Energy-NaCl (+ a011 a101 a110 (- 0 a001 a010 a100))) 3) (/ (* 2 Coulomb-Energy-CsCl (+ (* 3 a000) a001 a010 a100)) (sqrt 3) 3))))

(define yuki3031
  (let* ((a1 (read)) (a2 (read)) (a3 (read)) (a4 (read)) (a5 (read)) (a6 (read)) (a7 (read)) (a8 (read)))
    (print (calc a1 a2 a3 a4 a5 a6 a7 a8))))
0