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