結果
問題 |
No.2776 Bigger image
|
ユーザー |
|
提出日時 | 2024-06-30 00:01:11 |
言語 | Scheme (Gauche-0.9.15) |
結果 |
AC
|
実行時間 | 24 ms / 2,000 ms |
コード長 | 381 bytes |
コンパイル時間 | 33 ms |
コンパイル使用メモリ | 6,812 KB |
実行使用メモリ | 16,000 KB |
最終ジャッジ日時 | 2024-06-30 00:01:13 |
合計ジャッジ時間 | 2,279 ms |
ジャッジサーバーID (参考情報) |
judge4 / judge5 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 4 |
other | AC * 25 |
ソースコード
(define (area a b h w) (let1 r (min (/ h a) (/ w b)) (* a b r r))) (define (main args) (let* ([a (read)] [b (read)] [h (read)] [w (read)]) (print (let ([a0 (area a b h w)] [a1 (area b a h w)]) (cond [(= a0 a1) 'Same] [(> a0 a1) 'Non-rotating] [else 'Rotating])))) 0)