Fortran Implementation of Problem 836
View source code here on GitHub!
- function Problem0836/character(14) Problem0836/p0836()
1! Project Euler Problem 836
2!
3! Alright, this was funny
4!
5! Problem:
6!
7! Let A be an **affine plane** over a **radically integral local field** F with residual characteristic p.
8!
9! We consider an **open oriented line section** U of A with normalized Haar measure m.
10!
11! Define f(m,p) as the maximal possible discriminant of the **jacobian** associated to the
12! **orthogonal kernel embedding** of U into A.
13!
14! Find f(20230401, 57). Give as your answer the concatenation of the first letters of each bolded word.
15
16module Problem0836
17 implicit none
18contains
19 pure character(14) function p0836()
20 p0836 = 'aprilfoolsjoke'
21 end function p0836
22end module Problem0836