Pell numbers: Difference between revisions

Line 406:
 
a002315 = 1 : 7 : zipWith (-) ((6 *) <$> tail a002315) a002315
 
 
------------------- PYTHAGOREAN TRIPLES ------------------
Line 411 ⟶ 412:
pythagoreanTriples :: [(Integer, Integer, Integer)]
pythagoreanTriples =
(tail (. concat) $ (zipWith3 go [0 ..] a000129 (scanl (+) 0 a000129)))
where
go i p m
9,655

edits