PEをMathematicaで

Project Eulerに挑戦してみよう

601-700

Project Euler 624 / Two heads are better than one

コイン投げで表が連続して2回出るまでに M 回かかるとする。M が n で割り切れる確率を P(n) であらわす。 P(2)=3/5, P(3)=9/31 である。有理数 a/b と素数p に対して a≡bq (mod p) をみたす最小の自然数 q を Q(a/b, p) であらわす。たとえば Q(P(2), 109)…

Project Euler 607 / Marsh Crossing

Frodo and Sam need to travel 100 leagues due East from point A to point B. On normal terrain, they can cover 10 leagues per day, and so the journey would take 10 days. However, their path is crossed by a long marsh which runs exactly South…

Project Euler 601 / Divisibility streaks

正の整数 n に対して関数 streak(n)=kを「n+k が k+1で割り切れないような最小の正の整数 k」で定義する。たとえば streak(13)=4である。 13 は1で割り切れる 14 は2で割り切れる 15 は3で割り切れる 16 は4で割り切れる 17 は5で割り切れない 同様に 120 は…