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

2 lines
66 B
Haskell

[floor(0.01+(1/p**n+p**n)/sqrt 5)|let p=(1+sqrt 5)/2, n<-[0..42]]