Author: | ditto |
---|---|

Mode: | factor |

Date: | Sat, 14 Feb 2009 07:17:48 |

USING: locals ; :: next-fib-seq ( seq -- newseq ) [let | next-term [ seq 2 tail* sum ] | seq next-term suffix ] ; :: fib-seq-exceed? ( seq -- ? ) seq peek 4000000 > ; :: fib-seq ( seq -- newseq ) [let | next [ seq next-fib-seq ] | next fib-seq-exceed? [ seq ] [ next fib-seq ] if ] ; : solve ( -- ) { 1 2 } fib-seq [ even? ] filter sum .

Summary: | |
---|---|

Author: | |

Mode: | |

Body: | |