Summarize and say sequence: Difference between revisions
m
→{{header|Factor}}: 10 swap ^ -> 10^
(Add Factor) |
m (→{{header|Factor}}: 10 swap ^ -> 10^) |
||
Line 1,831:
max-seed <permutations> members [ first zero? ] reject ;
: digits>number ( seq -- n ) [ 10
: >numbers ( seq -- seq ) [ digits>number ] map ;
|