Smallest power of 6 whose decimal expansion contains n: Difference between revisions

m
→‎{{header|Factor}}: simplify somewhat
m (made sure that the power is supposed to be an non-negative integer, no fair taking square roots or using negative powers.)
m (→‎{{header|Factor}}: simplify somewhat)
Line 16:
 
: smallest ( m -- n )
present powers-of-6 [ [ present ] bi@ subseq? ] with lfilter car ;
 
22 [ dup smallest commas "%2d %s\n" printf ] each-integer</lang>
1,808

edits