結果

問題 No.1501 酔歩
コンテスト
ユーザー tails
提出日時 2021-05-08 15:52:39
言語 Perl
(5.40.0)
結果
AC  
実行時間 288 ms / 2,000 ms
コード長 109 bytes
コンパイル時間 895 ms
コンパイル使用メモリ 17,664 KB
実行使用メモリ 43,904 KB
最終ジャッジ日時 2024-09-16 20:51:24
合計ジャッジ時間 13,763 ms
ジャッジサーバーID
（参考情報） 		judge2 / judge4
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 53
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff # 

sub f{$d=0;$d+=99225/$a[$_]/$a[$_+1]for 0.."@_"-2;$d}<>=~$";@a=glob<>;use bigrat;print$'<$`?1*(f$')/f$`:'1/1'
0