extra/project-euler/100/100.factor

   1 USING: kernel sequences math.functions math ;
   2 IN: project-euler.100
   3
   4 : euler100 ( -- n )
   5     1 1
   6     [ dup dup 1- * 2 * 10 24 ^ <= ]
   7     [ tuck 6 * swap - 2 - ] [ ] while nip ;