package Ġdev . mike bur ge ss . euler . sequences Ċ Ċ @ OE IS (" A 0 0 0 0 4 5 ") Ċ fun Ġfib onacci Sequence () Ġ= ĊĠĠĠ Ġgenerate Sequence ( 1 L Ġto Ġ 2 L ) Ġ{ Ġ( a , Ġb ) Ġ-> Ġb Ġto Ġa Ġ+ Ġb Ġ} ĊĠĠĠĠĠĠĠ Ġ. map Ġ{ Ġit . first Ġ} Ċ Ċ @ OE IS (" A 0 0 0 2 1 7 ") Ċ fun Ġtriangle Numbers () Ġ= ĊĠĠĠ Ġgenerate Sequence ( 1 L Ġto Ġ 2 L ) Ġ{ Ġ(_, Ġn ) Ġ-> Ġn Ġ* Ġ( n Ġ+ Ġ 1 ) Ġ/ Ġ 2 Ġto Ġn Ġ+ Ġ 1 Ġ} ĊĠĠĠĠĠĠĠ Ġ. map Ġ{ Ġit . first Ġ} Ċ