結果

問題 No.441 和か積
ユーザー hebiyan
提出日時 2017-05-18 00:04:39
言語 Scheme
(Gauche-0.9.15)
結果
RE  
実行時間 -
コード長 273 bytes
コンパイル時間 125 ms
コンパイル使用メモリ 6,944 KB
実行使用メモリ 16,384 KB
最終ジャッジ日時 2024-09-17 21:06:16
合計ジャッジ時間 2,541 ms
ジャッジサーバーID
(参考情報)
judge1 / judge2
このコードへのチャレンジ
(要ログイン)
ファイルパターン 結果
sample RE * 3
other RE * 30
権限があれば一括ダウンロードができます

ソースコード

diff #

(letrec ((n (read)) (m (read)))
  (print
   (cond
    ((or (and (string=? "0" n) (string=? "0" m))
         (and (string=? "2" n) (string=? "2" m)))
     "E")
    ((or (string=? "0" n) (string=? "0" n)
         (string=? "1" n) (string=? "1" m))
     "S")
    (else "P"))))
0