結果

問題 No.857 素振り
ユーザー ducktailducktail
提出日時 2019-08-09 21:33:36
言語 Scheme
(Gauche-0.9.15)
結果
AC  
実行時間 24 ms / 1,000 ms
コード長 181 bytes
コンパイル時間 171 ms
コンパイル使用メモリ 5,376 KB
実行使用メモリ 16,000 KB
最終ジャッジ日時 2024-07-19 11:23:26
合計ジャッジ時間 989 ms
ジャッジサーバーID
（参考情報） 		judge3 / judge2
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 2
other AC * 8
権限があれば一括ダウンロードができます

ソースコード

diff # 

(define (solve x y z)
  (- z (if (<= x z) 1 0) (if (<= y z) 1 0)))

(define (main args)
  (let* ([x (read)]
         [y (read)]
         [z (read)])
    (print (solve x y z)))
  0)
0