結果

問題 No.167 N^M mod 10
ユーザー ldsyb
提出日時 2016-05-24 22:19:28
言語 Scheme
(Gauche-0.9.15)
結果
WA  
実行時間 -
コード長 147 bytes
コンパイル時間 246 ms
コンパイル使用メモリ 6,820 KB
実行使用メモリ 16,768 KB
最終ジャッジ日時 2024-10-07 06:50:20
合計ジャッジ時間 1,789 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge1
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 2
other AC * 25 WA * 2
権限があれば一括ダウンロードができます

ソースコード

diff # 

(define n (read))
(define m (read))
(if (= (modulo m 4) 0) (set! m 4) (set! m (modulo m 4)))
(display (modulo (expt (modulo n 10) m) 10))
(newline)
0