~pmikkelsen/euler-j

cb7716586778891ff7d755f86ff488ebd9ab2bca — Peter Mikkelsen 1 year, 11 months ago 7d696c5 master
Solve 743
1 files changed, 6 insertions(+), 0 deletions(-)

A problem743.ijs
A problem743.ijs => problem743.ijs +6 -0
@@ 0,0 1,6 @@
M =: 1000000007
P =: M&|@^
T =: M|*
A =: {{{:p{{(>:a),d,M|c+d=.T/b,(1 2+n-+:a),(M-2)P~T/(a P 2),2 P 2*>:m['a b c'=.y}}x^:(<.-:x)1,,~2 P x*>:p=.x%~y-x}}

problem743 =: 1e8 A 1e16
\ No newline at end of file