Harshad or Niven series: Difference between revisions
m
→{{header|Factor}}: made a function more efficient
(added a solution for Factor) |
m (→{{header|Factor}}: made a function more efficient) |
||
Line 805:
: first-n-niven ( n -- seq )
1 lfrom [ niven? ] lfilter ltake list>array ;
:: next-niven ( n -- m ) n 1 + [ dup niven? ] [ 1 + ] until ;
20 first-n-niven .
| |||