結果

問題 No.441 和か積
コンテスト
ユーザー hebiyan
提出日時 2017-05-18 00:04:39
言語 Scheme
(Gauche-0.9.15)
コンパイル:
true
実行:
gosh _filename_
結果
RE  
実行時間 -
コード長 273 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 88 ms
コンパイル使用メモリ 6,400 KB
実行使用メモリ 16,512 KB
最終ジャッジ日時 2026-04-06 11:16:30
合計ジャッジ時間 1,886 ms
ジャッジサーバーID
（参考情報） 		judge2_1 / judge1_1
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample RE * 3
other RE * 30
権限があれば一括ダウンロードができます

ソースコード

diff #
raw source code 

(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