RosettaCodeData/Task/Fibonacci-sequence/Haskell/fibonacci-sequence-18.hs

g (n,(a,b)) = (2*n,(2*a*b-a*a,a*a+b*b))     -- iterate g (1,(1,1)) ; a is nth