2 lines
78 B
Haskell
2 lines
78 B
Haskell
|
g (n,(a,b)) = (2*n,(2*a*b-a*a,a*a+b*b)) -- iterate g (1,(1,1)) ; a is nth
|