結果

問題 No.8031 （物理学）長距離相互作用
ユーザー keiden
提出日時 2024-09-23 15:20:46
言語 Scheme
(Gauche-0.9.15)
結果
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
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 11
権限があれば一括ダウンロードができます

ソースコード

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