4893 -- Happy $$Forking

iser

Description

地底の ISER であるところのムサシは、先日の fork 事件のあと、C 言語を捨てて Perl に乗り換えることにした。幸い、会社のプログラムはどれもポインタを使っていなかったため、Perl への移行は簡単な仕事だった。会社の技術者たちは、Perl の強力な記述力と奇妙な言語設計に大喜びしたが、しかし一方で、C の快適な実行速度と不思議な未定義動作は、皆を懐かしくさせた。その数日後、ムサシはエンコサーバで再びプログラムを見つけた…。
それはともかく、あなたの仕事は、2 つの整数 a, b を標準入力から受け取り、a+b 番目のメルセンヌ素数を出力するプログラムを書くことだ。

Sample Input

4 6
1
while(1)fork
5
for(;_;){
(eval<<'eval.').eval
$_="far(;_;){fark}",s/a/o/
eval.
}
6
&{$fork=&{$d=eval<<`;$d,$d`,$d=~tr$d=~
echo $echo eval q-+qx+
echo echo ~echo fork+-
;$d,$d
;$d,$d
;sub{sub{&$fork(`$d>&2`)}}}}
0

Sample Output

618970019642690137449562111

Hint

  • もうやめたい
  • ていうかそろそろ院試の勉強しなきゃ
  • でも直前になるまで出来ないんだろうなぁ、きっと